Changeset 928 for LATMOS-Accounts

Timestamp:

04/18/12 19:49:34 (12 years ago)

Author:

nanardon

Message:

• fix finalpoint attribute fetching
• handling multiple forward when fetching finalpoint attribute

File:

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

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

@@ -110 +110 @@
         limit 1
         });
-        my $next = $self->get_field('forward');
-        while (1) {
+        my @res = ();
+        my @next = @{ $self->get_field('forward') };
+        while (my $next = shift(@next)) {
             $sth->execute($next);
             if (my $res = $sth->fetchrow_hashref) {
-                $next = $res->{forward};
-                $next = ref $next
-                    ? join(',', @$next)
-                    : $next;
-                next;
+                push(@next, @{ $res->{forward} });
             } else {
-                last;
+                push(@res, $next);
             }
         }
         $sth->finish;
-        return $next;
+        return @res ? \@res : undef;
     }
     if ($field =~ /^(parents|anyparents|sameforward|samedestination)$/) {