Changeset 2751

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.

Location:

trunk/gsdl

Files:

• collect/modelcol/etc/collect.cfg (modified) (1 diff)
• perllib/plugins/BasPlug.pm (modified) (2 diffs)
• perllib/plugins/ConvertToPlug.pm (modified) (2 diffs)
• src/recpt/vlistbrowserclass.cpp (modified) (1 diff)

trunk/gsdl/collect/modelcol/etc/collect.cfg

@@ -9 +9 @@
 
 classify       AZList -metadata Title
+classify       AZList -metadata Source
 
 collectionmeta collectionname    "**title**"

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)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -41 +41 @@
 use HTMLPlug;
 use TEXTPlug;
+use ghtml;
 
 sub BEGIN {
@@ -266 +267 @@
     my $doc_obj = new doc ($conv_filename, "indexed_doc");
     $doc_obj->set_OIDtype ($processor->{'OIDtype'});
-    $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(), "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));
 
 

trunk/gsdl/src/recpt/vlistbrowserclass.cpp

@@ -45 +45 @@
 
 text_t vlistbrowserclass::get_default_formatstring () {
-  return "<td>[link][icon][/link]</td><td>[highlight]{Or}{[Title],Untitled}[/highlight]</td>";
+  return "<td valign=top>[link][icon][/link]</td>"
+    "{If}{[srclink],<td valign=top>[srclink][srcicon][/srclink]</td>}"
+    "<td>[highlight]{Or}{[Title],Untitled}[/highlight]"
+    "{If}{[Source],<br><i>([Source])</i>}</td>";
 }