Changeset 10978 for trunk

Timestamp:

2005-12-09T10:25:22+13:00 (18 years ago)

Author:

kjdon

Message:

added assoc_field option to NULPlug

Location:

trunk/gsdl/perllib

Files:

• plugins/NULPlug.pm (modified) (2 diffs)
• strings.rb (modified) (1 diff)

trunk/gsdl/perllib/plugins/NULPlug.pm

@@ -46 +46 @@
 }
 
-my $arguments = [
-         ];
+my $arguments = 
+    [
+     { 'name' => "assoc_field",
+       'desc' => "{NULPlug.assoc_field}",
+       'type' => "string",
+       'deft' => "",
+       'reqd' => "no" }
+     ];
 
 my $options = { 'name'     => "NULPlug",
         'desc'     => "{NULPlug.desc}",
         'abstract' => "no",
-        'inherits' => "yes" };
-    #   'args'     => $arguments };
+        'inherits' => "yes",
+                 'args'     => $arguments };
 
 
@@ -108 +114 @@
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Plugin", "$self->{'plugin_type'}");
     $doc_obj->add_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($file)); # set the filename as Source metadata to be consistent with other plugins
+
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "FileSize", (-s $filename));
 
+    my $assoc_field = $self->{'assoc_field'} || "null_file";
+    $doc_obj->add_metadata ($doc_obj->get_top_section(), $assoc_field, $file);
+    
     #create an empty text string so we don't break downstream plugins 
     my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}");

trunk/gsdl/perllib/strings.rb

@@ -731 +731 @@
 NULPlug.desc:Dummy (.nul) file plugin. Used with the files produced by exploding metadata database files.
 
-OAIPlug.desc:Basic Open Archives Initiate (OAI) plugin.
+NULPlug.assoc_field:Name of a metadata field that will be set for each nul file.
+OAIPlug.desc:Basic Open Archives Initiative (OAI) plugin.
 
 OggVorbisPlug.add_technical_metadata:Add technical (eg. bitrate) metadata.