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

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

revision 302 by dpavlin, Fri Apr 2 22:49:32 2004 UTC revision 303 by dpavlin, Sun Apr 4 22:11:13 2004 UTC
# Line 224  sub parse_excel_format { Line 224  sub parse_excel_format {
224                  } elsif ($format =~ s/^([^A-Z\|]+)(\|[A-Z]{1,2}\|)/$2/) {                  } elsif ($format =~ s/^([^A-Z\|]+)(\|[A-Z]{1,2}\|)/$2/) {
225                          $prefix .= $1 if ($display);                          $prefix .= $1 if ($display);
226                  } else {                  } else {
227                          print STDERR "unparsed format: $format\n";                          #print STDERR "unparsed format: $format\n";
228                          $prefix .= $format;                          $prefix .= $format;
229                          $format = "";                          $format = "";
230                  }                  }

Legend:
Removed from v.302  
changed lines
  Added in v.303

  ViewVC Help
Powered by ViewVC 1.1.26