Attachment 44510 Details for Bug 9468 – Bug 9468 [QA Followup] - Remove GetSupportList dependency from updatadatabase.pl

[patch] Bug 9468 [QA Followup] - Remove GetSupportList dependency from updatadatabase.pl

Bug-9468-QA-Followup---Remove-GetSupportList-depen.patch (text/plain), 1.89 KB, created by Kyle M Hall (khall) on 2015-11-05 13:43:14 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2015-11-05 13:43:14 UTC

Size: 1.89 KB

patch

obsolete

>From 842709b5772d3d74b23151133dd01d8ec3b97ac2 Mon Sep 17 00:00:00 2001
>From: Kyle M Hall <kyle@bywatersolutions.com>
>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 <jonathan.druart@bugs.koha-community.org>
>---
> installer/data/mysql/updatedatabase.pl |   16 +++++++++++-----
> 1 files changed, 11 insertions(+), 5 deletions(-)
>
>diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
>index 3054d0e..9c55fa6 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' );
>@@ -11311,14 +11310,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;
>+    my $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";
>-- 
>1.7.2.5

Actions: View | Diff | Splinter Review

Attachments on bug 9468: 14801 | 16647 | 16674 | 19086 | 21759 | 21760 | 22714 | 22715 | 27932 | 27933 | 27934 | 27935 | 37100 | 37101 | 37102 | 37103 | 38097 | 38163 | 38164 | 38165 | 38166 | 38167 | 38168 | 41822 | 41823 | 41824 | 41825 | 41826 | 41827 | 41828 | 41936 | 41937 | 41938 | 41939 | 41940 | 41941 | 41942 | 41943 | 44504 | 44505 | 44506 | 44507 | 44508 | 44509 | 44510