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