Revision a1486b4e
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 193 | 193 |
$form->{"stylesheet"} = "lx-office-erp.css";
|
| 194 | 194 |
$form->{"title"} = $main::locale->text("Dataset upgrade");
|
| 195 | 195 |
$form->header(); |
| 196 |
print($form->parse_html_template("dbupgrade/header"));
|
|
| 196 |
print($form->parse_html_template2("dbupgrade/header"));
|
|
| 197 | 197 |
|
| 198 | 198 |
$form->{dbupdate} = "db$myconfig{dbname}";
|
| 199 | 199 |
$form->{ $form->{dbupdate} } = 1;
|
| 200 | 200 |
|
| 201 | 201 |
if ($form->{"show_dbupdate_warning"}) {
|
| 202 |
print($form->parse_html_template("dbupgrade/warning"));
|
|
| 202 |
print($form->parse_html_template2("dbupgrade/warning"));
|
|
| 203 | 203 |
exit(0); |
| 204 | 204 |
} |
| 205 | 205 |
|
| ... | ... | |
| 226 | 226 |
$self->{"menustyle"} eq "neu" ? "menunew.pl" :
|
| 227 | 227 |
"menu.pl"; |
| 228 | 228 |
|
| 229 |
print($form->parse_html_template("dbupgrade/footer",
|
|
| 230 |
{ "menufile" => $menufile }));
|
|
| 229 |
print($form->parse_html_template2("dbupgrade/footer",
|
|
| 230 |
{ "menufile" => $menufile }));
|
|
| 231 | 231 |
|
| 232 | 232 |
$rc = -2; |
| 233 | 233 |
|
| ... | ... | |
| 492 | 492 |
} |
| 493 | 493 |
|
| 494 | 494 |
if (!defined($result)) {
|
| 495 |
print($form->parse_html_template("dbupgrade/error",
|
|
| 496 |
{ "file" => $filename,
|
|
| 497 |
"error" => $@ })); |
|
| 495 |
print($form->parse_html_template2("dbupgrade/error",
|
|
| 496 |
{ "file" => $filename,
|
|
| 497 |
"error" => $@ }));
|
|
| 498 | 498 |
exit(0); |
| 499 | 499 |
} elsif (1 != $result) {
|
| 500 | 500 |
unlink("users/nologin") if (2 == $result);
|
| ... | ... | |
| 927 | 927 |
|
| 928 | 928 |
# apply upgrade |
| 929 | 929 |
$main::lxdebug->message(DEBUG2, "Applying Update $control->{file}");
|
| 930 |
print($form->parse_html_template("dbupgrade/upgrade_message2",
|
|
| 931 |
$control)); |
|
| 930 |
print($form->parse_html_template2("dbupgrade/upgrade_message2",
|
|
| 931 |
$control));
|
|
| 932 | 932 |
|
| 933 | 933 |
if ($file_type eq "sql") {
|
| 934 | 934 |
$self->process_query($form, $dbh, "sql/" . $form->{"dbdriver"} .
|
Auch abrufbar als: Unified diff
Umstellung der Vorlagen aus templates/webpages/dbupgrade von HTML::Template auf Template.