NAME

Pangloss::User::Privileges - user privileges.

SYNOPSIS

  use Pangloss::User::Privileges;
  my $privs = new Pangloss::User::Privileges();

  $privs->admin( false )
        ->add_concepts( true )
        ->add_categories( true )
        ->add_translate_languages( @languages )
        ->add_proofread_languages( @languages );

  do { ... } if $privs->can_translate( $language );
  do { ... } if $privs->can_proofread( $language );
  do { ... } if $privs->admin();

  # etc.

DESCRIPTION

This class represents the privileges of a user in Pangloss. A user with special privileges can do one or more of:

    translate terms in a given language
    proofread terms in a given language
    add concepts
    add categories
    administrate Pangloss

New privileges are created with an empty list of translate/proofread languages.

This class inherits from Pangloss::StoredObject.

METHODS

add_concepts()

set/get 'add concepts' flag of the user.

add_categories()

set/get 'add categories' flag of the user.

admin()

set/get administration flag of the user.

translate_languages()

set/get hash of Pangloss::Language keys the user is allowed to translate.

proofread_languages()

set/get hash of Pangloss::Language keys the user is allowed to proofread.

translate(), proofread()

test to see if user can translate/proofread one or more <Pangloss::Language>s.

add_translate_languages( @langs ), add_proofread_languages( @langs )

add to the relevant list of languages. accepts Pangloss::Languages or their keys. returns this object.

remove_translate_languages( @langs ), remove_proofread_languages( @langs )

remove from the relevant list of languages. accepts Pangloss::Languages or their keys. returns this object.

can_translate( $lang ), can_proofread( $lang )

test to see if user can translate/proofread given Pangloss::Language.

AUTHOR

Steve Purkis <spurkis@quiup.com>

SEE ALSO

Pangloss::User, Pangloss::Language