Revision 39c3f17a
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 273 | 273 |
$dbh->do("UPDATE defaults SET version = " . $dbh->quote($version_or_control));
|
| 274 | 274 |
} |
| 275 | 275 |
|
| 276 |
$dbh->commit if $dbh->{AutoCommit} && $dbh->{BegunWork};
|
|
| 276 |
$dbh->commit if !$dbh->{AutoCommit} || $dbh->{BegunWork};
|
|
| 277 | 277 |
|
| 278 | 278 |
# Clear $::form of values that may have been set so that following |
| 279 | 279 |
# Perl upgrade scripts won't have to work with old data (think of |
Auch abrufbar als: Unified diff
Commit nach DB-Upgrade auch, wenn AutoCommit aus ist