Changeset 2751 for trunk/gsdl/perllib/plugins/BasPlug.pm

Timestamp:

2001-09-24T17:15:15+12:00 (23 years ago)

Author:

sjboddie

Message:

Had a go at enriching the default document structure.

Added [srclink][srcicon]srclink to default formatstrings.
Added "Source" metadata (set to the filename of the original document)

which is also included in default formatstrings and from which an
AZList is created.

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -40 +40 @@
 use diagnostics;
 use DateExtract;
+use ghtml;
 
 sub print_general_usage {
@@ -288 +289 @@
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Language", $language);
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding);
+    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($file));
     
     # read in file ($text will be in utf8)