View | Details | Raw Unified | Return to bug 6679
Collapse All | Expand All

(-)a/C4/Installer.pm (-5 / +4 lines)
Lines 154-161 sub marc_framework_sql_list { Link Here
154
        my @frameworklist;
154
        my @frameworklist;
155
        map {
155
        map {
156
            my $name = substr( $_, 0, -4 );
156
            my $name = substr( $_, 0, -4 );
157
            open FILE, "<:utf8","$dir/$requirelevel/$name.txt";
157
            open my $fh, "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt";
158
            my $lines = <FILE>;
158
            my $lines = <$fh>;
159
            $lines =~ s/\n|\r/<br \/>/g;
159
            $lines =~ s/\n|\r/<br \/>/g;
160
            use utf8;
160
            use utf8;
161
            utf8::encode($lines) unless ( utf8::is_utf8($lines) );
161
            utf8::encode($lines) unless ( utf8::is_utf8($lines) );
Lines 232-239 sub sample_data_sql_list { Link Here
232
        my @frameworklist;
232
        my @frameworklist;
233
        map {
233
        map {
234
            my $name = substr( $_, 0, -4 );
234
            my $name = substr( $_, 0, -4 );
235
            open FILE, "<:utf8","$dir/$requirelevel/$name.txt";
235
            open my $fh , "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt";
236
            my $lines = <FILE>;
236
            my $lines = <$fh>;
237
            $lines =~ s/\n|\r/<br \/>/g;
237
            $lines =~ s/\n|\r/<br \/>/g;
238
            use utf8;
238
            use utf8;
239
            utf8::encode($lines) unless ( utf8::is_utf8($lines) );
239
            utf8::encode($lines) unless ( utf8::is_utf8($lines) );
240
- 

Return to bug 6679