# HG changeset patch
# User casties
# Date 1150211067 -7200
# Node ID de63fae5f483f8634a8e4a1103b08dee4f646006
# Parent  398ef4b8f07205d044fdc041faea7815a6e84497
added document type (Book)

diff -r 398ef4b8f072 -r de63fae5f483 makemeta-vlp.pl
--- a/makemeta-vlp.pl	Mon Jun 12 19:01:39 2006 +0200
+++ b/makemeta-vlp.pl	Tue Jun 13 17:04:27 2006 +0200
@@ -10,7 +10,7 @@
 $|=1;
 
 # program version
-my $version = "0.2 (19.9.2005 ROC)";
+my $version = "0.2.1 (12.6.2006 ROC)";
 my $help = 
 "use: makemeta-vlp [options] file.xml
 options:
@@ -47,12 +47,25 @@
 	'NumberOfVolumes' => 'meta/bib/number-of-volumes',
 	'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' => {
 	'_name' => 'inbook',
 	'Author' => 'meta/bib/author',
 	'Title' => 'meta/bib/title',
 	'Year' => 'meta/bib/year',
-	'Secondary_Title' => 'meta/bib/book-title',
+	'SecondaryTitle' => 'meta/bib/book-title',
 	'SecondaryAuthor' => 'meta/bib/editor',
 	'Volume' => 'meta/bib/volume',
 	'NumberOfVolumes' => 'meta/bib/number-of-volumes',
@@ -301,6 +314,13 @@
 		$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;
 }