/[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 1100 by dpavlin, Sat Aug 2 23:46:41 2008 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          }          }
Legend:
Removed from v.1100  
changed lines
  Added in v.1105
  ViewVC Help
Powered by ViewVC 1.1.26