From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 1 Oct 2008 15:57:47 +0000 (+0000)
Subject: Konzeptioneller Fehler. Da es mehr als ein Form-Objekt geben kann (in diesem Falle... 
X-Git-Tag: release-2.6.0beta2~252
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=b2d2a98c959bad922eb12f74d849d1a6a153b336;p=kivitendo-erp.git

Konzeptioneller Fehler. Da es mehr als ein Form-Objekt geben kann (in diesem Falle beim Wiederherstellen von $form mittels restore_form()), darf das Standard-Datenbankhandle nicht geschlossen werden, wenn ein Form-Objekt vernichtet wird, sondern erst, wenn das Programm beendet wird.
---

diff --git a/SL/Form.pm b/SL/Form.pm
index 5a2ad9203..a6b21e2e5 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -57,7 +57,7 @@ use List::Util qw(first max min sum);
 
 my $standard_dbh;
 
-sub DESTROY {
+END {
   if ($standard_dbh) {
     $standard_dbh->disconnect();
     undef $standard_dbh;