X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/e055700faea1906bea6c03184ba4516b57cac887..e14cb525c640cb15bb6b2dfb62ccebbe78cb45cd:/SL/DB/Employee.pm diff --git a/SL/DB/Employee.pm b/SL/DB/Employee.pm index 8688e8297..92444551e 100644 --- a/SL/DB/Employee.pm +++ b/SL/DB/Employee.pm @@ -12,4 +12,10 @@ sub has_right { return $::auth->check_right($self->login, $right); } +sub safe_name { + my ($self) = @_; + + return $self->name || $self->login; +} + 1;