Changeset 11123

Timestamp:

2006-01-27T00:23:31+13:00 (18 years ago)

Author:

davidb

Message:

Filename stored as URL metadata was missing from this plugin and didn't
occur through inheritence.

File:

• trunk/gsdl/perllib/plugins/UnknownPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/UnknownPlug.pm

@@ -195 +195 @@
     $doc_obj->add_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($file)); # set the filename as Source metadata to be consistent with other plugins
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "FileSize", (-s $filename));
+
+    # URL metadata (even invalid ones) are used to support internal
+    # links, so even if 'file_is_url' is off, still need to store info
+
+    my $web_url = "http://$file";
+    $doc_obj->add_metadata($doc_obj->get_top_section(), "URL", $web_url);
+
 
     # associate the file with the document