Lines 39-44
use C4::Installer;
Link Here
|
39 |
use C4::Dates; |
39 |
use C4::Dates; |
40 |
use Koha::Database; |
40 |
use Koha::Database; |
41 |
use Koha; |
41 |
use Koha; |
|
|
42 |
use C4::Koha qw/GetSupportList/; |
42 |
|
43 |
|
43 |
use MARC::Record; |
44 |
use MARC::Record; |
44 |
use MARC::File::XML ( BinaryEncoding => 'utf8' ); |
45 |
use MARC::File::XML ( BinaryEncoding => 'utf8' ); |
Lines 11310-11315
if ( CheckVersion($DBversion) ) {
Link Here
|
11310 |
SetVersion($DBversion); |
11311 |
SetVersion($DBversion); |
11311 |
} |
11312 |
} |
11312 |
|
11313 |
|
|
|
11314 |
$DBversion = "3.19.00.XXX"; |
11315 |
if ( CheckVersion($DBversion) ) { |
11316 |
foreach my $format (@{ GetSupportList() }) { |
11317 |
$dbh->do( |
11318 |
q/INSERT INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl) |
11319 |
VALUES (?, ?, ?, ?, ?)/, |
11320 |
{}, |
11321 |
'SUGGEST_FORMAT', $format->{itemtype}, $format->{description}, $format->{description}, $format->{imageurl} |
11322 |
); |
11323 |
} |
11324 |
print "Upgrade to $DBversion done (Bug 9468: create new SUGGEST_FORMAT authorised_value list)\n"; |
11325 |
SetVersion($DBversion); |
11326 |
} |
11327 |
|
11313 |
# DEVELOPER PROCESS, search for anything to execute in the db_update directory |
11328 |
# DEVELOPER PROCESS, search for anything to execute in the db_update directory |
11314 |
# SEE bug 13068 |
11329 |
# SEE bug 13068 |
11315 |
# if there is anything in the atomicupdate, read and execute it. |
11330 |
# if there is anything in the atomicupdate, read and execute it. |
11316 |
- |
|
|