Changeset 390 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

Timestamp:

08/25/09 20:26:54 (15 years ago)

Author:

nanardon

Message:

• bypass acl for internals query

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (3 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

@@ -6 +6 @@
 
 use LATMOS::Accounts::Utils;
+use LATMOS::Accounts::Log;
 use base qw(LATMOS::Accounts::Bases::Sql::objects);
 
@@ -277 +278 @@
         };
         grep { $attr eq $_ } (__PACKAGE__->_office_address_fields, __PACKAGE__->_address_fields()) and do {
-            my $fmainaddress = $self->get_c_field('mainaddress');
+            my $fmainaddress = $self->_get_c_field('mainaddress');
             if (!$fmainaddress) {
                 $fmainaddress = $self->id . '-' . join('', map { ('a'..'z')[rand(26)] }
@@ -284 +285 @@
                     'address', $fmainaddress,
                     user => $self->id,
-                    isMainAddress => 1 ) or return;
+                    isMainAddress => 1, ) or do {
+                    $self->base->log(LA_ERR,
+                        "Cannot create main address for user %s", $self->id);
+                    return;
+                };
             }
             if (my $address = $self->base->get_object('address', $fmainaddress)) {