/[webpac]/branches/humanistika/all2xml.pl
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/all2xml.pl

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

revision 458 by dpavlin, Tue Sep 21 16:53:44 2004 UTC revision 489 by dpavlin, Wed Sep 29 18:56:26 2004 UTC
# Line 811  print STDERR "using: $type...\n"; Line 811  print STDERR "using: $type...\n";
811                          for(my $iC = $oWorksheet->{MinCol} ; defined $oWorksheet->{MaxCol} && $iC <= $oWorksheet->{MaxCol} ; $iC++) {                          for(my $iC = $oWorksheet->{MinCol} ; defined $oWorksheet->{MaxCol} && $iC <= $oWorksheet->{MaxCol} ; $iC++) {
812                                  my $cell = $oWorksheet->{Cells}[$iR][$iC];                                  my $cell = $oWorksheet->{Cells}[$iR][$iC];
813                                  if ($cell) {                                  if ($cell) {
814                                          $row->{int2col($iC)} = $cell->Value;                                          # this conversion is a cludge.
815                                            # Files from Excell could have
816                                            # characters which don't fit into
817                                            # destination encoding.
818                                            $row->{int2col($iC)} = $utf2cp->convert($cell->Value) || $cell->Value;
819                                  }                                  }
820                          }                          }
821    

Legend:
Removed from v.458  
changed lines
  Added in v.489

  ViewVC Help
Powered by ViewVC 1.1.26