Changeset 365

Timestamp:

08/18/09 01:38:31 (15 years ago)

Author:

nanardon

Message:

• fix default attributes discovering

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm (modified) (1 diff)

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

@@ -228 +228 @@
 
     # populating default value
-    foreach my $def (%{ $self->{defattr} || {}}) {
+    foreach my $def (keys %{ $self->{defattr} || {}}) {
         if ($def =~ /^$otype\.(.*)$/) {
             $cdata{$1} = $self->{defattr}{$def} if(!$cdata{$1});