Changeset 952 for LATMOS-Accounts

Timestamp:

04/27/12 11:34:21 (12 years ago)

Author:

nanardon

Message:

• improve request forms

File:

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

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

@@ -121 +121 @@
     $sth_f->execute($self->id);
     while (my $res = $sth_f->fetchrow_hashref) {
-        if (exists($values{$res->{attributes}})) {
-            if (!ref($values{$res->{attributes}})) {
-                if (my $v = $values{$res->{attributes}}) {
-                    $values{$res->{attributes}} = [ grep { $_ } ($v, $res->{value}) ];
+        my $attr = $res->{attributes};
+        if (exists($values{$attr})) {
+            if (!ref($values{$attr})) {
+                if (my $v = $values{$attr}) {
+                    $values{$attr} = [ grep { $_ } ($v, $res->{value}) ];
                 } else {
-                    $values{$res->{attributes}} = $res->{value};
+                    $values{$attr} = $res->{value};
                 }
             } elsif ($res->{value}) {
-                push(@{$values{$res->{attributes}}}, $res->{value});
+                push(@{$values{$attr}}, $res->{value});
             }
         } else {
-            $values{$res->{attributes}} = $res->{value};
+            $values{$attr} = $res->{value};
         }
     }