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

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

revision 10 by dpavlin, Thu Jan 16 17:35:54 2003 UTC revision 22 by dpavlin, Sun Feb 23 00:01:08 2003 UTC
# Line 29  sub parse_format { Line 29  sub parse_format {
29                                  $swish .= $isis_tmp." ";                                  $swish .= $isis_tmp." ";
30                          }                          }
31                          $prefix = "";                          $prefix = "";
32                    # this might be our local scpeciality -- fields 10 and 11
33                    # (as opposed to 010 and 011) so they are strictly listed
34                    # here
35                    } elsif ($format =~ s/^(1[01])//) {
36                            my $isis_tmp = isis_sf($row,$1,$2);
37                            if ($isis_tmp) {
38                                    $display .= $prefix . $isis_tmp;
39                                    $swish .= $isis_tmp." ";
40                            }
41                            $prefix = "";
42                  } elsif ($format =~ s/^([^\d]+)(\d{0,3})/$2/) {                  } elsif ($format =~ s/^([^\d]+)(\d{0,3})/$2/) {
43                          $prefix .= $1;                          $prefix .= $1;
44                  } elsif ($format =~ s/^([^\d]+\d{0,2})//) {                  } elsif ($format =~ s/^([^\d]+\d{0,2})//) {

Legend:
Removed from v.10  
changed lines
  Added in v.22

  ViewVC Help
Powered by ViewVC 1.1.26