version 1.8, 2009/02/02 11:45:15
|
version 1.9, 2010/08/27 17:10:28
|
Line 10 use MPIWGStor;
|
Line 10 use MPIWGStor;
|
$|=1; |
$|=1; |
|
|
# program version |
# program version |
my $version = "0.2.6 (1.2.2009 ROC)"; |
my $version = "0.2.7 (27.8.2010 ROC)"; |
my $help = |
my $help = |
"use: makemeta-vlp [options] file.xml |
"use: makemeta-vlp [options] file.xml |
options: |
options: |
Line 20 options:
|
Line 20 options:
|
-online-mode mode for creating online/permanent files |
-online-mode mode for creating online/permanent files |
-archive-mode mode for creating archive/data files |
-archive-mode mode for creating archive/data files |
-access=free adds free access tag for online-mode |
-access=free adds free access tag for online-mode |
|
-texttool adds texttool tag for online-mode |
"; |
"; |
logger("INFO", "makemeta-vlp $version"); |
logger("INFO", "makemeta-vlp $version"); |
|
|
Line 120 my %subtype_map = (
|
Line 121 my %subtype_map = (
|
'Pages' => 'meta/bib/number-of-pages', |
'Pages' => 'meta/bib/number-of-pages', |
'#Cover pages only, articles have been extracted' => 'meta/bib/comment' |
'#Cover pages only, articles have been extracted' => 'meta/bib/comment' |
}, |
}, |
|
'Journal' => { |
|
'_name' => 'report', |
|
'Title' => 'meta/bib/title', |
|
'SecondaryTitle' => 'meta/bib/institution', |
|
'Author' => 'meta/bib/author', |
|
'Place_Published' => 'meta/bib/city', |
|
'Year' => 'meta/bib/year', |
|
'Date' => 'meta/bib/date', |
|
'Pages' => 'meta/bib/pages', |
|
}, |
'Magazine Article' => { |
'Magazine Article' => { |
'_name' => 'magazine-article', |
'_name' => 'magazine-article', |
'Author' => 'meta/bib/author', |
'Author' => 'meta/bib/author', |
Line 130 my %subtype_map = (
|
Line 141 my %subtype_map = (
|
'Date' => 'meta/bib/issue-date', |
'Date' => 'meta/bib/issue-date', |
'Pages' => 'meta/bib/pages' |
'Pages' => 'meta/bib/pages' |
}, |
}, |
|
'Newspaper Article' => { |
|
'_name' => 'newspaper-article', |
|
'Author' => 'meta/bib/author', |
|
'Title' => 'meta/bib/title', |
|
'Year' => 'meta/bib/year', |
|
'Secondary_Title' => 'meta/bib/newspaper', |
|
'Date' => 'meta/bib/issue-date', |
|
'Pages' => 'meta/bib/pages' |
|
}, |
'Report' => { |
'Report' => { |
'_name' => 'report', |
'_name' => 'report', |
'Author' => 'meta/bib/author', |
'Author' => 'meta/bib/author', |
Line 190 my %lang_map = (
|
Line 210 my %lang_map = (
|
); |
); |
# storage fields |
# storage fields |
my $arch_id_field = 'ID'; |
my $arch_id_field = 'ID'; |
|
my $access_free_field = 'online'; |
|
|
####################################################### |
####################################################### |
# internal parameters |
# internal parameters |
Line 225 logger('DEBUG', "online_mode: $online_mo
|
Line 246 logger('DEBUG', "online_mode: $online_mo
|
my $archive_mode = (exists $$args{'archive-mode'}) ? $$args{'archive-mode'} : 0; |
my $archive_mode = (exists $$args{'archive-mode'}) ? $$args{'archive-mode'} : 0; |
logger('DEBUG', "archive_mode: $archive_mode"); |
logger('DEBUG', "archive_mode: $archive_mode"); |
|
|
|
# create texttool tag (online mode only) |
|
my $texttool = (exists $$args{'texttool'}) ? $$args{'texttool'} : 1; |
|
logger('DEBUG', "texttool: $texttool"); |
|
# image dir for texttool |
|
my $texttool_img_dir = "pages"; |
|
|
# access type |
# access type |
my $access_type = (exists $$args{'access'}) ? $$args{'access'} : ""; |
my $access_type = (exists $$args{'access'}) ? $$args{'access'} : ""; |
|
|
Line 283 sub find_permanent_dir {
|
Line 310 sub find_permanent_dir {
|
return; |
return; |
} |
} |
my $dir = "$online_base/lit$dest_id"; |
my $dir = "$online_base/lit$dest_id"; |
|
if (-d $dir) { |
|
logger('DEBUG', "directory $dir exists"); |
return $dir; |
return $dir; |
} |
} |
|
return; |
|
} |
|
|
|
|
sub convert_bib { |
sub convert_bib { |
Line 428 sub process_fm_entry {
|
Line 459 sub process_fm_entry {
|
my $acc_tag = create_element_path('meta/access-conditions/access@type=institution', $index_root, $namespace); |
my $acc_tag = create_element_path('meta/access-conditions/access@type=institution', $index_root, $namespace); |
create_text_path('name', $access_type, $acc_tag, $namespace); |
create_text_path('name', $access_type, $acc_tag, $namespace); |
} |
} |
|
} elsif ($online_mode) { |
|
# read access conditions from "online" field in DB dump |
|
my $online = sstrip($input_node->findvalue("fm:$access_free_field")); |
|
if ($online) { |
|
create_element_path('meta/access-conditions/access@type=free', $index_root, $namespace); |
|
} else { |
|
my $acc_tag = create_element_path('meta/access-conditions/access@type=institution', $index_root, $namespace); |
|
create_text_path('name', 'mpiwg', $acc_tag, $namespace); |
|
} |
|
} |
|
|
|
# texttool tag with image dir |
|
if ($online_mode && $texttool) { |
|
if ( -d "$doc_dir/$texttool_img_dir" ) { |
|
create_text_path('meta/texttool/image', $texttool_img_dir,$index_root, $namespace); |
|
} else { |
|
logger('WARNING', "page image directory missing!"); |
|
$warncnt++; |
|
} |
} |
} |
|
|
# convert bib entries |
# convert bib entries |