undef $/;
my $dir =
C4::Context->config('intranetdir') . "/installer/data/$info{dbms}/$langchoice/marcflavour/".lc($marcflavour);
- opendir( MYDIR, $dir ) || warn "no open $dir";
+ unless (opendir( MYDIR, $dir )) {
+ if ($langchoice eq 'en') {
+ warn "cannot open MARC frameworks directory $dir";
+ } else {
+ # if no translated MARC framework is available,
+ # default to English
+ $dir = C4::Context->config('intranetdir') . "/installer/data/$info{dbms}/en/marcflavour/".lc($marcflavour);
+ opendir(MYDIR, $dir) or warn "cannot open English MARC frameworks directory $dir";
+ $template->param('en_marc_frameworks' => 1);
+ }
+ }
my @listdir = sort grep { !/^\.|marcflavour/ && -d "$dir/$_" } readdir(MYDIR);
closedir MYDIR;
$dir =
C4::Context->config('intranetdir') . "/installer/data/$info{dbms}/$langchoice";
- opendir( MYDIR, $dir ) || warn "no open $dir";
+ unless (opendir( MYDIR, $dir )) {
+ if ($langchoice eq 'en') {
+ warn "cannot open sample data directory $dir";
+ } else {
+ # if no sample data is available,
+ # default to English
+ $dir = C4::Context->config('intranetdir') . "/installer/data/$info{dbms}/en";
+ opendir(MYDIR, $dir) or warn "cannot open English sample data directory $dir";
+ $template->param('en_sample_data' => 1);
+ }
+ }
@listdir = sort grep { !/^\.|marcflavour/ && -d "$dir/$_" } readdir(MYDIR);
closedir MYDIR;
my @levellist;
$langchoice = $query->cookie('KohaOpacLanguage') unless ($langchoice);
my $dir =
C4::Context->config('intranetdir') . "/installer/data/$info{dbms}/$langchoice/marcflavour";
- opendir( MYDIR, $dir ) || warn "no open $dir";
+ unless (opendir( MYDIR, $dir )) {
+ if ($langchoice eq 'en') {
+ warn "cannot open MARC frameworks directory $dir";
+ } else {
+ # if no translated MARC framework is available,
+ # default to English
+ $dir = C4::Context->config('intranetdir') . "/installer/data/$info{dbms}/en/marcflavour";
+ opendir(MYDIR, $dir) or warn "cannot open English MARC frameworks directory $dir";
+ }
+ }
my @listdir = grep { !/^\./ && -d "$dir/$_" } readdir(MYDIR);
closedir MYDIR;
my $marcflavour=C4::Context->preference("marcflavour");
<!--TMPL_IF Name="frameworksloop"-->
<h2>MARC Frameworks: <!--TMPL_VAR Name="marcflavour"--></h2>
+ <!-- TMPL_IF Name="en_marc_frameworks" -->
+ <h4><span class="error">No MARC frameworks are available for your language.
+ Defaulting to the frameworks supplied for English (en)<span></h4>
+ <!-- /TMPL_IF -->
<!--TMPL_LOOP Name="frameworksloop"-->
<div>
<h3><!--TMPL_VAR Name="label"--></h3>
<!--/TMPL_LOOP-->
<h2>Other data</h2>
<!--/TMPL_IF -->
+ <!-- TMPL_IF Name="en_sample_data" -->
+ <h4><span class="error">No sample data and settings are available for your language.
+ Defaulting to the samples supplied for English (en)<span></h4>
+ <!-- /TMPL_IF -->
<!--TMPL_LOOP Name="levelloop"-->
<div>
<h3><!--TMPL_VAR Name="label"--></h3>