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

(-)a/installer/data/mysql/updatedatabase.pl (-6 / +11 lines)
Lines 39-45 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/;
43
42
44
use MARC::Record;
43
use MARC::Record;
45
use MARC::File::XML ( BinaryEncoding => 'utf8' );
44
use MARC::File::XML ( BinaryEncoding => 'utf8' );
Lines 10762-10775 if ( CheckVersion($DBversion) ) { Link Here
10762
    SetVersion ($DBversion);
10761
    SetVersion ($DBversion);
10763
}
10762
}
10764
10763
10765
$DBversion = "3.19.00.XXX";
10764
$DBversion = "3.21.00.XXX";
10766
if ( CheckVersion($DBversion) ) {
10765
if ( CheckVersion($DBversion) ) {
10767
    foreach my $format (@{ GetSupportList() }) {
10766
    my $query = q{ SELECT * FROM itemtypes ORDER BY description };
10768
        $dbh->do(q|
10767
    my $sth   = C4::Context->dbh->prepare($query);
10768
    $sth->execute;
10769
    $suggestion_formats = $sth->fetchall_arrayref( {} );
10770
10771
    foreach my $format (@$suggestion_formats) {
10772
        $dbh->do(
10773
            q|
10769
            INSERT IGNORE INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl)
10774
            INSERT IGNORE INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl)
10770
            VALUES (?, ?, ?, ?, ?)
10775
            VALUES (?, ?, ?, ?, ?)
10771
        |, {},
10776
        |, {},
10772
            'SUGGEST_FORMAT', $format->{itemtype}, $format->{description}, $format->{description}, $format->{imageurl}
10777
            'SUGGEST_FORMAT', $format->{itemtype}, $format->{description}, $format->{description},
10778
            $format->{imageurl}
10773
        );
10779
        );
10774
    }
10780
    }
10775
    print "Upgrade to $DBversion done (Bug 9468: create new SUGGEST_FORMAT authorised_value list)\n";
10781
    print "Upgrade to $DBversion done (Bug 9468: create new SUGGEST_FORMAT authorised_value list)\n";
10776
- 

Return to bug 9468