SL/DB/Employee.pm

   1 package SL::DB::Employee;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::Employee;
   6 use SL::DB::Manager::Employee;
   7
   8 sub has_right {
   9   my $self  = shift;
  10   my $right = shift;
  11
  12   return $::auth->check_right($self->login, $right);
  13 }
  14
  15 sub safe_name {
  16   my ($self) = @_;
  17
  18   return $self->name || $self->login;
  19 }
  20
  21 1;