Revision a1b353ec
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
| 239 | 239 |
|
| 240 | 240 |
if (/^(name=|company=|templates=|dbuser=|dbdriver=|dbname=|dbhost=)/) {
|
| 241 | 241 |
chop($var = $&); |
| 242 |
($null, $member{$login}{$var}) = split /=/, $_, 2;
|
|
| 242 |
($null, $member{$login}{$var}) = split(/=/, $_, 2);
|
|
| 243 | 243 |
} |
| 244 | 244 |
} |
| 245 | 245 |
|
| ... | ... | |
| 728 | 728 |
</tr> |
| 729 | 729 |
|; |
| 730 | 730 |
|
| 731 |
foreach $item (split /;/, $myconfig->{acs}) {
|
|
| 731 |
foreach $item (split(/;/, $myconfig->{acs})) {
|
|
| 732 | 732 |
($key, $value) = split /--/, $item, 2; |
| 733 | 733 |
$excl{$key}{$value} = 1;
|
| 734 | 734 |
} |
| ... | ... | |
| 1423 | 1423 |
} |
| 1424 | 1424 |
|
| 1425 | 1425 |
sub dbupdate {
|
| 1426 |
$form->{"stylesheet"} = "lx-office-erp.css";
|
|
| 1427 |
$form->{"title"} = $main::locale->text("Dataset upgrade");
|
|
| 1428 |
$form->header(); |
|
| 1429 |
my $dbname = |
|
| 1430 |
join(" ",
|
|
| 1431 |
map({ s/\s//g; s/^db//; $_; }
|
|
| 1432 |
grep({ $form->{$_} }
|
|
| 1433 |
split(/\s+/, $form->{"dbupdate"}))));
|
|
| 1434 |
print($form->parse_html_template("dbupgrade/header",
|
|
| 1435 |
{ "dbname" => $dbname }));
|
|
| 1426 | 1436 |
|
| 1427 | 1437 |
User->dbupdate(\%$form); |
| 1428 | 1438 |
|
| 1429 |
$form->redirect($locale->text('Dataset updated!'));
|
|
| 1439 |
print qq| |
|
| 1440 |
<hr> |
|
| 1441 |
|
|
| 1442 |
| . $locale->text('Dataset updated!') . qq|
|
|
| 1443 |
|
|
| 1444 |
<br> |
|
| 1445 |
|
|
| 1446 |
<a href="admin.pl?action=login&| . |
|
| 1447 |
join("&", map({ "$_=" . $form->escape($form->{$_}); } qw(path rpw))) .
|
|
| 1448 |
qq|">| . $locale->text("Continue") . qq|</a>|;
|
|
| 1430 | 1449 |
|
| 1431 | 1450 |
} |
| 1432 | 1451 |
|
Auch abrufbar als: Unified diff
Adminfrontend: Vor den Datenbankupdates wie in User.pm auch den HTML-Header ausgeben, damit die Perlscripte ihre Ausgaben anständig durchführen können. Danach zurück zur Administration. Bugfix für 435.