1 |
use strict; |
use strict; |
2 |
use warnings; |
use warnings; |
3 |
|
|
4 |
|
=head1 WARNING |
5 |
|
|
6 |
|
B<This code is obsolete> since application is using L<A3C::Model::hrEduOrg> |
7 |
|
|
8 |
|
=cut |
9 |
|
|
10 |
package A3C::Model::Organization; |
package A3C::Model::Organization; |
11 |
use Jifty::DBI::Schema; |
use Jifty::DBI::Schema; |
12 |
|
|
95 |
|
|
96 |
sub name { |
sub name { |
97 |
my $self = shift; |
my $self = shift; |
98 |
return $self->__value('cn') . ' (' . $self->__value('o') . ', ' . $self->__value('l') . ')'; |
return $self->cn . ' - ' . $self->o; |
99 |
} |
} |
100 |
|
|
101 |
|
use A3C::DefaultACL; |
102 |
|
|
103 |
1; |
1; |
104 |
|
|