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!"; |
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!"; |