Changeset 11465 for trunk/gsdl/perllib
- Timestamp:
- 2006-03-22T16:16:32+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ISISPlug.pm
r11430 r11465 168 168 my $subfield_separator = $self->{'subfield_separator'}; 169 169 my $entry_separator = $self->{'entry_separator'}; 170 my $isis_record_html_metadata_value = "<table>"; 170 171 171 172 # Report that we're processing the file … … 287 288 # print STDERR "All metadata name: $all_metadata_name, value: $all_metadata_value\n"; 288 289 $doc_obj->add_utf8_metadata($section, $all_metadata_name, $all_metadata_value); 290 291 $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>"; 289 292 } 293 294 # Add a reasonably formatted HTML table view of the record as metadata, as a shortcut towards a nice display 295 $isis_record_html_metadata_value .= "</table>"; 296 $doc_obj->add_utf8_metadata($section, "ISISRecordHTML", $isis_record_html_metadata_value); 290 297 291 298 # Add the full record as the document text
Note:
See TracChangeset
for help on using the changeset viewer.