my $langchoice = $query->param('fwklanguage');
$langchoice = $query->cookie('KohaOpacLanguage') unless ($langchoice);
my $marcflavour = $query->param('marcflavour');
+ if ($marcflavour){
+ my $request =
+ $dbh->prepare(
+ "INSERT IGNORE INTO `systempreferences` (variable,value,explanation,options,type) VALUES('marcflavour','$marcflavour','Define global MARC flavor (MARC21 or UNIMARC) used for character encoding','MARC21|UNIMARC','Choice');"
+ );
+ $request->execute;
+ };
$marcflavour = C4::Context->preference('marcflavour') unless ($marcflavour);
#Insert into database the selected marcflavour
- my $request =
- $dbh->prepare(
- "INSERT INTO `systempreferences` (variable,value,explanation,options,type) VALUES('marcflavour','$marcflavour','Define global MARC flavor (MARC21 or UNIMARC) used for character encoding','MARC21|UNIMARC','Choice');"
- );
- $request->execute;
undef $/;
my $dir =
$request->execute;
my ($frameworksloaded) = $request->fetchrow;
my %frameworksloaded;
-
foreach ( split( /\|/, $frameworksloaded ) ) {
$frameworksloaded{$_} = 1;
}
+
foreach my $requirelevel (@listdir) {
opendir( MYDIR, "$dir/$requirelevel" );
my @listname =
@listdir = sort grep { !/^\.|CVS|marcflavour/ && -d "$dir/$_" } readdir(MYDIR);
closedir MYDIR;
my @levellist;
- foreach ( split( /\|/, $frameworksloaded ) ) {
- $frameworksloaded{$_} = 1;
- }
foreach my $requirelevel (@listdir) {
opendir( MYDIR, "$dir/$requirelevel" );
my @listname =
<input type="hidden" name="step" value="3" />
<input type="hidden" name="op" value="addframeworks" />
+ <!--TMPL_IF Name="frameworksloop"-->
<h2>MARC Frameworks: <!--TMPL_VAR Name="marcflavour"--></h2>
<!--TMPL_LOOP Name="frameworksloop"-->
<div>
</p>
<!--/TMPL_LOOP-->
<h2>Other data</h2>
+ <!--/TMPL_IF -->
<!--TMPL_LOOP Name="levelloop"-->
<div>
<h3><!--TMPL_VAR Name="label"--></h3>