View | Details | Raw Unified | Return to bug 9468
Collapse All | Expand All

(-)a/installer/data/mysql/updatedatabase.pl (-1 / +15 lines)
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
- 

Return to bug 9468