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

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

revision 1055 by dpavlin, Tue Nov 20 09:30:58 2007 UTC revision 1105 by dpavlin, Mon Aug 4 19:35:23 2008 UTC
# Line 118  sub fetch_rec { Line 118  sub fetch_rec {
118          $log->debug("fetch_rec( $mfn ) row: $row cols: ",$sheet->{MinCol}," - ",$sheet->{MaxCol});          $log->debug("fetch_rec( $mfn ) row: $row cols: ",$sheet->{MinCol}," - ",$sheet->{MaxCol});
119    
120          foreach my $col ( $sheet->{MinCol} ... $sheet->{MaxCol} ) {          foreach my $col ( $sheet->{MinCol} ... $sheet->{MaxCol} ) {
121                  if (my $v = $sheet->{Cells}->[$row]->[$col]->{Val}) {                  if (my $v = $sheet->{Cells}->[$row]->[$col]->{_Value}) {        ## XXX _Value = formatted | Val = unformated !
122                          $rec->{ int2col($col) } = $v;                          $rec->{ int2col($col) } = $v;
123                  }                  }
124          }          }
# Line 141  sub size { Line 141  sub size {
141          my $self = shift;          my $self = shift;
142          return $self->{size};          return $self->{size};
143  }  }
144    
145    sub default_encoding { 'UTF-16' }
146    
147  =head1 AUTHOR  =head1 AUTHOR
148    
149  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
Legend:
Removed from v.1055  
changed lines
  Added in v.1105
  ViewVC Help
Powered by ViewVC 1.1.26