# HG changeset patch
# User casties
# Date 1117628659 -7200
# Node ID f33fb7f1898ee47efc71684b888830d80104077f
# Parent  620aad237f57ed5e9e487b17e4eec0fb3bb68965
added mapping for spanish lang

diff -r 620aad237f57 -r f33fb7f1898e makemeta-lib.pl
--- a/makemeta-lib.pl	Thu May 26 16:31:28 2005 +0200
+++ b/makemeta-lib.pl	Wed Jun 01 14:24:19 2005 +0200
@@ -9,17 +9,13 @@
 # make output unbuffered
 $|=1;
 
-#######################################################
-# internal parameters
-#
-
 # program version
-my $version = "0.1.0 (24.5.2005)";
+my $version = "0.1.1 (1.6.2005)";
 logger("INFO", "makemeta-lib $version");
 
-#
+###########################################
 # mappings
-#
+
 # generic mappings at top level
 my %gen_map = (
     'Device' => 'meta/image-acquisition/device',
@@ -96,17 +92,21 @@
     'English' => 'en',
     'Italian' => 'it',
     'French' => 'fr',
-    'Latin' => 'la'
+    'Latin' => 'la',
+    'Spanish' => 'es'
     );
 # storage fields
 my $arch_id_field = 'ID_Archive';
 my $online_url_field = 'URL';
 
-# more storage
+#######################################################
+# internal parameters
+#
+
+# storage
 my $lib_arch_dir = '/mpiwg/archive/data/library';
 my $lib_online_dir = '/mpiwg/online/permanent';
 
-
 # read command line parameters
 my $args = MPIWGStor::parseargs;