- my $dir = C4::Context->config('intranetdir') . "/installer/data/";
- opendir( MYDIR, $dir );
- my @listdir = grep { !/^\.|CVS/ && -d "$dir/$_" } readdir(MYDIR);
- closedir MYDIR;
- my $frmwklangs = getFrameworkLanguages();
- my @languages;
- map {
- push @languages,
- {
- 'dirname' => $_->{'language_code'},
- 'languagedescription' => $_->{'language_name'},
- 'checked' => ( $_->{'language_code'} eq $langchoice )
- }
- if ( $_->{'language_code'} );
- } @$frmwklangs;
- $template->param( "languagelist" => \@languages );
- undef $/;
- $dir =
- C4::Context->config('intranetdir') . "/installer/data/$langchoice";
- opendir( MYDIR, $dir ) || warn "no open $dir";
- @listdir = grep { !/^\.|CVS/ && -d "$dir/$_" } readdir(MYDIR);
- closedir MYDIR;
- my @levellist;
- my $request =
- $dbh->prepare(
-"SELECT value FROM systempreferences WHERE variable='FrameworksLoaded'"
- );
- $request->execute;
- my ($frameworksloaded) = $request->fetchrow;
- my %frameworksloaded;
-
- foreach ( split( /\|/, $frameworksloaded ) ) {
- $frameworksloaded{$_} = 1;
- }
- foreach my $requirelevel (@listdir) {
- $dir =
- C4::Context->config('intranetdir')
- . "/installer/data/$langchoice/$requirelevel";
- opendir( MYDIR, $dir );
- my @listname =
- grep { !/^\.|CVS/ && -f "$dir/$_" && $_ =~ m/\.sql$/ }
- readdir(MYDIR);
- closedir MYDIR;
- my %cell;
- my @frameworklist;
- map {
- my $name = substr( $_, 0, -4 );
- open FILE, "< $dir/$name.txt";
- my $lines = <FILE>;
- $lines =~ s/\n|\r/<br \/>/g;
- use utf8;
- utf8::encode($lines) unless ( utf8::is_utf8($lines) );
- push @frameworklist,
- {
- 'fwkname' => $name,
- 'fwkfile' => "$dir/$_",
- 'fwkdescription' => $lines,
- 'checked' => (
- (
- $frameworksloaded{$_}
- || ( $requirelevel =~
- /(mandatory|requi|oblig|necess)/i )
- ) ? 1 : 0
- )
- };
- } @listname;
- my @fwks =
- sort { $a->{'fwkname'} lt $b->{'fwkname'} } @frameworklist;
-
- # $cell{"mandatory"}=($requirelevel=~/(mandatory|requi|oblig|necess)/i);
- $cell{"frameworks"} = \@fwks;
- $cell{"label"} = ucfirst($requirelevel);
- $cell{"code"} = lc($requirelevel);
- push @levellist, \%cell;
- }
- $template->param( "levelloop" => \@levellist );
+ my $marcflavour = $query->param('marcflavour');
+ if ($marcflavour){
+ $installer->set_marcflavour_syspref($marcflavour);
+ };
+ $marcflavour = C4::Context->preference('marcflavour') unless ($marcflavour);
+ #Insert into database the selected marcflavour
+ undef $/;
+ my ($marc_defaulted_to_en, $fwklist) = $installer->marc_framework_sql_list($langchoice, $marcflavour);
+ $template->param('en_marc_frameworks' => $marc_defaulted_to_en);
+ $template->param( "frameworksloop" => $fwklist );
+ $template->param( "marcflavour" => ucfirst($marcflavour));
+
+ my ($sample_defaulted_to_en, $levellist) = $installer->sample_data_sql_list($langchoice, $marcflavour);
+ $template->param( "en_sample_data" => $sample_defaulted_to_en);
+ $template->param( "levelloop" => $levellist );