version 1.10, 2006/06/12 17:01:39
|
version 1.12, 2006/12/11 18:07:43
|
Line 10 use MPIWGStor;
|
Line 10 use MPIWGStor;
|
$|=1; |
$|=1; |
|
|
# program version |
# program version |
my $version = "0.2.5 (9.6.2006 ROC)"; |
my $version = "0.2.6 (11.12.2006 ROC)"; |
my $help = |
my $help = |
"use: makemeta-lib [options] file.xml |
"use: makemeta-lib [options] file.xml |
options: |
options: |
Line 107 my %lang_map = (
|
Line 107 my %lang_map = (
|
'Latin' => 'la', |
'Latin' => 'la', |
'Japanese' => 'ja', |
'Japanese' => 'ja', |
'Dutch' => 'nl', |
'Dutch' => 'nl', |
'Spanish' => 'es' |
'Spanish' => 'es', |
|
'Swedish' => 'sv' |
); |
); |
# storage fields |
# storage fields |
my $arch_id_field = 'ID_Archive'; |
my $arch_id_field = 'ID_Archive'; |
Line 474 sub process_fm_entry {
|
Line 475 sub process_fm_entry {
|
# access |
# access |
if ($access_type) { |
if ($access_type) { |
if ($access_type eq "free") { |
if ($access_type eq "free") { |
create_element_path('access-conditions/access@type=free', $index_root, $namespace); |
create_element_path('meta/access-conditions/access@type=free', $index_root, $namespace); |
} else { |
} else { |
my $acc_tag = create_element_path('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); |
} |
} |
} |
} |