Changeset 17463 for gsdl/trunk/perllib

Timestamp:

2008-10-02T17:29:47+13:00 (16 years ago)

Author:

kjdon

Message:

some mods to make this a bit more useful in response to request from John Rose

File:

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

gsdl/trunk/perllib/plugins/ProCitePlugin.pm

@@ -50 +50 @@
     'type' => "regexp",
     'deft' => &get_default_split_exp(),
-    'reqd' => "no" }
+    'reqd' => "no" },
+      
+      # The interesting options
+      { 'name' => "entry_separator",
+    'desc' => "{ProCitePlugin.entry_separator}",
+    'type' => "string",
+    'reqd' => "no",
+    'deft' => "//" },
       ];
 
@@ -165 +172 @@
 
     # Read the record's workform indicator and record number
-    $$textref =~ s/^\"([^\"]*)\",\"([^\"]*)\",//;
+    #$$textref =~ s/^\"([^\"]*)\",\"([^\"]*)\",//;
+    $$textref =~  s/^\"([^\"]*)\",//;
     my $workform_indicator = $1;
-    my $recordnum = $2;
+
+    # some procite files have a record number next
+    
+    my $recordnum = $$textref =~ s/^\"(\d*)\",//;
+    $recordnum = "undefined" unless defined $recordnum;
 
     # If necessary, map the workform indicator into something useful
@@ -205 +217 @@
         # Add the display name of the metadata field for format statement convenience
         my $field_name = $workform_values[$fieldnum];
-        unless ($field_name eq "---") {
-        my $meta_name = "pc.Field" . ($fieldnum + 1) . "Name";
-        $doc_obj->add_utf8_metadata($cursection, $meta_name, $field_name);
+        #unless ($field_name eq "---") {
+    #   my $meta_name = "pc.Field" . ($fieldnum + 1) . "Name";
+    #   $doc_obj->add_utf8_metadata($cursection, $meta_name, $field_name);
+     #   }
+        if ($field_name eq "---") {
+        $field_name = "pc.Field" . ($fieldnum + 1);
         }
-
         $html_record .= "<tr><td valign=top><b>$field_name: </b></td><td valign=top>";
 
         # Multiple metadata values are separated with "//"
-        foreach my $field_value (split(/\/\//, $field_value_raw)) {
-        my $meta_name = "pc.Field" . ($fieldnum + 1) . "Value";
-        $doc_obj->add_utf8_metadata($cursection, $meta_name, $field_value);
-
+        #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";
+        #$doc_obj->add_utf8_metadata($cursection, $meta_name, $field_value);
+        $doc_obj->add_utf8_metadata($cursection, $field_name, $field_value);
         $html_record .= $field_value . "<br>";
         }