Changeset 11350 for trunk/gsdl
- Timestamp:
- 2006-03-13T15:53:00+13:00 (18 years ago)
- Location:
- trunk/gsdl
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/explode_metadata_database.pl
r11348 r11350 68 68 { 'name' => "document_suffix", 69 69 'desc' => "{explode.document_suffix}", 70 'type' => "string",71 'reqd' => "no"},72 { 'name' => "filename_field",73 'desc' => "{explode.filename_field}",74 70 'type' => "string", 75 71 'reqd' => "no"}, … … 95 91 sub main 96 92 { 97 my ($language, $input_encoding, $metadata_set, $plugin, $filename_field,93 my ($language, $input_encoding, $metadata_set, $plugin, 98 94 $document_field, $document_prefix, $document_suffix, $verbosity); 99 95 … … 155 151 } 156 152 157 #check filename field158 if (defined $filename_field && $filename_field eq "") {159 undef $filename_field;160 }161 153 my $plugobj; 162 154 require "$plugin.pm"; … … 225 217 # do we need to create a dummy doc?? 226 218 if (not defined $document_file) { 227 # try to get a file name 228 if (defined $filename_field) { 229 230 my $meta = $doc_obj->get_metadata_element($doc_obj->get_top_section(), $filename_field); 231 if (defined $meta) { 232 $meta =~ s/&\w{1,10};//g; # remove entities 233 $document_file = "$meta.nul"; 234 my $num = 0; 235 while (-e "$documents_directory/$document_file") { 236 $num++; 237 $document_file = "$meta$num.nul"; 238 } 239 } else { 240 $record_number = $record_number + 1; 241 $document_file = sprintf("%4.4d", $record_number) . ".nul"; 242 } 243 } else { 244 $record_number = $record_number + 1; 245 $document_file = sprintf("%4.4d", $record_number) . ".nul"; 246 } 219 $record_number = $record_number + 1; 220 $document_file = sprintf("%4.4d", $record_number) . ".nul"; 247 221 248 222 open(DUMMY_FILE, ">$documents_directory/$document_file"); -
trunk/gsdl/perllib/strings.rb
r11310 r11350 149 149 150 150 explode.encoding:Encoding to use when reading in the database file 151 explode.filename_field:Field to use for filenames for the generated null files (if no document_field or that field is empty)152 151 explode.metadata_set:Metadata set (namespace) to export all metadata as 153 152 explode.plugin: Plugin to use for exploding -
trunk/gsdl/perllib/strings_es.rb
r11206 r11350 149 149 150 150 explode.encoding:Codificación a utilizar al leer el archivo de la base de datos 151 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)152 151 explode.metadata_set:Conjunto de metadatos (espacio de nombres) para exportar todos los metadatos 153 152 explode.plugin:Plugin a utilizar para explotar -
trunk/gsdl/perllib/strings_fr.rb
r10486 r11350 200 200 201 201 explode.encoding:Encodage à utiliser lors de la lecture de la base de données 202 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)203 202 explode.metadata_set:Jeu méta-données (espace nom) pour exporter toutes les méta-données comme 204 203 explode.plugin:Plugin à utiliser pour éclater -
trunk/gsdl/perllib/strings_ru.rb
r11218 r11350 171 171 explode.encoding:ÐПЎОÑПвка ÐŽÐ»Ñ ÐžÑпПлÑÐ·ÐŸÐ²Ð°ÐœÐžÑ Ð¿ÑО ÑÑеМОО ÑайлПв в базе ЎаММÑÑ 172 172 173 explode.filename_field:ÐПле Ñ ÐœÐ°Ð·Ð²Ð°ÐœÐžÑЌО ÑайлПв, ОÑпПлÑзÑеЌÑЌО пÑО ÑПзЎаМОО ÐœÑлевÑÑ174 ÑайлПв (еÑлО ÐœÐµÑ document_field ОлО ÑÑП пПле пÑÑÑП)175 173 explode.metadata_set:ÐазваМОе МабПÑа ЌеÑа-ЎаММÑÑ 176 174 ÐŽÐ»Ñ ÑкÑпПÑÑОÑÐŸÐ²Ð°ÐœÐžÑ Ð²ÑеÑ
Note:
See TracChangeset
for help on using the changeset viewer.