Changeset 371 for LATMOS-Accounts/lib/LATMOS/Accounts

Timestamp:

08/18/09 04:35:54 (15 years ago)

Author:

nanardon

Message:

• avoid statement still active warning

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Aliases.pm (modified) (2 diffs)

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

@@ -67 +67 @@
     $sth->execute($id);
     my $res = $sth->fetchrow_hashref;
+    $sth->finish;
     if ($res) {
         $base->log(LA_ERR, "Aliases %s already exists as %s",
@@ -90 +91 @@
                 next;
             } else {
-                return $next;
+                last;
             }
         }
+        $sth->finish;
+        return $next;
     }
     if ($field =~ /^(parents|anyparents|sameforward|samedestination)$/) {