/[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

trunk/parse_format.pm revision 263 by dpavlin, Fri Mar 12 15:06:58 2004 UTC branches/humanistika/parse_format.pm revision 303 by dpavlin, Sun Apr 4 22:11:13 2004 UTC
# Line 163  sub parse_iso_format { Line 163  sub parse_iso_format {
163                  sub fld2str {                  sub fld2str {
164                          my ($func,$row,$f,$sf,$i) = @_;                          my ($func,$row,$f,$sf,$i) = @_;
165  #print STDERR "## in fld2str\n";  #print STDERR "## in fld2str\n";
166                          my $tmp = &$func($row,$f,$sf,$i) || '';                          my $tmp = $codepage->convert(&$func($row,$f,$sf,$i)) || '';
167                          return "'$tmp'";                          return "'$tmp'";
168                  }                  }
169    
# 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.263  
changed lines
  Added in v.303

  ViewVC Help
Powered by ViewVC 1.1.26