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