version 1.7, 2005/09/20 17:44:48
|
version 1.8, 2006/05/16 18:58:21
|
Line 10 use MPIWGStor;
|
Line 10 use MPIWGStor;
|
$|=1; |
$|=1; |
|
|
# program version |
# program version |
my $version = "0.2.2 (31.8.2005 ROC)"; |
my $version = "0.2.3 (16.5.2006 ROC)"; |
my $help = |
my $help = |
"use: makemeta-lib [options] file.xml |
"use: makemeta-lib [options] file.xml |
options: |
options: |
Line 417 sub process_fm_entry {
|
Line 417 sub process_fm_entry {
|
$index_root->addChild($index_doc->createAttributeNS($namespace, 'version', '1.1')); |
$index_root->addChild($index_doc->createAttributeNS($namespace, 'version', '1.1')); |
$index_root->addChild($index_doc->createAttributeNS($namespace, 'type', 'MPIWG')); |
$index_root->addChild($index_doc->createAttributeNS($namespace, 'type', 'MPIWG')); |
$index_doc->setDocumentElement($index_root); |
$index_doc->setDocumentElement($index_root); |
|
my $derived_from = ""; |
|
|
# try to find the document directory |
# try to find the document directory |
my $doc_dir = ""; |
my $doc_dir = ""; |
if ($online_mode) { |
if ($online_mode) { |
$doc_dir = find_permanent_dir($input_node); |
$doc_dir = find_permanent_dir($input_node); |
|
$derived_from = find_arch_dir($input_node); |
} elsif ($cw_mode) { |
} elsif ($cw_mode) { |
$doc_dir = find_cw_dir($input_node); |
$doc_dir = find_cw_dir($input_node); |
} elsif ($digifiles_mode) { |
} elsif ($digifiles_mode) { |
Line 450 sub process_fm_entry {
|
Line 452 sub process_fm_entry {
|
# media |
# media |
create_text_path('media-type', 'image', $index_root, $namespace); |
create_text_path('media-type', 'image', $index_root, $namespace); |
create_text_path('meta/content-type', 'scanned document', $index_root, $namespace); |
create_text_path('meta/content-type', 'scanned document', $index_root, $namespace); |
|
# derived-from |
|
if ($derived_from) { |
|
create_text_path('derived-from/archive-path', $derived_from, $index_root, $namespace); |
|
} |
|
|
# convert bib entries |
# convert bib entries |
my $cnt = convert_bib($input_node, $index_root, $index_doc); |
my $cnt = convert_bib($input_node, $index_root, $index_doc); |