Changeset 394 for LATMOS-Accounts
- Timestamp:
- 08/25/09 21:24:41 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Address.pm
r392 r394 62 62 } 63 63 64 sub _create { 65 my ($class, $base, $id, %data) = @_; 66 $data{user} or return; 67 my $user = $base->get_object('user', $data{user}); 68 if (!$user->get_c_field('otheraddress')) { 69 $data{isMainAddress} = 1; 70 } 71 $class->SUPER::_create($base, $id, %data); 72 } 73 64 74 sub get_field { 65 75 my ($self, $field) = @_;
Note: See TracChangeset
for help on using the changeset viewer.