From bcf10e680f1ecb9d63264a35cce74ed7507b2358 Mon Sep 17 00:00:00 2001 From: Magnus Enger Date: Wed, 6 Mar 2013 15:20:59 +0100 Subject: [PATCH] Bug 9752 - Set marcflavour = NORMARC when NORMARC is chosen Currently, if you install the Norwegian translations and run through the web installer in Norwegian, choosing NORMARC as you marcflavour, the marcflavour syspref is set to MARC21. To test: - Apply the patch - Install nb-NO - Run through the web installer, choosing nb-NO as the language - Choose NORMARC as the MARC dialect - When the web installer is done, check the value of the marcflavour syspref. It should be NORMARC, not MARC21. --- C4/Installer.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/C4/Installer.pm b/C4/Installer.pm index 304698e..88e76a0 100644 --- a/C4/Installer.pm +++ b/C4/Installer.pm @@ -408,10 +408,10 @@ sub load_sql_in_order { Set the 'marcflavour' system preference. The incoming C<$marcflavour> references to a subdirectory of installer/data/$dbms/$lang/marcflavour, and is -normalized to MARC21 or UNIMARC. +normalized to MARC21, UNIMARC or NORMARC. FIXME: this method assumes that the MARC flavour will be either -MARC21 or UNIMARC. +MARC21, UNIMARC or NORMARC. =cut @@ -423,9 +423,10 @@ sub set_marcflavour_syspref { # marc_cleaned finds the marcflavour, without the variant. my $marc_cleaned = 'MARC21'; $marc_cleaned = 'UNIMARC' if $marcflavour =~ /unimarc/i; + $marc_cleaned = 'NORMARC' if $marcflavour =~ /normarc/i; my $request = $self->{'dbh'}->prepare( - "INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('marcflavour','$marc_cleaned','Define global MARC flavor (MARC21 or UNIMARC) used for character encoding','MARC21|UNIMARC','Choice');" + "INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('marcflavour','$marc_cleaned','Define global MARC flavor (MARC21, UNIMARC or NORMARC) used for character encoding','MARC21|UNIMARC|NORMARC','Choice');" ); $request->execute; } -- 1.7.9.5