/[webpac]/branches/ffzg/parse_format.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /branches/ffzg/parse_format.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 23 by dpavlin, Sun Feb 23 06:50:55 2003 UTC revision 40 by dpavlin, Sat Mar 15 21:33:36 2003 UTC
# Line 9  sub parse_format { Line 9  sub parse_format {
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;
# Line 26  sub parse_format { Line 27  sub parse_format {
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";
# Line 37  sub parse_format { Line 39  sub parse_format {
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                          }                          }

Legend:
Removed from v.23  
changed lines
  Added in v.40

  ViewVC Help
Powered by ViewVC 1.1.26