Lines 37-42
use Getopt::Long;
Link Here
|
37 |
use C4::Context; |
37 |
use C4::Context; |
38 |
use C4::Installer; |
38 |
use C4::Installer; |
39 |
use C4::Dates; |
39 |
use C4::Dates; |
|
|
40 |
use C4::Koha qw/GetSupportList/; |
40 |
|
41 |
|
41 |
use MARC::Record; |
42 |
use MARC::Record; |
42 |
use MARC::File::XML ( BinaryEncoding => 'utf8' ); |
43 |
use MARC::File::XML ( BinaryEncoding => 'utf8' ); |
Lines 8369-8374
if ( CheckVersion($DBversion) ) {
Link Here
|
8369 |
SetVersion($DBversion); |
8370 |
SetVersion($DBversion); |
8370 |
} |
8371 |
} |
8371 |
|
8372 |
|
|
|
8373 |
$DBversion = "3.15.00.XXX"; |
8374 |
if ( CheckVersion($DBversion) ) { |
8375 |
foreach my $format (@{ GetSupportList() }) { |
8376 |
$dbh->do( |
8377 |
q/INSERT INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl) |
8378 |
VALUES (?, ?, ?, ?, ?)/, |
8379 |
{}, |
8380 |
'SUGGEST_FORMAT', $format->{itemtype}, $format->{description}, $format->{description}, $format->{imageurl} |
8381 |
); |
8382 |
} |
8383 |
print "Upgrade to $DBversion done (Bug 9468: create new SUGGEST_FORMAT authorised_value list)\n"; |
8384 |
SetVersion($DBversion); |
8385 |
} |
8386 |
|
8372 |
=head1 FUNCTIONS |
8387 |
=head1 FUNCTIONS |
8373 |
|
8388 |
|
8374 |
=head2 TableExists($table) |
8389 |
=head2 TableExists($table) |
8375 |
- |
|
|