projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Session-Inhalt als YAML-Dump speichern und laden
[kivitendo-erp.git]
/
bin
/
mozilla
/
admin.pl
diff --git
a/bin/mozilla/admin.pl
b/bin/mozilla/admin.pl
index
c5c97cd
..
2819da0
100755
(executable)
--- 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::Auth;
use SL::Form;
+use SL::Iconv;
use SL::Mailer;
use SL::User;
use SL::Common;
use SL::Mailer;
use SL::User;
use SL::Common;
@@
-84,6
+85,9
@@
sub run {
$::auth->set_session_value('rpw', $::form->{rpw});
$::auth->create_or_refresh_session();
}
$::auth->set_session_value('rpw', $::form->{rpw});
$::auth->create_or_refresh_session();
}
+
+ _apply_dbupgrade_scripts();
+
call_sub($locale->findsub($form->{action}));
}
} else {
call_sub($locale->findsub($form->{action}));
}
} else {
@@
-719,15
+723,13
@@
sub dbupdate {
map { $form->{$_} = $form->{"${_}_${i}"} } qw(dbname dbdriver dbhost dbport dbuser dbpasswd);
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);
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");
}
print $form->parse_html_template("admin/dbupgrade_footer");
}
@@
-1164,4
+1166,8
@@
sub dispatcher {
$form->error($locale->text('No action defined.'));
}
$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;
1;