version 1.10, 2006/06/12 17:01:39
|
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 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); |
} |
} |
} |
} |