X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/79778ae9c71c4ee6ad4187c4f085cf573a3bbbce..ca12e8dfc4773aabc13818a0398e06e44028e2bc:/SL/Form.pm?ds=inline
diff --git a/SL/Form.pm b/SL/Form.pm
index 8586d0369..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;
@@ -222,7 +222,7 @@ sub new {
$self->{action} = lc $self->{action};
$self->{action} =~ s/( |-|,|\#)/_/g;
- $self->{version} = "2.4.3";
+ $self->{version} = "2.6.0 beta 1";
$main::lxdebug->leave_sub();
@@ -617,15 +617,15 @@ sub header {
-
+