Revision 2a79838f
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
| 186 | 186 |
return $errstr // '<unknown database error>' if $self->{return_on_error};
|
| 187 | 187 |
$sth->finish(); |
| 188 | 188 |
$dbh->rollback(); |
| 189 |
$form->dberror("The database update/creation did not succeed. " .
|
|
| 190 |
"The file ${filename} containing the following " .
|
|
| 191 |
"query failed:<br>${query}<br>" .
|
|
| 192 |
"The error message was: ${errstr}<br>" .
|
|
| 193 |
"All changes in that file have been reverted."); |
|
| 189 |
if (!ref $version_or_control || ref $version_or_control ne 'HASH' || !$version_or_control->{may_fail}) {
|
|
| 190 |
$form->dberror("The database update/creation did not succeed. " .
|
|
| 191 |
"The file ${filename} containing the following " .
|
|
| 192 |
"query failed:<br>${query}<br>" .
|
|
| 193 |
"The error message was: ${errstr}<br>" .
|
|
| 194 |
"All changes in that file have been reverted.") |
|
| 195 |
} |
|
| 194 | 196 |
} |
| 195 | 197 |
$sth->finish(); |
| 196 | 198 |
|
Auch abrufbar als: Unified diff
DBUpgrade2: may_fail für reine sql Queries auch honorieren.