Lines 137-151
sub marc_framework_sql_list {
Link Here
|
137 |
map { |
137 |
map { |
138 |
my $name = substr( $_, 0, -4 ); |
138 |
my $name = substr( $_, 0, -4 ); |
139 |
open my $fh, "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
139 |
open my $fh, "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
140 |
my $lines = <$fh>; |
140 |
my $line = <$fh>; |
141 |
$lines =~ s/\n|\r/<br \/>/g; |
141 |
$line = Encode::encode('UTF-8', $line) unless ( Encode::is_utf8($line) ); |
142 |
$lines = Encode::encode('UTF-8', $lines) unless ( Encode::is_utf8($lines) ); |
142 |
my @lines = split /\n/, $line; |
143 |
my $mandatory = ($requirelevel =~ /(mandatory|requi|oblig|necess)/i); |
143 |
my $mandatory = ($requirelevel =~ /(mandatory|requi|oblig|necess)/i); |
144 |
push @frameworklist, |
144 |
push @frameworklist, |
145 |
{ |
145 |
{ |
146 |
'fwkname' => $name, |
146 |
'fwkname' => $name, |
147 |
'fwkfile' => "$dir/$requirelevel/$_", |
147 |
'fwkfile' => "$dir/$requirelevel/$_", |
148 |
'fwkdescription' => $lines, |
148 |
'fwkdescription' => \@lines, |
149 |
'checked' => ( ( $frameworksloaded{$_} || $mandatory ) ? 1 : 0 ), |
149 |
'checked' => ( ( $frameworksloaded{$_} || $mandatory ) ? 1 : 0 ), |
150 |
'mandatory' => $mandatory, |
150 |
'mandatory' => $mandatory, |
151 |
}; |
151 |
}; |
Lines 214-228
sub sample_data_sql_list {
Link Here
|
214 |
map { |
214 |
map { |
215 |
my $name = substr( $_, 0, -4 ); |
215 |
my $name = substr( $_, 0, -4 ); |
216 |
open my $fh , "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
216 |
open my $fh , "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
217 |
my $lines = <$fh>; |
217 |
my $line = <$fh>; |
218 |
$lines =~ s/\n|\r/<br \/>/g; |
218 |
$line = Encode::encode('UTF-8', $line) unless ( Encode::is_utf8($line) ); |
219 |
$lines = Encode::encode('UTF-8', $lines) unless ( Encode::is_utf8($lines) ); |
219 |
my @lines = split /\n/, $line; |
220 |
my $mandatory = ($requirelevel =~ /(mandatory|requi|oblig|necess)/i); |
220 |
my $mandatory = ($requirelevel =~ /(mandatory|requi|oblig|necess)/i); |
221 |
push @frameworklist, |
221 |
push @frameworklist, |
222 |
{ |
222 |
{ |
223 |
'fwkname' => $name, |
223 |
'fwkname' => $name, |
224 |
'fwkfile' => "$dir/$requirelevel/$_", |
224 |
'fwkfile' => "$dir/$requirelevel/$_", |
225 |
'fwkdescription' => $lines, |
225 |
'fwkdescription' => \@lines, |
226 |
'checked' => ( ( $frameworksloaded{$_} || $mandatory ) ? 1 : 0 ), |
226 |
'checked' => ( ( $frameworksloaded{$_} || $mandatory ) ? 1 : 0 ), |
227 |
'mandatory' => $mandatory, |
227 |
'mandatory' => $mandatory, |
228 |
}; |
228 |
}; |