next if $language =~/css$/;
next if $language =~/CVS$/;
next if $language =~/\.txt$/i; #Don't read the readme.txt !
- next if $language =~/img/;
+ next if $language =~/img|images/;
push @languages, $language;
}
return (@languages);
# we can have some variants of marc flavour, by having different directories, like : unimarc_small and unimarc_full, for small and complete unimarc frameworks.
# marc_cleaned finds the marcflavour, without the variant.
my $marc_cleaned = 'MARC21';
- $marc_cleaned = 'UNIMARC' if $marcflavour =~ /unimarc/;
+ $marc_cleaned = 'UNIMARC' if $marcflavour =~ /unimarc/i;
my $request =
$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');"