/[webpac2]/trunk/lib/WebPAC/Output/Excel.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/lib/WebPAC/Output/Excel.pm

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

revision 1071 by dpavlin, Wed Nov 28 00:01:34 2007 UTC revision 1072 by dpavlin, Wed Nov 28 00:25:11 2007 UTC
# Line 114  sub add { Line 114  sub add {
114          foreach my $col ( sort grep { /^[A-Z]/ } keys %$hash ) {          foreach my $col ( sort grep { /^[A-Z]/ } keys %$hash ) {
115                  # FIXME internal WebPAC encoding is ISO-8859-2                  # FIXME internal WebPAC encoding is ISO-8859-2
116                  my $val = decode('ISO-8859-2', $hash->{$col});                  my $val = decode('ISO-8859-2', $hash->{$col});
117                    # protect data which looks like forula
118                    $val = "'$val" if $val =~ m/^=/;
119                  $log->debug("$col$l|$val");                  $log->debug("$col$l|$val");
120                  $worksheet->write( $col . $l , $val );                  $worksheet->write( $col . $l , $val );
121                  $cols++;                  $cols++;
Legend:
Removed from v.1071  
changed lines
  Added in v.1072
  ViewVC Help
Powered by ViewVC 1.1.26