|
Lines 154-160
sub marc_framework_sql_list {
Link Here
|
| 154 |
my @lines; |
154 |
my @lines; |
| 155 |
if ( $ext =~ /yml/ ) { |
155 |
if ( $ext =~ /yml/ ) { |
| 156 |
my $yaml = YAML::XS::LoadFile("$dir/$requirelevel/$name\.$ext"); |
156 |
my $yaml = YAML::XS::LoadFile("$dir/$requirelevel/$name\.$ext"); |
| 157 |
@lines = map { Encode::decode('UTF-8', $_) } @{ $yaml->{'description'} }; |
157 |
@lines = @{ $yaml->{'description'} }; |
| 158 |
} else { |
158 |
} else { |
| 159 |
open my $fh, "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
159 |
open my $fh, "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
| 160 |
my $line = <$fh>; |
160 |
my $line = <$fh>; |
|
Lines 237-243
sub sample_data_sql_list {
Link Here
|
| 237 |
my @lines; |
237 |
my @lines; |
| 238 |
if ( $ext =~ /yml/ ) { |
238 |
if ( $ext =~ /yml/ ) { |
| 239 |
my $yaml = YAML::XS::LoadFile("$dir/$requirelevel/$name\.$ext"); |
239 |
my $yaml = YAML::XS::LoadFile("$dir/$requirelevel/$name\.$ext"); |
| 240 |
@lines = map { Encode::decode('UTF-8', $_) } @{ $yaml->{'description'} }; |
240 |
@lines = @{ $yaml->{'description'} }; |
| 241 |
} else { |
241 |
} else { |
| 242 |
open my $fh, "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
242 |
open my $fh, "<:encoding(UTF-8)", "$dir/$requirelevel/$name.txt"; |
| 243 |
my $line = <$fh>; |
243 |
my $line = <$fh>; |
| 244 |
- |
|
|