--- foxridge-archiver/makemeta-vlp.pl	2006/06/20 16:23:26	1.4
+++ foxridge-archiver/makemeta-vlp.pl	2006/12/14 15:50:05	1.7
@@ -10,7 +10,7 @@ use MPIWGStor;
 $|=1;
 
 # program version
-my $version = "0.2.2 (20.6.2006 ROC)";
+my $version = "0.2.5 (14.12.2006 ROC)";
 my $help = 
 "use: makemeta-vlp [options] file.xml
 options:
@@ -19,6 +19,7 @@ options:
   -replace  replace existing index files
   -online-mode  mode for creating online/permanent files
   -archive-mode  mode for creating archive/data files
+  -access=free  adds free access tag for online-mode
 ";
 logger("INFO", "makemeta-vlp $version");
 
@@ -27,7 +28,9 @@ logger("INFO", "makemeta-vlp $version");
 
 # generic mappings at top level
 my %gen_map = (
-    'Custom2_Language' => 'meta/lang'
+    'Custom2_Language' => 'meta/lang',
+    'productionComment' => 'meta/image-acquisition/production-comment',
+    'derivedFrom' => 'derived-from/archive-path'
     );
 # sub type switch tag
 my %type_map = (
@@ -106,6 +109,17 @@ my %subtype_map = (
 	'Number_Issue' => 'meta/bib/issue',
 	'Pages' => 'meta/bib/pages'
     },
+    '(JournalVolume)' => {
+	'_name' => 'journal-volume',
+	'SecondaryTitle' => 'meta/bib/title',
+	'SecondaryAuthor' => 'meta/bib/editor',
+	'Publisher' => 'meta/bib/publisher',
+	'Place_Published' => 'meta/bib/city',
+	'Year' => 'meta/bib/year',
+	'Volume' => 'meta/bib/volume',
+	'Pages' => 'meta/bib/number-of-pages',
+	'#Cover pages only, articles have been extracted' => 'meta/bib/comment'
+    },
     'Magazine Article' => {
 	'_name' => 'magazine-article',
 	'Author' => 'meta/bib/author',
@@ -208,6 +222,9 @@ logger('DEBUG', "online_mode: $online_mo
 my $archive_mode = (exists $$args{'archive-mode'}) ? $$args{'archive-mode'} : 0;
 logger('DEBUG', "archive_mode: $archive_mode");
 
+# access type
+my $access_type = (exists $$args{'access'}) ? $$args{'access'} : "";
+
 # index.meta namespace (not really implemented!)
 my $namespace = "";
 
@@ -255,7 +272,7 @@ sub find_arch_dir {
 
 sub find_permanent_dir {
     my ($input_node) = @_;
-    my $online_base = '/mpiwg/online/permanent';
+    my $online_base = $lib_online_dir;
     my $dest_id = sstrip($input_node->findvalue("fm:$arch_id_field"));
     if (! $dest_id) {
 	logger('ERROR', "no ID field for online permanent entry");
@@ -396,14 +413,19 @@ sub process_fm_entry {
       create_text_path('meta/acquisition/date', stime(time), $index_root, $namespace);
       create_text_path('meta/acquisition/provider/provider-id', 'vlp', $index_root, $namespace);
       create_text_path('meta/acquisition/provider/address', 'Max Planck Institute for the History of Science', $index_root, $namespace);
-      # image acquisition
-      create_text_path('meta/image-acquisition/device', 'Flatbed Scanner' , $index_root, $namespace);
-      create_text_path('meta/image-acquisition/image-type', 'Greyscale' , $index_root, $namespace);
-      create_text_path('meta/image-acquisition/production-comment', 'Raw scans in \'raw\' folder, cleaned pages in \'pages\' folder.' , $index_root, $namespace);
     }
     # media
     create_text_path('media-type', 'image', $index_root, $namespace);
     create_text_path('meta/content-type', 'scanned document', $index_root, $namespace);
+    # access
+    if ($access_type) {
+	if ($access_type eq "free") {
+	    create_element_path('meta/access-conditions/access@type=free', $index_root, $namespace);
+	} else {
+	    my $acc_tag = create_element_path('meta/access-conditions/access@type=institution', $index_root, $namespace);
+	    create_text_path('name', $access_type, $acc_tag, $namespace);
+	}
+    }
 
     # convert bib entries
     my $cnt = convert_bib($input_node, $index_root, $index_doc);