version 1.11, 2006/06/13 15:05:50
|
version 1.13, 2017/03/16 17:00:43
|
Line 1
|
Line 1
|
#!/usr/local/bin/perl -w |
#!/usr/bin/perl -w |
|
|
use strict; |
use strict; |
use XML::LibXML; |
use XML::LibXML; |
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); |
} |
} |
} |
} |