/[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 1107 by dpavlin, Mon Aug 4 21:47:27 2008 UTC
# Line 113  sub add { Line 113  sub add {
113          my $worksheet = $self->worksheet || $log->logconfess("no worksheet?");          my $worksheet = $self->worksheet || $log->logconfess("no worksheet?");
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                    my $val = $hash->{$col};
118                    # protect data which looks like forula
119                    $val = "'$val" if $val =~ m/^=/;
120                  $log->debug("$col$l|$val");                  $log->debug("$col$l|$val");
121                  $worksheet->write( $col . $l , $val );                  $worksheet->write( $col . $l , $val );
122                  $cols++;                  $cols++;
Legend:
Removed from v.1071  
changed lines
  Added in v.1107
  ViewVC Help
Powered by ViewVC 1.1.26