From b338a40e807dbbb064073d8cc1779a1e7ba8a021 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Mon, 25 Aug 2014 13:24:03 +0200 Subject: [PATCH] Bug 7817: QA Follow-up: Print a warning when permanent location is mapped Item field permanent location should not be mapped to the MARC structure. If a library did so, this dbrev will print a warning. If refers to report 12818 for help in moving the data to more_subfields_xml. Signed-off-by: Marcel de Rooy Tested by putting permanent_location in and out of the MARC structure. Signed-off-by: Tomas Cohen Arazi --- installer/data/mysql/updatedatabase.pl | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index 8018db19ac..a01abe26f6 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -8728,6 +8728,20 @@ if (C4::Context->preference("Version") < TransformToNum($DBversion)) { SetVersion ($DBversion); } +$DBversion = '3.17.00.XXX'; +if ( CheckVersion($DBversion) ) { + my @temp= $dbh->selectrow_array(qq| + SELECT count(*) + FROM marc_subfield_structure + WHERE kohafield='permanent_location' OR kohafield='items.permanent_location' + |); + print "Upgrade to $DBversion done (Bug 7817: Check for permanent_location)\n"; + if( $temp[0] ) { + print "WARNING for Koha administrator: Your database contains one or more mappings for permanent_location to the MARC structure. This item field however is for internal use and should not be linked to a MARC (sub)field. Please correct it. See also Bugzilla reports 7817 and 12818.\n"; + } + SetVersion($DBversion); +} + =head1 FUNCTIONS =head2 TableExists($table) -- 2.39.5