--- trunk/all2xml.pl 2004/03/05 23:33:19 233 +++ branches/hidra/all2xml.pl 2004/03/08 21:10:02 249 @@ -740,8 +740,9 @@ print STDERR "\n"; } elsif ($type_base eq "excel") { - use Spreadsheet::ParseExcel; - use Spreadsheet::ParseExcel::Utility qw(int2col); + require Spreadsheet::ParseExcel; + require Spreadsheet::ParseExcel::Utility; + import Spreadsheet::ParseExcel::Utility qw(int2col); $import2cp = Text::Iconv->new($config->{excel_codepage},$codepage); my $excel_file = $cfg -> val($database, 'excel_file') || die "$database doesn't have 'excel_file' defined!"; @@ -795,7 +796,7 @@ } } elsif ($type_base eq "marc") { - use MARC; + require MARC; $import2cp = Text::Iconv->new($config->{marc_codepage},$codepage); my $marc_file = $cfg -> val($database, 'marc_file') || die "$database doesn't have 'marc_file' defined!";