1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use strict; |
use strict; |
4 |
use Biblio::Isis 0.12; |
use Biblio::Isis; |
5 |
use Getopt::Std; |
use Getopt::Std; |
6 |
use Data::Dumper; |
use Data::Dumper; |
7 |
use XML::Simple; |
use XML::Simple; |
633 |
|
|
634 |
foreach my $database ($cfg->Sections) { |
foreach my $database ($cfg->Sections) { |
635 |
|
|
636 |
|
# save database name in global variable path for later |
637 |
|
# (need for index filter creation) |
638 |
|
$path = $database; |
639 |
|
|
640 |
my $type = lc($cfg -> val($database, 'type')) || die "$database doesn't have 'type' defined"; |
my $type = lc($cfg -> val($database, 'type')) || die "$database doesn't have 'type' defined"; |
641 |
my $add_xml = $cfg -> val($database, 'xml'); # optional |
my $add_xml = $cfg -> val($database, 'xml'); # optional |
642 |
|
|
747 |
next; |
next; |
748 |
} |
} |
749 |
|
|
750 |
my $max_rowid = $db->count; |
my $max_rowid = $db->count if ($db); |
751 |
|
|
752 |
print STDERR "Reading database: $isis_db [$max_rowid rows]\n"; |
print STDERR "Reading database: $isis_db [$max_rowid rows]\n"; |
753 |
|
|
|
$path = $database; |
|
|
|
|
754 |
for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) { |
for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) { |
755 |
my $row = $db->to_hash( $row_id ); |
my $row = $db->to_hash( $row_id ); |
756 |
if ($row) { |
if ($row) { |
832 |
print "Document-Type: XML\n\n$xml\n"; |
print "Document-Type: XML\n\n$xml\n"; |
833 |
} |
} |
834 |
} |
} |
835 |
|
|
836 |
|
print STDERR "\n"; |
837 |
|
|
838 |
} elsif ($type_base eq "marc") { |
} elsif ($type_base eq "marc") { |
839 |
|
|
840 |
require MARC::File::USMARC; |
require MARC::File::USMARC; |