Changeset 1020

Timestamp:

2000-03-07T11:13:42+13:00 (24 years ago)

Author:

sjboddie

Message:

changed paths to collection images (again!)

Location:

trunk/gsdl/perllib/plugins

Files:

• GBBPlug.pm (modified) (1 diff)
• GBHPlug.pm (modified) (1 diff)
• HBPlug.pm (modified) (2 diffs)
• HTMLPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/GBBPlug.pm

@@ -230 +230 @@
 
     if ($foundimage) {
-    return "${front}_httpcollection_/archives/_thisOID_/${imagefile}${back}";
+    return "${front}_httpdocimg_/${imagefile}${back}";
     } else {
     return "";

trunk/gsdl/perllib/plugins/GBHPlug.pm

@@ -211 +211 @@
 
     if ($foundimage) {
-    return "${front}_httpcollimg_/_thisOID_/${imagefile}${back}";
+    return "${front}_httpdocimg_/${imagefile}${back}";
     } else {
     return "";

trunk/gsdl/perllib/plugins/HBPlug.pm

@@ -141 +141 @@
     # fix up the image links
     $section =~ s/<img[^>]*?src=\"?([^\">]+)\"?[^>]*>/
-    <center><img src=\"_httpcollimg_\/_thisOID_\/$1\"><\/center><br>/ig;
+    <center><img src=\"_httpdocimg_\/$1\"><\/center><br>/ig;
     $section =~ s/&lt;&lt;I&gt;&gt;\s*([^\.]+\.(png|jpg|gif))/
-    <center><img src=\"_httpcollimg_\/_thisOID_\/$1\"><\/center><br>/ig;
+    <center><img src=\"_httpdocimg_\/$1\"><\/center><br>/ig;
 
     return $section;
@@ -247 +247 @@
         # associate any files
         map { $doc_obj->associate_file(&util::filename_cat ($base_dir, $file, $1), $1)
-              if /_httpcollimg_\/_thisOID_\/([^\"]+)\"/; 0; }
-             split (/(_httpcollimg_\/_thisOID_\/[^\"]+\")/, $sectiontext);
+              if /_httpdocimg_\/([^\"]+)\"/; 0; }
+             split (/(_httpdocimg_\/[^\"]+\")/, $sectiontext);
 
         # add the text for this section

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -270 +270 @@
     ($newname) = $filename =~ /([^\/\\]*)$/;
     $doc_obj->associate_file($filename, $newname, undef, $section);
-    return "_httpcollimg_/_thisOID_/$newname";
+    return "_httpdocimg_/$newname";
     }
 }