From d1faa61660914c0a9e6959b722ecc2dc4d8b727b Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Mon, 24 Aug 2015 06:46:30 -0400 Subject: [PATCH] Bug 9468 [QA Followup] - Remove GetSupportList dependency from updatadatabase.pl Signed-off-by: Jonathan Druart --- installer/data/mysql/updatedatabase.pl | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index 0925265..828462f 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -39,7 +39,6 @@ use C4::Installer; use C4::Dates; use Koha::Database; use Koha; -use C4::Koha qw/GetSupportList/; use MARC::Record; use MARC::File::XML ( BinaryEncoding => 'utf8' ); @@ -10762,14 +10761,21 @@ if ( CheckVersion($DBversion) ) { SetVersion ($DBversion); } -$DBversion = "3.19.00.XXX"; +$DBversion = "3.21.00.XXX"; if ( CheckVersion($DBversion) ) { - foreach my $format (@{ GetSupportList() }) { - $dbh->do(q| + my $query = q{ SELECT * FROM itemtypes ORDER BY description }; + my $sth = C4::Context->dbh->prepare($query); + $sth->execute; + $suggestion_formats = $sth->fetchall_arrayref( {} ); + + foreach my $format (@$suggestion_formats) { + $dbh->do( + q| INSERT IGNORE INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl) VALUES (?, ?, ?, ?, ?) |, {}, - 'SUGGEST_FORMAT', $format->{itemtype}, $format->{description}, $format->{description}, $format->{imageurl} + 'SUGGEST_FORMAT', $format->{itemtype}, $format->{description}, $format->{description}, + $format->{imageurl} ); } print "Upgrade to $DBversion done (Bug 9468: create new SUGGEST_FORMAT authorised_value list)\n"; -- 2.1.0