Changeset 1503

Timestamp:

12/18/15 08:52:09 (9 years ago)

Author:

nanardon

Message:

Fix unfinished dbi handle

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases.pm (modified) (1 diff)
• Bases/Sql/objects.pm (modified) (1 diff)

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

@@ -413 +413 @@
         return;
     };
-    warn $id;
+
     $self->get_object($otype, $id);
 }

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -234 +234 @@
     );
     $sthid->execute($lastid);
-    my $res = $sthid->fetchrow_hashref() or return;
+    my $res = $sthid->fetchrow_hashref();
+    $sthid->finish;
+    $res or return;
 
     my $obj = $class->new($base, $res->{k}) or return;