/[webpac]/branches/cpi/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/cpi/parse_format.pm

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

revision 43 by dpavlin, Sat Mar 22 22:43:05 2003 UTC revision 46 by dpavlin, Sun Mar 23 01:14:59 2003 UTC
# Line 27  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                                  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";
# Line 44  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                                  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                          }                          }

Legend:
Removed from v.43  
changed lines
  Added in v.46

  ViewVC Help
Powered by ViewVC 1.1.26