foxridge-archiver/makemeta-lib.pl - diff

Return to makemeta-lib.pl CVS log

Up to [Repository] / foxridge-archiver

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);
}	}
}	}