Changeset 11465

Timestamp:

2006-03-22T16:16:32+12:00 (18 years ago)

Author:

mdewsnip

Message:

Now adds ISISRecordHTML metadata also, as a shortcut towards a nicely formatted collection.

File:

• trunk/gsdl/perllib/plugins/ISISPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/ISISPlug.pm

@@ -168 +168 @@
     my $subfield_separator = $self->{'subfield_separator'};
     my $entry_separator = $self->{'entry_separator'};
+    my $isis_record_html_metadata_value = "<table>";
 
     # Report that we're processing the file
@@ -287 +288 @@
     # print STDERR "All metadata name: $all_metadata_name, value: $all_metadata_value\n";
     $doc_obj->add_utf8_metadata($section, $all_metadata_name, $all_metadata_value); 
+
+    $isis_record_html_metadata_value .= "<tr><td valign=top><nobr><b>" . $fdt_mapping->{$tag}{'name'} . "</b></nobr></td><td valign=top>" . $all_metadata_value . "</td></tr>";
     }
+
+    # Add a reasonably formatted HTML table view of the record as metadata, as a shortcut towards a nice display
+    $isis_record_html_metadata_value .= "</table>";
+    $doc_obj->add_utf8_metadata($section, "ISISRecordHTML", $isis_record_html_metadata_value);
 
     # Add the full record as the document text