Changeset 17480

Timestamp:

2008-10-06T08:43:04+13:00 (16 years ago)

Author:

kjdon

Message:

removed the pc namespace. the metadata is now extracted metadata, and if you explode, it will get the namespace you give to the exploding script

File:

• gsdl/trunk/perllib/plugins/ProCitePlugin.pm (modified) (4 diffs)

gsdl/trunk/perllib/plugins/ProCitePlugin.pm

@@ -150 +150 @@
         push(@workform_values, $workform_field);
     }
-
+    
     # Remember this workform definition for when we're reading the records
     $workform_definitions{$workform_name} = \@workform_values;
@@ -197 +197 @@
 
     # Store workform and record number as metadata
-    $doc_obj->add_utf8_metadata($cursection, "pc.Workform", $workform_indicator);
-    $doc_obj->add_utf8_metadata($cursection, "pc.RecordNumber", $recordnum);
+    $doc_obj->add_utf8_metadata($cursection, "Workform", $workform_indicator);
+    $doc_obj->add_utf8_metadata($cursection, "RecordNumber", $recordnum);
     
     # Store FileFormat metadata
@@ -218 +218 @@
         my $field_name = $workform_values[$fieldnum];
         #unless ($field_name eq "---") {
-    #   my $meta_name = "pc.Field" . ($fieldnum + 1) . "Name";
+    #   my $meta_name = "Field" . ($fieldnum + 1) . "Name";
     #   $doc_obj->add_utf8_metadata($cursection, $meta_name, $field_name);
      #   }
         if ($field_name eq "---") {
-        $field_name = "pc.Field" . ($fieldnum + 1);
+        $field_name = "Field" . ($fieldnum + 1);
         }
         $html_record .= "<tr><td valign=top><b>$field_name: </b></td><td valign=top>";
@@ -229 +229 @@
         #foreach my $field_value (split(/\/\//, $field_value_raw)) {
         foreach my $field_value (split($self->{'entry_separator'}, $field_value_raw)) {
-        #my $meta_name = "pc.Field" . ($fieldnum + 1) . "Value";
+        #my $meta_name = "Field" . ($fieldnum + 1) . "Value";
         #$doc_obj->add_utf8_metadata($cursection, $meta_name, $field_value);
         $doc_obj->add_utf8_metadata($cursection, $field_name, $field_value);