Revision 9e61cdfd
Von Moritz Bunkus vor etwa 11 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 374 | 374 |
} |
| 375 | 375 |
|
| 376 | 376 |
sub dbupdate2 {
|
| 377 |
$main::lxdebug->enter_sub(); |
|
| 378 |
|
|
| 379 | 377 |
my ($self, %params) = @_; |
| 380 | 378 |
|
| 381 | 379 |
my $form = $params{form};
|
| 382 | 380 |
my $dbupdater = $params{updater};
|
| 383 | 381 |
my $db = $params{database};
|
| 384 |
my $rc = -2; |
|
| 385 | 382 |
|
| 386 | 383 |
map { $_->{description} = SL::Iconv::convert($_->{charset}, 'UTF-8', $_->{description}) } values %{ $dbupdater->{all_controls} };
|
| 387 | 384 |
|
| ... | ... | |
| 395 | 392 |
|
| 396 | 393 |
my @upgradescripts = $dbupdater->unapplied_upgrade_scripts($dbh); |
| 397 | 394 |
|
| 398 |
$dbh->disconnect and next if !@upgradescripts; |
|
| 399 |
|
|
| 400 | 395 |
foreach my $control (@upgradescripts) {
|
| 401 |
# apply upgrade |
|
| 396 |
# Apply upgrade. Control will only return to us if the upgrade has |
|
| 397 |
# been applied correctly and if the update has not requested user |
|
| 398 |
# interaction. |
|
| 402 | 399 |
$main::lxdebug->message(LXDebug->DEBUG2(), "Applying Update $control->{file}");
|
| 403 | 400 |
print $form->parse_html_template("dbupgrade/upgrade_message2", $control);
|
| 404 | 401 |
|
| 405 | 402 |
$dbupdater->process_file($dbh, "sql/Pg-upgrade2/$control->{file}", $control);
|
| 406 | 403 |
} |
| 407 | 404 |
|
| 408 |
$rc = 0; |
|
| 409 | 405 |
$dbh->disconnect; |
| 410 |
|
|
| 411 |
$main::lxdebug->leave_sub(); |
|
| 412 |
|
|
| 413 |
return $rc; |
|
| 414 | 406 |
} |
| 415 | 407 |
|
| 416 | 408 |
sub data {
|
Auch abrufbar als: Unified diff
Kosmetik: useless code removal