From e9fc802d5c56522f7f91b0cdfffb4b824c52731d Mon Sep 17 00:00:00 2001 From: Bernardo Gonzalez Kriegel Date: Sun, 29 Sep 2013 14:14:21 -0300 Subject: [PATCH] Bug 10970 - Update MARC21 frameworks to Update Nr. 17 - DB update Database counterpart of Bug 10962. Updates existing MARC21 default frameworks to Update Nr. 17 (September 2013) To test 1) Apply patch 2) run updatedatabase.pl 3) Verify new subtags biblio 015_q 020_q 024_q 027_q 800_7 810_7 811_7 830_7 authorities 020_q 024_q Signed-off-by: David Cook Signed-off-by: Marcel de Rooy Signed-off-by: Galen Charlton (cherry picked from commit f37a163e7573ac9dea46c0081ebe43bf37bf92c1) Signed-off-by: Fridolin SOMERS Conflicts: installer/data/mysql/updatedatabase.pl --- installer/data/mysql/updatedatabase.pl | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl index 5bc88e2799..f2032f28e3 100755 --- a/installer/data/mysql/updatedatabase.pl +++ b/installer/data/mysql/updatedatabase.pl @@ -7798,6 +7798,31 @@ if ( CheckVersion($DBversion) ) { SetVersion ($DBversion); } +$DBversion = "3.15.00.XXX"; +if ( CheckVersion($DBversion) ) { + $dbh->do(qq{ + INSERT IGNORE INTO marc_subfield_structure (tagfield, tagsubfield, liblibrarian, libopac, repeatable, mandatory, + kohafield, tab, authorised_value, authtypecode, value_builder, isurl, hidden, frameworkcode, seealso, link, + defaultvalue) VALUES + ('015', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL), + ('020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL), + ('024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL), + ('027', 'q', 'Qualifying information', 'Qualifying information', 1, 0, '', 0, '', '', '', 0, 0, '', '', '', NULL), + ('800', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL), + ('810', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL), + ('811', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL), + ('830', '7', 'Control subfield', 'Control subfield', 0, 0, '', 8, '', '', '', NULL, -6, '', '', '', NULL); + }); + $dbh->do(qq{ + INSERT IGNORE INTO auth_subfield_structure (authtypecode, tagfield, tagsubfield, liblibrarian, libopac, repeatable, + mandatory, tab, authorised_value, value_builder, seealso, isurl, hidden, linkid, kohafield, frameworkcode) VALUES + ('', '020', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL, NULL, NULL, 0, 0, '', '', ''), + ('', '024', 'q', 'Qualifying information', 'Qualifying information', 1, 0, 0, NULL, NULL, NULL, 0, 0, '', '', ''); + }); + print "Upgrade to $DBversion done (Bug 10970 - Update MARC21 frameworks to Update Nr. 17 - DB update)\n"; + SetVersion($DBversion); +} + =head1 FUNCTIONS =head2 TableExists($table) -- 2.39.5