|
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 9867-9872
if(CheckVersion($DBversion)) {
Link Here
|
| 9867 |
SetVersion($DBversion); |
9868 |
SetVersion($DBversion); |
| 9868 |
} |
9869 |
} |
| 9869 |
|
9870 |
|
|
|
9871 |
$DBversion = "3.15.00.XXX"; |
| 9872 |
if ( CheckVersion($DBversion) ) { |
| 9873 |
foreach my $format (@{ GetSupportList() }) { |
| 9874 |
$dbh->do( |
| 9875 |
q/INSERT INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl) |
| 9876 |
VALUES (?, ?, ?, ?, ?)/, |
| 9877 |
{}, |
| 9878 |
'SUGGEST_FORMAT', $format->{itemtype}, $format->{description}, $format->{description}, $format->{imageurl} |
| 9879 |
); |
| 9880 |
} |
| 9881 |
print "Upgrade to $DBversion done (Bug 9468: create new SUGGEST_FORMAT authorised_value list)\n"; |
| 9882 |
SetVersion($DBversion); |
| 9883 |
} |
| 9884 |
|
| 9870 |
=head1 FUNCTIONS |
9885 |
=head1 FUNCTIONS |
| 9871 |
|
9886 |
|
| 9872 |
=head2 TableExists($table) |
9887 |
=head2 TableExists($table) |
| 9873 |
- |
|
|