projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 9629 - Replace YUI button on patron category administration page with Bootstrap
[koha.git]
/
C4
/
Installer.pm
diff --git
a/C4/Installer.pm
b/C4/Installer.pm
index
c1f356f
..
304698e
100644
(file)
--- a/
C4/Installer.pm
+++ b/
C4/Installer.pm
@@
-154,8
+154,8
@@
sub marc_framework_sql_list {
my @frameworklist;
map {
my $name = substr( $_, 0, -4 );
my @frameworklist;
map {
my $name = substr( $_, 0, -4 );
- open
FILE, "<:utf8",
"$dir/$requirelevel/$name.txt";
- my $lines = <
FILE
>;
+ open
my $fh, "<:encoding(UTF-8)",
"$dir/$requirelevel/$name.txt";
+ my $lines = <
$fh
>;
$lines =~ s/\n|\r/<br \/>/g;
use utf8;
utf8::encode($lines) unless ( utf8::is_utf8($lines) );
$lines =~ s/\n|\r/<br \/>/g;
use utf8;
utf8::encode($lines) unless ( utf8::is_utf8($lines) );
@@
-232,8
+232,8
@@
sub sample_data_sql_list {
my @frameworklist;
map {
my $name = substr( $_, 0, -4 );
my @frameworklist;
map {
my $name = substr( $_, 0, -4 );
- open
FILE, "<:utf8",
"$dir/$requirelevel/$name.txt";
- my $lines = <
FILE
>;
+ open
my $fh , "<:encoding(UTF-8)",
"$dir/$requirelevel/$name.txt";
+ my $lines = <
$fh
>;
$lines =~ s/\n|\r/<br \/>/g;
use utf8;
utf8::encode($lines) unless ( utf8::is_utf8($lines) );
$lines =~ s/\n|\r/<br \/>/g;
use utf8;
utf8::encode($lines) unless ( utf8::is_utf8($lines) );