X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/258c99bd2ca423843472c5d0ee8fdb250bdaafba..50b62dbb07efa821b05e9b6368c574ec76df2bb9:/SL/DBUpgrade2.pm?ds=inline diff --git a/SL/DBUpgrade2.pm b/SL/DBUpgrade2.pm index 3cdb9a44b..650258378 100644 --- a/SL/DBUpgrade2.pm +++ b/SL/DBUpgrade2.pm @@ -238,7 +238,7 @@ sub process_perl_script { my ($self, $dbh, $filename, $version_or_control) = @_; - my %form_values = map { $_ => $::form->{$_} } qw(dbconnect dbdefault dbhost dbmbkiviunstable dbname dboptions dbpasswd dbport dbupdate dbuser login template_object version); + my %form_values = map { $_ => $::form->{$_} } qw(dbconnect dbdefault dbhost dbname dboptions dbpasswd dbport dbupdate dbuser login template_object version); $dbh->begin_work;