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 |
- |
|
|