Changeset 11350

Timestamp:

2006-03-13T15:53:00+13:00 (18 years ago)

Author:

mdewsnip

Message:

Removed the "-filename_field" option from explode_metadata_database.pl. A similar effect can now be achieved using the "-document_field" option.

Location:

trunk/gsdl

Files:

• bin/script/explode_metadata_database.pl (modified) (4 diffs)
• perllib/strings.rb (modified) (1 diff)
• perllib/strings_es.rb (modified) (1 diff)
• perllib/strings_fr.rb (modified) (1 diff)
• perllib/strings_ru.rb (modified) (1 diff)

trunk/gsdl/bin/script/explode_metadata_database.pl

@@ -68 +68 @@
       { 'name' => "document_suffix",
     'desc' => "{explode.document_suffix}",
-    'type' => "string",
-    'reqd' => "no"},
-      { 'name' => "filename_field",
-    'desc' => "{explode.filename_field}",
     'type' => "string",
     'reqd' => "no"},
@@ -95 +91 @@
 sub main
 {
-    my ($language, $input_encoding, $metadata_set, $plugin, $filename_field, 
+    my ($language, $input_encoding, $metadata_set, $plugin, 
     $document_field, $document_prefix, $document_suffix, $verbosity);
 
@@ -155 +151 @@
     }
 
-    #check filename field
-    if (defined $filename_field && $filename_field eq "") {
-    undef $filename_field;
-    }
     my $plugobj;
     require "$plugin.pm";
@@ -225 +217 @@
     # do we need to create a dummy doc??
     if (not defined $document_file) {
-        # try to get a file name
-        if (defined $filename_field) {
-        
-        my $meta = $doc_obj->get_metadata_element($doc_obj->get_top_section(), $filename_field);
-        if (defined $meta) {
-            $meta =~ s/&\w{1,10};//g; # remove entities
-            $document_file = "$meta.nul";
-            my $num = 0;
-            while (-e "$documents_directory/$document_file") {
-            $num++;
-            $document_file = "$meta$num.nul";
-            }
-        } else {
-            $record_number = $record_number + 1;
-            $document_file = sprintf("%4.4d", $record_number) . ".nul";
-        }
-        } else {
-        $record_number = $record_number + 1;
-        $document_file = sprintf("%4.4d", $record_number) . ".nul";
-        }
+        $record_number = $record_number + 1;
+        $document_file = sprintf("%4.4d", $record_number) . ".nul";
 
         open(DUMMY_FILE, ">$documents_directory/$document_file");

trunk/gsdl/perllib/strings.rb

@@ -149 +149 @@
 
 explode.encoding:Encoding to use when reading in the database file
-explode.filename_field:Field to use for filenames for the generated null files (if no document_field or that field is empty)
 explode.metadata_set:Metadata set (namespace) to export all metadata as
 explode.plugin: Plugin to use for exploding

trunk/gsdl/perllib/strings_es.rb

@@ -149 +149 @@
 
 explode.encoding:Codificación a utilizar al leer el archivo de la base de datos
-explode.filename_field:Campo a utilizar para los nombres de los archivos nulos generados (si no existe document_field o ese campo está vacío)
 explode.metadata_set:Conjunto de metadatos (espacio de nombres) para exportar todos los metadatos
 explode.plugin:Plugin a utilizar para explotar

trunk/gsdl/perllib/strings_fr.rb

@@ -200 +200 @@
 
 explode.encoding:Encodage à utiliser lors de la lecture de la base de données
-explode.filename_field:Champ à utiliser pour les noms de fichier factices (null) générés (si pas de document_field ou ce champ est vide)
 explode.metadata_set:Jeu méta-données (espace nom) pour exporter toutes les méta-données comme
 explode.plugin:Plugin à utiliser pour éclater

trunk/gsdl/perllib/strings_ru.rb

@@ -171 +171 @@
 explode.encoding:КПЎОрПвка Ўля ОспПльзПваМОя прО чтеМОО файлПв в базе ЎаММыÑ
 
-explode.filename_field:ППле с МазваМОяЌО файлПв, ОспПльзуеЌыЌО прО сПзЎаМОО МулевыÑ
- файлПв (еслО Мет document_field ОлО этП пПле пустП)
 explode.metadata_set:НазваМОе МабПра Ќета-ЎаММыÑ
  Ўля экспПртОрПваМОя всеÑ