27 |
if ($format =~ s/^(\d\d\d)(\w?)//) { |
if ($format =~ s/^(\d\d\d)(\w?)//) { |
28 |
my $isis_tmp = isis_sf($row,$1,$2,$i); |
my $isis_tmp = isis_sf($row,$1,$2,$i); |
29 |
if ($isis_tmp) { |
if ($isis_tmp) { |
30 |
eval { |
$isis_tmp = $codepage->convert($isis_tmp) if ($codepage); |
|
$isis_tmp = $codepage->convert($isis_tmp) if ($codepage); |
|
|
}; |
|
|
if ($@) { |
|
|
print STDERR "FATAL: something bad happend while trying to convert '$isis_tmp' [mfn: ",$row->{mfn},"]\n" |
|
|
} |
|
31 |
$display .= $prefix . $isis_tmp; |
$display .= $prefix . $isis_tmp; |
32 |
$swish .= $isis_tmp." "; |
$swish .= $isis_tmp." "; |
33 |
#print STDERR " == $isis_tmp"; |
#print STDERR " == $isis_tmp"; |
39 |
} elsif ($format =~ s/^(1[01])//) { |
} elsif ($format =~ s/^(1[01])//) { |
40 |
my $isis_tmp = isis_sf($row,$1,undef,$i); |
my $isis_tmp = isis_sf($row,$1,undef,$i); |
41 |
if ($isis_tmp) { |
if ($isis_tmp) { |
42 |
eval { |
$isis_tmp = $codepage->convert($isis_tmp) if ($codepage); |
|
$isis_tmp = $codepage->convert($isis_tmp) if ($codepage); |
|
|
}; |
|
|
if ($@) { |
|
|
print STDERR "FATAL: something bad happend while trying to convert '$isis_tmp' [mfn: ",$row->{mfn},"]\n" |
|
|
} |
|
43 |
$display .= $prefix . $isis_tmp; |
$display .= $prefix . $isis_tmp; |
44 |
$swish .= $isis_tmp." "; |
$swish .= $isis_tmp." "; |
45 |
} |
} |