version 1.11, 2006/06/13 15:05:50
|
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 475 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); |
} |
} |
} |
} |