Lines 47-52
use MARC::File::XML ( BinaryEncoding => 'utf8' );
Link Here
|
47 |
use File::Path qw[remove_tree]; # perl core module |
47 |
use File::Path qw[remove_tree]; # perl core module |
48 |
use File::Slurp; |
48 |
use File::Slurp; |
49 |
|
49 |
|
|
|
50 |
use Try::Tiny; |
51 |
|
50 |
# FIXME - The user might be installing a new database, so can't rely |
52 |
# FIXME - The user might be installing a new database, so can't rely |
51 |
# on /etc/koha.conf anyway. |
53 |
# on /etc/koha.conf anyway. |
52 |
|
54 |
|
Lines 23451-23458
if( CheckVersion( $DBversion ) ) {
Link Here
|
23451 |
|
23453 |
|
23452 |
$DBversion = '20.12.00.005'; |
23454 |
$DBversion = '20.12.00.005'; |
23453 |
if( CheckVersion( $DBversion ) ) { |
23455 |
if( CheckVersion( $DBversion ) ) { |
23454 |
$dbh->do(q{UPDATE systempreferences set variable="OPACLanguages" WHERE variable="opaclanguages"}); |
23456 |
execute_entry( |
23455 |
NewVersion( $DBversion, 27491, "Rename system preference 'opaclanguages' to 'OPACLanguages'"); |
23457 |
$DBversion, 27491, "Rename system preference 'opaclanguages' to 'OPACLanguages'", |
|
|
23458 |
sub { |
23459 |
$dbh->do( |
23460 |
q{UPDATE systempreferences set variable="OPACLanguages" WHERE variable="opaclanguages"} |
23461 |
); |
23462 |
} |
23463 |
); |
23464 |
} |
23465 |
|
23466 |
$DBversion = '20.12.00.006'; |
23467 |
if( CheckVersion( $DBversion ) ) { |
23468 |
execute_entry( $DBversion, 12345, "Testing failure", |
23469 |
sub { |
23470 |
$dbh->do( |
23471 |
q{ALTER TABLE foo} |
23472 |
); |
23473 |
} |
23474 |
); |
23475 |
} |
23476 |
|
23477 |
|
23478 |
sub execute_entry { |
23479 |
my ( $DBversion, $bug_number, $description, $sub ) = @_; |
23480 |
|
23481 |
try { |
23482 |
Koha::Database->schema->txn_do($sub); |
23483 |
} catch { |
23484 |
die sprintf "Something wrong happened during %s (%s):\n%s", $DBversion, $description, $_; |
23485 |
}; |
23486 |
|
23487 |
NewVersion( $DBversion, $bug_number, $description ); |
23456 |
} |
23488 |
} |
23457 |
|
23489 |
|
23458 |
# SEE bug 13068 |
23490 |
# SEE bug 13068 |