1 |
use strict; |
use strict; |
2 |
use warnings; |
use warnings; |
3 |
|
|
4 |
package A3C::Model::User; |
package A3C::Model::Person; |
5 |
use Jifty::DBI::Schema; |
use Jifty::DBI::Schema; |
6 |
|
|
7 |
use utf8; |
use utf8; |
344 |
|
|
345 |
sub name { |
sub name { |
346 |
my $self = shift; |
my $self = shift; |
347 |
return $self->__value('cn'); |
return $self->__value('cn') . ' <' . $self->__value('mail') . '>'; |
348 |
} |
} |
349 |
|
|
350 |
=head2 validate_telephoneNumber |
=head2 validate_telephoneNumber |
416 |
return $value; |
return $value; |
417 |
} |
} |
418 |
|
|
419 |
=head2 current_user_can |
use A3C::DefaultACL; |
|
|
|
|
=cut |
|
|
|
|
|
sub current_user_can { |
|
|
# FIXME no security for now :-) |
|
|
return 1; |
|
|
} |
|
|
|
|
420 |
|
|
421 |
1; |
1; |
422 |
|
|