Revision 8f7283f5
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 242 | 242 |
|
| 243 | 243 |
my ($self, $dbh, $filename, $version_or_control, $db_charset) = @_; |
| 244 | 244 |
|
| 245 |
my %form_values = map { $_ => $::form->{$_} } qw(dbconnect dbdefault dbdriver dbhost dbmbkiviunstable dbname dboptions dbpasswd dbport dbupdate dbuser login template_object version);
|
|
| 246 |
|
|
| 245 | 247 |
$dbh->begin_work; |
| 246 | 248 |
|
| 247 | 249 |
# setup dbup_ export vars & run script |
| ... | ... | |
| 272 | 274 |
} |
| 273 | 275 |
$dbh->commit(); |
| 274 | 276 |
|
| 277 |
# Clear $::form of values that may have been set so that following |
|
| 278 |
# Perl upgrade scripts won't have to work with old data (think of |
|
| 279 |
# the usual 'continued' mechanism that's used for determining |
|
| 280 |
# whether or not the upgrade form must be displayed). |
|
| 281 |
delete @{ $::form }{ keys %{ $::form } };
|
|
| 282 |
$::form->{$_} = $form_values{$_} for keys %form_values;
|
|
| 283 |
|
|
| 275 | 284 |
$::lxdebug->leave_sub(); |
| 276 | 285 |
} |
| 277 | 286 |
|
Auch abrufbar als: Unified diff
$::form nach Perl-Upgrade-Script-Ausführung resetten
Siehe 87eebe6 für Begründung.