Changeset 12309

Timestamp:

2006-07-26T15:28:37+12:00 (18 years ago)

Author:

kjdon

Message:

changed to explodes=yes, put table tags around the HTMLDisplay metadata, changed the patterm in the while loops in include whitespace, otherwise it can go into an infinite loop

File:

• trunk/gsdl/perllib/plugins/ProCitePlug.pm (modified) (7 diffs)

trunk/gsdl/perllib/plugins/ProCitePlug.pm

@@ -57 +57 @@
         'abstract' => "no",
         'inherits' => "yes",
+        'explodes' => "yes",
         'args'     => $arguments };
 
@@ -116 +117 @@
     my $self = shift (@_);
     my ($filename, $encoding, $language, $textref) = @_;
-
+    
     # Store the workform definitions for this file
     my %workform_definitions = ();
@@ -133 +134 @@
     $$textref =~ s/^\<Workform Definition\>(.*)\n//;
     my $workform_definition = $1;
-
     # Parse the workform definitions and store them for later
     $workform_definition =~ s/^\"([^\"]*)\",//;
     my $workform_name = $1;
-
     my @workform_values;
-    while ($workform_definition !~ /^$/) {
+    while ($workform_definition !~ /^\s*$/) {
         $workform_definition =~ s/^\"([^\"]*)\",?//;
         my $workform_field = $1;
@@ -167 +166 @@
 
     # Build up an HTML view of the record for easy display at run-time
-    my $html_record = "";
+    my $html_record = "<table>";
 
     # Read the record's workform indicator and record number
@@ -182 +181 @@
     my %workform_definitions = %{$self->{'workform_definitions'}->{$filename}};
     if (!$workform_definitions{$workform_indicator}) {
-    print STDERR "Unknown workform!\n";
+    print STDERR "Unknown workform $workform_indicator!\n";
     return 0;
     }
@@ -202 +201 @@
     # Read each field (surrounded by quotes) of the record
     my $fieldnum = 0;
-    while ($$textref !~ /^$/) {
+    while ($$textref !~ /^\s*$/) {
     $$textref =~ s/^\"([^\"]*)\",?//;
     my $field_value_raw = $1;
@@ -231 +230 @@
     }
 
+    $html_record .= "</table>";
     # Store HTML view of record as metadata
     $doc_obj->add_utf8_metadata($cursection, "HTMLDisplay", $html_record);