Changeset 390
- Timestamp:
- 08/25/09 20:26:54 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm
r388 r390 6 6 7 7 use LATMOS::Accounts::Utils; 8 use LATMOS::Accounts::Log; 8 9 use base qw(LATMOS::Accounts::Bases::Sql::objects); 9 10 … … 277 278 }; 278 279 grep { $attr eq $_ } (__PACKAGE__->_office_address_fields, __PACKAGE__->_address_fields()) and do { 279 my $fmainaddress = $self-> get_c_field('mainaddress');280 my $fmainaddress = $self->_get_c_field('mainaddress'); 280 281 if (!$fmainaddress) { 281 282 $fmainaddress = $self->id . '-' . join('', map { ('a'..'z')[rand(26)] } … … 284 285 'address', $fmainaddress, 285 286 user => $self->id, 286 isMainAddress => 1 ) or return; 287 isMainAddress => 1, ) or do { 288 $self->base->log(LA_ERR, 289 "Cannot create main address for user %s", $self->id); 290 return; 291 }; 287 292 } 288 293 if (my $address = $self->base->get_object('address', $fmainaddress)) {
Note: See TracChangeset
for help on using the changeset viewer.