Revision d099e800
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 768 | 768 |
last if ($version < $mindb); |
| 769 | 769 |
|
| 770 | 770 |
# apply upgrade |
| 771 |
$main::lxdebug->message(DEBUG2, "Applying Update $upgradescript"); |
|
| 771 |
$main::lxdebug->message(LXDebug::DEBUG2, "Applying Update $upgradescript");
|
|
| 772 | 772 |
if ($file_type eq "sql") {
|
| 773 | 773 |
$self->process_query($form, $dbh, "sql/" . $form->{"dbdriver"} .
|
| 774 | 774 |
"-upgrade/$upgradescript", $str_maxdb, $db_charset); |
| ... | ... | |
| 852 | 852 |
my $file_type = $1; |
| 853 | 853 |
|
| 854 | 854 |
# apply upgrade |
| 855 |
$main::lxdebug->message(DEBUG2, "Applying Update $control->{file}");
|
|
| 855 |
$main::lxdebug->message(LXDebug::DEBUG2, "Applying Update $control->{file}");
|
|
| 856 | 856 |
print $form->parse_html_template("dbupgrade/upgrade_message2", $control);
|
| 857 | 857 |
|
| 858 | 858 |
if ($file_type eq "sql") {
|
Auch abrufbar als: Unified diff
Konstanten aus anderen Packages müssen mit dem Package-Namen beginnen.