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

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

trunk/all2xml.pl revision 233 by dpavlin, Fri Mar 5 23:33:19 2004 UTC branches/hidra/all2xml.pl revision 249 by dpavlin, Mon Mar 8 21:10:02 2004 UTC
# Line 740  print STDERR "using: $type...\n"; Line 740  print STDERR "using: $type...\n";
740                  print STDERR "\n";                  print STDERR "\n";
741    
742          } elsif ($type_base eq "excel") {          } elsif ($type_base eq "excel") {
743                  use Spreadsheet::ParseExcel;                  require Spreadsheet::ParseExcel;
744                  use Spreadsheet::ParseExcel::Utility qw(int2col);                  require Spreadsheet::ParseExcel::Utility;
745                    import Spreadsheet::ParseExcel::Utility qw(int2col);
746                                    
747                  $import2cp = Text::Iconv->new($config->{excel_codepage},$codepage);                  $import2cp = Text::Iconv->new($config->{excel_codepage},$codepage);
748                  my $excel_file = $cfg -> val($database, 'excel_file') || die "$database doesn't have 'excel_file' defined!";                  my $excel_file = $cfg -> val($database, 'excel_file') || die "$database doesn't have 'excel_file' defined!";
# Line 795  print STDERR "using: $type...\n"; Line 796  print STDERR "using: $type...\n";
796                  }                  }
797          } elsif ($type_base eq "marc") {          } elsif ($type_base eq "marc") {
798    
799                  use MARC;                  require MARC;
800                                    
801                  $import2cp = Text::Iconv->new($config->{marc_codepage},$codepage);                  $import2cp = Text::Iconv->new($config->{marc_codepage},$codepage);
802                  my $marc_file = $cfg -> val($database, 'marc_file') || die "$database doesn't have 'marc_file' defined!";                  my $marc_file = $cfg -> val($database, 'marc_file') || die "$database doesn't have 'marc_file' defined!";
Legend:
Removed from v.233  
changed lines
  Added in v.249
  ViewVC Help
Powered by ViewVC 1.1.26