View | Details | Raw Unified | Return to bug 9752
Collapse All | Expand All

(-)a/C4/Installer.pm (-4 / +4 lines)
Lines 408-417 sub load_sql_in_order { Link Here
408
Set the 'marcflavour' system preference.  The incoming
408
Set the 'marcflavour' system preference.  The incoming
409
C<$marcflavour> references to a subdirectory of
409
C<$marcflavour> references to a subdirectory of
410
installer/data/$dbms/$lang/marcflavour, and is
410
installer/data/$dbms/$lang/marcflavour, and is
411
normalized to MARC21 or UNIMARC.
411
normalized to MARC21, UNIMARC or NORMARC.
412
412
413
FIXME: this method assumes that the MARC flavour will be either
413
FIXME: this method assumes that the MARC flavour will be either
414
MARC21 or UNIMARC.
414
MARC21, UNIMARC or NORMARC.
415
415
416
=cut
416
=cut
417
417
Lines 423-431 sub set_marcflavour_syspref { Link Here
423
    # marc_cleaned finds the marcflavour, without the variant.
423
    # marc_cleaned finds the marcflavour, without the variant.
424
    my $marc_cleaned = 'MARC21';
424
    my $marc_cleaned = 'MARC21';
425
    $marc_cleaned = 'UNIMARC' if $marcflavour =~ /unimarc/i;
425
    $marc_cleaned = 'UNIMARC' if $marcflavour =~ /unimarc/i;
426
    $marc_cleaned = 'NORMARC' if $marcflavour =~ /normarc/i;
426
    my $request =
427
    my $request =
427
        $self->{'dbh'}->prepare(
428
        $self->{'dbh'}->prepare(
428
          "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');"
429
          "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');"
429
        );
430
        );
430
    $request->execute;
431
    $request->execute;
431
}
432
}
432
- 

Return to bug 9752