Changeset 11834 for trunk/gsdl/perllib/plugins/ImagePlug.pm

Timestamp:

2006-05-18T15:10:38+12:00 (18 years ago)

Author:

mdewsnip

Message:

Replaced all "_httpcollection_" in metadata (especially srclink) with "_httpprefix_/collect/[collection]" (this works correctly when using cross-collection searching).

File:

• trunk/gsdl/perllib/plugins/ImagePlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -200 +200 @@
 
     $doc_obj->add_metadata ($section, "srclink", 
-                "<a href=\"_httpcollection_/index/assoc/[assocfilepath]/[Image]\">");
+                "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Image]\">");
     $doc_obj->add_metadata ($section, "/srclink", "</a>");
 
-    $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpcollection_/index/assoc/[assocfilepath]/[Image]\" width=100>");
+    $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Image]\" width=100>");
 
     
@@ -232 +232 @@
     $doc_obj->add_metadata ($section, "Thumb", "thumbnail.$thumbnailtype");
 
-    $doc_obj->add_metadata ($section, "thumbicon", "<img src=\"_httpcollection_/index/assoc/[assocfilepath]/[Thumb]\" width=[ThumbWidth] height=[ThumbHeight]>");
+    $doc_obj->add_metadata ($section, "thumbicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Thumb]\" width=[ThumbWidth] height=[ThumbHeight]>");
     }
 
@@ -277 +277 @@
         $doc_obj->add_metadata ($section, "Screen", "screenview.$screenviewtype");
 
-        $doc_obj->add_metadata ($section, "screenicon", "<img src=\"_httpcollection_/index/assoc/[assocfilepath]/[Screen]\" width=[ScreenWidth] height=[ScreenHeight]>");
+        $doc_obj->add_metadata ($section, "screenicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Screen]\" width=[ScreenWidth] height=[ScreenHeight]>");
     } else {
         print $outhandle "ImagePlug: couldn't find \"$screenviewfilename\"\n";