Changeset 1020
- Timestamp:
- 2000-03-07T11:13:42+13:00 (24 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/GBBPlug.pm
r733 r1020 230 230 231 231 if ($foundimage) { 232 return "${front}_http collection_/archives/_thisOID_/${imagefile}${back}";232 return "${front}_httpdocimg_/${imagefile}${back}"; 233 233 } else { 234 234 return ""; -
trunk/gsdl/perllib/plugins/GBHPlug.pm
r973 r1020 211 211 212 212 if ($foundimage) { 213 return "${front}_http collimg_/_thisOID_/${imagefile}${back}";213 return "${front}_httpdocimg_/${imagefile}${back}"; 214 214 } else { 215 215 return ""; -
trunk/gsdl/perllib/plugins/HBPlug.pm
r1010 r1020 141 141 # fix up the image links 142 142 $section =~ s/<img[^>]*?src=\"?([^\">]+)\"?[^>]*>/ 143 <center><img src=\"_http collimg_\/_thisOID_\/$1\"><\/center><br>/ig;143 <center><img src=\"_httpdocimg_\/$1\"><\/center><br>/ig; 144 144 $section =~ s/<<I>>\s*([^\.]+\.(png|jpg|gif))/ 145 <center><img src=\"_http collimg_\/_thisOID_\/$1\"><\/center><br>/ig;145 <center><img src=\"_httpdocimg_\/$1\"><\/center><br>/ig; 146 146 147 147 return $section; … … 247 247 # associate any files 248 248 map { $doc_obj->associate_file(&util::filename_cat ($base_dir, $file, $1), $1) 249 if /_http collimg_\/_thisOID_\/([^\"]+)\"/; 0; }250 split (/(_http collimg_\/_thisOID_\/[^\"]+\")/, $sectiontext);249 if /_httpdocimg_\/([^\"]+)\"/; 0; } 250 split (/(_httpdocimg_\/[^\"]+\")/, $sectiontext); 251 251 252 252 # add the text for this section -
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r1010 r1020 270 270 ($newname) = $filename =~ /([^\/\\]*)$/; 271 271 $doc_obj->associate_file($filename, $newname, undef, $section); 272 return "_http collimg_/_thisOID_/$newname";272 return "_httpdocimg_/$newname"; 273 273 } 274 274 }
Note:
See TracChangeset
for help on using the changeset viewer.