|
Lines 23-28
use strict;
Link Here
|
| 23 |
our $VERSION = 3.07.00.049; |
23 |
our $VERSION = 3.07.00.049; |
| 24 |
use C4::Context; |
24 |
use C4::Context; |
| 25 |
use C4::Installer::PerlModules; |
25 |
use C4::Installer::PerlModules; |
|
|
26 |
use Encode; |
| 26 |
|
27 |
|
| 27 |
=head1 NAME |
28 |
=head1 NAME |
| 28 |
|
29 |
|
|
Lines 156-163
sub marc_framework_sql_list {
Link Here
|
| 156 |
open my $fh, "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
157 |
open my $fh, "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
| 157 |
my $lines = <$fh>; |
158 |
my $lines = <$fh>; |
| 158 |
$lines =~ s/\n|\r/<br \/>/g; |
159 |
$lines =~ s/\n|\r/<br \/>/g; |
| 159 |
use utf8; |
160 |
|
| 160 |
utf8::encode($lines) unless ( utf8::is_utf8($lines) ); |
161 |
$lines = encode('UTF-8',$lines) unless ( utf8::is_utf8($lines) ); |
| 161 |
my $mandatory = ($requirelevel =~ /(mandatory|requi|oblig|necess)/i); |
162 |
my $mandatory = ($requirelevel =~ /(mandatory|requi|oblig|necess)/i); |
| 162 |
push @frameworklist, |
163 |
push @frameworklist, |
| 163 |
{ |
164 |
{ |
|
Lines 234-241
sub sample_data_sql_list {
Link Here
|
| 234 |
open my $fh , "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
235 |
open my $fh , "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
| 235 |
my $lines = <$fh>; |
236 |
my $lines = <$fh>; |
| 236 |
$lines =~ s/\n|\r/<br \/>/g; |
237 |
$lines =~ s/\n|\r/<br \/>/g; |
| 237 |
use utf8; |
238 |
|
| 238 |
utf8::encode($lines) unless ( utf8::is_utf8($lines) ); |
239 |
$lines = encode('UTF-8',$lines) unless ( utf8::is_utf8($lines) ); |
| 239 |
my $mandatory = ($requirelevel =~ /(mandatory|requi|oblig|necess)/i); |
240 |
my $mandatory = ($requirelevel =~ /(mandatory|requi|oblig|necess)/i); |
| 240 |
push @frameworklist, |
241 |
push @frameworklist, |
| 241 |
{ |
242 |
{ |
| 242 |
- |
|
|