--- foxridge-archiver/makemeta-vlp.pl	2005/09/20 17:44:48	1.2
+++ foxridge-archiver/makemeta-vlp.pl	2006/06/13 15:04:27	1.3
@@ -10,7 +10,7 @@ use MPIWGStor;
 $|=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 @@ my %subtype_map = (
 	'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 @@ sub convert_bib {
 		$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;
 }