version 1.1, 2005/09/20 17:32:06
|
version 1.4, 2006/06/20 16:23:26
|
Line 3
|
Line 3
|
use strict; |
use strict; |
use XML::LibXML; |
use XML::LibXML; |
|
|
use lib '/usr/local/mpiwg/archive_devel'; |
use lib '/usr/local/mpiwg/archive'; |
use MPIWGStor; |
use MPIWGStor; |
|
|
# make output unbuffered |
# make output unbuffered |
$|=1; |
$|=1; |
|
|
# program version |
# program version |
my $version = "0.2 (19.9.2005 ROC)"; |
my $version = "0.2.2 (20.6.2006 ROC)"; |
my $help = |
my $help = |
"use: makemeta-vlp [options] file.xml |
"use: makemeta-vlp [options] file.xml |
options: |
options: |
Line 47 my %subtype_map = (
|
Line 47 my %subtype_map = (
|
'NumberOfVolumes' => 'meta/bib/number-of-volumes', |
'NumberOfVolumes' => 'meta/bib/number-of-volumes', |
'Pages' => 'meta/bib/number-of-pages' |
'Pages' => 'meta/bib/number-of-pages' |
}, |
}, |
|
'(Book)' => { |
|
'_name' => 'book', |
|
'Author' => 'meta/bib/author', |
|
'Title' => 'meta/bib/title', |
|
'Year' => 'meta/bib/year', |
|
'Place_Published' => 'meta/bib/city', |
|
'Publisher' => 'meta/bib/publisher', |
|
'Edition' => 'meta/bib/edition', |
|
'Volume' => 'meta/bib/volume', |
|
'NumberOfVolumes' => 'meta/bib/number-of-volumes', |
|
'Pages' => 'meta/bib/number-of-pages', |
|
'#Cover pages only, book sections have been extracted' => 'meta/bib/comment' |
|
}, |
'Book Section' => { |
'Book Section' => { |
'_name' => 'inbook', |
'_name' => 'inbook', |
'Author' => 'meta/bib/author', |
'Author' => 'meta/bib/author', |
'Title' => 'meta/bib/title', |
'Title' => 'meta/bib/title', |
'Year' => 'meta/bib/year', |
'Year' => 'meta/bib/year', |
'Secondary_Title' => 'meta/bib/book-title', |
'SecondaryTitle' => 'meta/bib/book-title', |
'SecondaryAuthor' => 'meta/bib/editor', |
'SecondaryAuthor' => 'meta/bib/editor', |
'Volume' => 'meta/bib/volume', |
'Volume' => 'meta/bib/volume', |
'NumberOfVolumes' => 'meta/bib/number-of-volumes', |
'NumberOfVolumes' => 'meta/bib/number-of-volumes', |
Line 68 my %subtype_map = (
|
Line 81 my %subtype_map = (
|
'Edition' => 'meta/bib/edition', |
'Edition' => 'meta/bib/edition', |
'Volume' => 'meta/bib/volume', |
'Volume' => 'meta/bib/volume', |
'NumberOfVolumes' => 'meta/bib/number-of-volumes', |
'NumberOfVolumes' => 'meta/bib/number-of-volumes', |
|
'Pages' => 'meta/bib/number-of-pages', |
|
'#Cover pages only, book sections have been extracted' => 'meta/bib/comment' |
|
}, |
|
'(Edited Book)' => { |
|
'_name' => 'edited-book', |
|
'Author' => 'meta/bib/editor', |
|
'Title' => 'meta/bib/title', |
|
'Year' => 'meta/bib/year', |
|
'Place_Published' => 'meta/bib/city', |
|
'Publisher' => 'meta/bib/publisher', |
|
'Edition' => 'meta/bib/edition', |
|
'Volume' => 'meta/bib/volume', |
|
'NumberOfVolumes' => 'meta/bib/number-of-volumes', |
'Pages' => 'meta/bib/number-of-pages' |
'Pages' => 'meta/bib/number-of-pages' |
}, |
}, |
'Journal Article' => { |
'Journal Article' => { |
Line 301 sub convert_bib {
|
Line 327 sub convert_bib {
|
$cnt++; |
$cnt++; |
} |
} |
} |
} |
|
# append additional constant fields (beginning with #) |
|
foreach my $k (keys %{$subtype_map{$type}}) { |
|
if ($k =~ /^\#(.*)/) { |
|
my $val = $1; |
|
create_text_path($subtype_map{$type}->{$k}, $val, $index_root, $namespace); |
|
} |
|
} |
} |
} |
return $cnt; |
return $cnt; |
} |
} |