Attachment 27933 Details for Bug 9468 – Bug 9468: [COUNTER-PATCH] define new SUGGEST_FORMAT authorize value

[patch] Bug 9468: [COUNTER-PATCH] define new SUGGEST_FORMAT authorize value

Bug-9468-COUNTER-PATCH-define-new-SUGGESTFORMAT-au.patch (text/plain), 1.98 KB, created by Galen Charlton on 2014-05-05 00:32:01 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Galen Charlton

Created: 2014-05-05 00:32:01 UTC

Size: 1.98 KB

patch

obsolete

>From e65d47cb957c6af77ea8ca5ea340d1d76ce031df Mon Sep 17 00:00:00 2001
>From: Galen Charlton <gmc@esilibrary.com>
>Date: Mon, 5 May 2014 00:19:52 +0000
>Subject: [PATCH] Bug 9468: [COUNTER-PATCH] define new SUGGEST_FORMAT
> authorize value
>
>This patch defines a new authorized called SUGGEST_FORMAT for
>populating a list of patron-understandable formats for expressing
>how they would prefer suggested items to be purchased.  For
>database upgrades, it populates it based on the value returned by the
>GetSupportList() routine.
>
>To test
>-------
>[1] Run the database update.
>[2] Verify that there is a new authorised value called SUGGEST_FORMAT
>    whose codes and descriptions correspond to the list of "item types"
>    available on the patron suggestion form.
>
>Signed-off-by: Galen Charlton <gmc@esilibrary.com>
>---
> installer/data/mysql/updatedatabase.pl |   15 +++++++++++++++
> 1 file changed, 15 insertions(+)
>
>diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl
>index 5fc7902..cecc69a 100755
>--- a/installer/data/mysql/updatedatabase.pl
>+++ b/installer/data/mysql/updatedatabase.pl
>@@ -37,6 +37,7 @@ use Getopt::Long;
> use C4::Context;
> use C4::Installer;
> use C4::Dates;
>+use C4::Koha qw/GetSupportList/;
> 
> use MARC::Record;
> use MARC::File::XML ( BinaryEncoding => 'utf8' );
>@@ -8369,6 +8370,20 @@ if ( CheckVersion($DBversion) ) {
>     SetVersion($DBversion);
> }
> 
>+$DBversion = "3.15.00.XXX";
>+if ( CheckVersion($DBversion) ) {
>+    foreach my $format (@{ GetSupportList() }) {
>+        $dbh->do(
>+            q/INSERT INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl)
>+            VALUES (?, ?, ?, ?, ?)/,
>+            {},
>+            '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";
>+    SetVersion($DBversion);
>+}
>+
> =head1 FUNCTIONS
> 
> =head2 TableExists($table)
>-- 
>1.7.10.4

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