9 |
my $format = shift; |
my $format = shift; |
10 |
my $row = shift; |
my $row = shift; |
11 |
my $i = shift || 0; # isis repeatable number |
my $i = shift || 0; # isis repeatable number |
12 |
|
my $codepage = shift || die; |
13 |
|
|
14 |
my $out; |
my $out; |
15 |
my $out_swish; |
my $out_swish; |
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 |
|
$isis_tmp = $codepage->convert($isis_tmp) if ($codepage); |
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 |
|
$isis_tmp = $codepage->convert($isis_tmp) if ($codepage); |
43 |
$display .= $prefix . $isis_tmp; |
$display .= $prefix . $isis_tmp; |
44 |
$swish .= $isis_tmp." "; |
$swish .= $isis_tmp." "; |
45 |
} |
} |