X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fadmin.pl;h=2819da00ed8372d802635940d177141c7ef80414;hb=624c53dc0cb5056d2c259aec6f815e69b8313ae0;hp=3a5e810c25a9e713b24f37633cff355295f06112;hpb=97c8f14b3fea88e6b482919d944cb8e6461bc451;p=kivitendo-erp.git diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index 3a5e810c2..2819da00e 100755 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -43,6 +43,7 @@ use Sys::Hostname; use SL::Auth; use SL::Form; +use SL::Iconv; use SL::Mailer; use SL::User; use SL::Common; @@ -84,13 +85,11 @@ sub run { $::auth->set_session_value('rpw', $::form->{rpw}); $::auth->create_or_refresh_session(); } - call_sub($locale->findsub($form->{action})); - } - } elsif ($auth->authenticate_root($form->{rpw}, 0) == $auth->OK()) { - $auth->create_or_refresh_session() if ($auth->session_tables_present()); + _apply_dbupgrade_scripts(); - login(); + call_sub($locale->findsub($form->{action})); + } } else { # if there are no drivers bail out $form->error($locale->text('No Database Drivers available!')) @@ -724,15 +723,13 @@ sub dbupdate { map { $form->{$_} = $form->{"${_}_${i}"} } qw(dbname dbdriver dbhost dbport dbuser dbpasswd); - my $controls = parse_dbupdate_controls($form, $form->{dbdriver}); - print $form->parse_html_template("admin/dbupgrade_header"); $form->{dbupdate} = $form->{dbname}; $form->{$form->{dbname}} = 1; User->dbupdate($form); - User->dbupdate2($form, $controls); + User->dbupdate2($form, SL::DBUpgrade2->new(form => $form, dbdriver => $form->{dbdriver})->parse_dbupdate_controls); print $form->parse_html_template("admin/dbupgrade_footer"); } @@ -1169,4 +1166,8 @@ sub dispatcher { $form->error($locale->text('No action defined.')); } +sub _apply_dbupgrade_scripts { + ::end_of_request() if SL::DBUpgrade2->new(form => $::form, dbdriver => 'Pg', auth => 1)->apply_admin_dbupgrade_scripts(1); +} + 1;