Changeset 11834
- Timestamp:
- 2006-05-18T15:10:38+12:00 (18 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/BasPlug.pm
r11681 r11834 1252 1252 1253 1253 my ($doc_ext) = ($tail_filename =~ m/^.*\.(.*)$/); 1254 my $start_doclink = "<a href=\"_http collection_/index/assoc/{Or}{[parent(Top):archivedir],[archivedir]}/$tail_filename\">";1254 my $start_doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/{Or}{[parent(Top):archivedir],[archivedir]}/$tail_filename\">"; 1255 1255 my $srcicon = "_icon".$doc_ext."_"; 1256 1256 my $end_doclink = "</a>"; -
trunk/gsdl/perllib/plugins/ConvertToPlug.pm
r11833 r11834 476 476 $doc_obj->set_utf8_metadata_element($cursection, "FileFormat", $file_format); 477 477 478 my $doclink = "<a href=\"_http collection_/index/assoc/[archivedir]/doc.$doc_ext\">";478 my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[archivedir]/doc.$doc_ext\">"; 479 479 $doc_obj->add_utf8_metadata ($cursection, "srclink", $doclink); 480 480 $doc_obj->add_utf8_metadata ($cursection, "srcicon", "_icon".$doc_ext."_"); -
trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm
r11090 r11834 445 445 $doc_obj->associate_file($filename, "doc.$doc_ext", undef, $cursection); 446 446 447 my $doclink = "<a href=\"_http collection_/index/assoc/[archivedir]/doc.$doc_ext\">";447 my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[archivedir]/doc.$doc_ext\">"; 448 448 $doc_obj->add_utf8_metadata ($cursection, "srclink", $doclink); 449 449 $doc_obj->add_utf8_metadata ($cursection, "srcicon", "_icon".$doc_ext."_"); -
trunk/gsdl/perllib/plugins/ImagePlug.pm
r11090 r11834 200 200 201 201 $doc_obj->add_metadata ($section, "srclink", 202 "<a href=\"_http collection_/index/assoc/[assocfilepath]/[Image]\">");202 "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Image]\">"); 203 203 $doc_obj->add_metadata ($section, "/srclink", "</a>"); 204 204 205 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_http collection_/index/assoc/[assocfilepath]/[Image]\" width=100>");205 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Image]\" width=100>"); 206 206 207 207 … … 232 232 $doc_obj->add_metadata ($section, "Thumb", "thumbnail.$thumbnailtype"); 233 233 234 $doc_obj->add_metadata ($section, "thumbicon", "<img src=\"_http collection_/index/assoc/[assocfilepath]/[Thumb]\" width=[ThumbWidth] height=[ThumbHeight]>");234 $doc_obj->add_metadata ($section, "thumbicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Thumb]\" width=[ThumbWidth] height=[ThumbHeight]>"); 235 235 } 236 236 … … 277 277 $doc_obj->add_metadata ($section, "Screen", "screenview.$screenviewtype"); 278 278 279 $doc_obj->add_metadata ($section, "screenicon", "<img src=\"_http collection_/index/assoc/[assocfilepath]/[Screen]\" width=[ScreenWidth] height=[ScreenHeight]>");279 $doc_obj->add_metadata ($section, "screenicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Screen]\" width=[ScreenWidth] height=[ScreenHeight]>"); 280 280 } else { 281 281 print $outhandle "ImagePlug: couldn't find \"$screenviewfilename\"\n"; -
trunk/gsdl/perllib/plugins/MP3Plug.pm
r11493 r11834 222 222 223 223 $doc_obj->add_metadata ($section, "srclink", 224 "<a href=\"_http collection_/index/assoc/[assocfilepath]/[srcurl]\">");224 "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[srcurl]\">"); 225 225 $doc_obj->add_metadata ($section, "srcicon", "_iconmp3_"); 226 226 $doc_obj->add_metadata ($section, "/srclink", "</a>"); … … 229 229 if (defined $applet_metadata && $applet_metadata ) { 230 230 my $applet_html 231 = gen_mp3applet("_http collection_/index/assoc/[assocfilepath]/[srcurl]");231 = gen_mp3applet("_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[srcurl]"); 232 232 $doc_obj->add_metadata ($section, "mp3applet", $applet_html); 233 233 } … … 272 272 $doc_obj->associate_file($img_filename, $dst_file, "image/jpeg", $section); 273 273 274 my $srcurl = "src=\"_http collection_/index/assoc/[assocfilepath]/$dst_file\"";274 my $srcurl = "src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/$dst_file\""; 275 275 276 276 $doc_obj->add_metadata ($section, "img$i", -
trunk/gsdl/perllib/plugins/OggVorbisPlug.pm
r11676 r11834 142 142 # srclink 143 143 $doc_obj->add_metadata ($section, "FileFormat", "OggVorbis"); 144 $doc_obj->add_metadata ($section, "srclink", "<a href=\"_http collection_/index/assoc/[assocfilepath]/[Source]\">");144 $doc_obj->add_metadata ($section, "srclink", "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Source]\">"); 145 145 $doc_obj->add_metadata ($section, "/srclink", "</a>"); 146 146 # srcicon (need to include "iogg.gif" in the greenstone images directory -
trunk/gsdl/perllib/plugins/OpenDocumentPlug.pm
r11333 r11834 236 236 237 237 #setup to doclink thingi 238 my $doclink = "<a href=\"_http collection_/index/assoc/[archivedir]/$file_only\">";238 my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[archivedir]/$file_only\">"; 239 239 $doc_obj->add_utf8_metadata ("", "srclink", $doclink); 240 $doc_obj->add_utf8_metadata ("", "srcicon", "<img border=\"0\" align=\"absmiddle\" src=\"_http collection_/index/assoc/[archivedir]/thumbnail.png\" alt=\"View the Open document\" title=\"View the Open document\">");240 $doc_obj->add_utf8_metadata ("", "srcicon", "<img border=\"0\" align=\"absmiddle\" src=\"_httpprefix_/collect/[collection]/index/assoc/[archivedir]/thumbnail.png\" alt=\"View the Open document\" title=\"View the Open document\">"); 241 241 $doc_obj->add_utf8_metadata ("", "/srclink", "</a>"); 242 242 $doc_obj->add_utf8_metadata ("", "Source", &ghtml::dmsafe($file_only)); -
trunk/gsdl/perllib/plugins/PagedImgPlug.pm
r11676 r11834 369 369 if ($top) { 370 370 $doc_obj->add_metadata ($section, "srclink", 371 "<a href=\"_http collection_/index/assoc/[assocfilepath]/[Image]\">");372 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_http collection_/index/assoc/[assocfilepath]/[Image]\">");371 "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Image]\">"); 372 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Image]\">"); 373 373 374 374 } else { 375 375 $doc_obj->add_metadata ($section, "srclink", 376 "<a href=\"_http collection_/index/assoc/[parent(Top):assocfilepath]/[Image]\">");377 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_http collection_/index/assoc/[parent(Top):assocfilepath]/[Image]\">");376 "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[parent(Top):assocfilepath]/[Image]\">"); 377 $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[parent(Top):assocfilepath]/[Image]\">"); 378 378 379 379 } … … 414 414 $doc_obj->add_metadata ($section, "Thumb", $id."thumb.$thumbnailtype"); 415 415 if ($top) { 416 $doc_obj->add_metadata ($section, "thumbicon", "<img src=\"_http collection_/index/assoc/[assocfilepath]/[Thumb]\" width=[ThumbWidth] height=[ThumbHeight]>");416 $doc_obj->add_metadata ($section, "thumbicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Thumb]\" width=[ThumbWidth] height=[ThumbHeight]>"); 417 417 } else { 418 $doc_obj->add_metadata ($section, "thumbicon", "<img src=\"_http collection_/index/assoc/[parent(Top):assocfilepath]/[Thumb]\" width=[ThumbWidth] height=[ThumbHeight]>");418 $doc_obj->add_metadata ($section, "thumbicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[parent(Top):assocfilepath]/[Thumb]\" width=[ThumbWidth] height=[ThumbHeight]>"); 419 419 } 420 420 } … … 471 471 472 472 if ($top) { 473 $doc_obj->add_metadata ($section, "screenicon", "<img src=\"_http collection_/index/assoc/[assocfilepath]/[Screen]\" width=[ScreenWidth] height=[ScreenHeight]>");473 $doc_obj->add_metadata ($section, "screenicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Screen]\" width=[ScreenWidth] height=[ScreenHeight]>"); 474 474 } else { 475 $doc_obj->add_metadata ($section, "screenicon", "<img src=\"_http collection_/index/assoc/[parent(Top):assocfilepath]/[Screen]\" width=[ScreenWidth] height=[ScreenHeight]>");475 $doc_obj->add_metadata ($section, "screenicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/[parent(Top):assocfilepath]/[Screen]\" width=[ScreenWidth] height=[ScreenHeight]>"); 476 476 477 477 } -
trunk/gsdl/perllib/plugins/RealMediaPlug.pm
r11090 r11834 119 119 # srclink 120 120 $doc_obj->add_metadata($top_section, "FileFormat", "RealMedia"); 121 $doc_obj->add_metadata($top_section, "srclink", "<a href=\"_http collection_/index/assoc/[assocfilepath]/[Source]\">");121 $doc_obj->add_metadata($top_section, "srclink", "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[Source]\">"); 122 122 $doc_obj->add_metadata($top_section, "/srclink", "</a>"); 123 123 # srcicon (need to include "irmvideo.gif" in the greenstone images directory -
trunk/gsdl/perllib/plugins/StructuredHTMLPlug.pm
r11380 r11834 277 277 $doc_obj->associate_file($filename, "doc.doc", undef, $cursection); 278 278 279 my $doclink = "<a href=_http collection_/index/assoc/[archivedir]/doc.doc>";279 my $doclink = "<a href=_httpprefix_/collect/[collection]/index/assoc/[archivedir]/doc.doc>"; 280 280 $doc_obj->add_utf8_metadata ($cursection, "srclink", $doclink); 281 281 $doc_obj->add_utf8_metadata ($cursection, "srcicon", "_icondoc_"); -
trunk/gsdl/perllib/plugins/UnknownPlug.pm
r11123 r11834 152 152 153 153 $doc_obj->add_metadata ($section, "srclink", 154 "<a href=\"_http collection_/index/assoc/[assocfilepath]/[$assoc_field]\">");154 "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[$assoc_field]\">"); 155 155 #$doc_obj->add_metadata ($section, "srcicon", "_iconunknown_"); 156 156 $doc_obj->add_metadata ($section, "srcicon", "_".$self->{'srcicon'}."_"); -
trunk/gsdl/perllib/plugins/W3ImgPlug.pm
r11090 r11834 532 532 $doc_obj->add_metadata($section, "PageTitle", $pagetitle); 533 533 $doc_obj->add_metadata($section, "ThumbURL", 534 "_http collection_/index/assoc/[archivedir]/$fn.thumb.jpg");534 "_httpprefix_/collect/[collection]/index/assoc/[archivedir]/$fn.thumb.jpg"); 535 535 $doc_obj->add_metadata($section, "FileFormat", "W3Img"); 536 536 … … 554 554 $doc_obj->associate_file($filepath, $onlyfn, undef, $section); 555 555 $doc_obj->add_utf8_metadata($section, "CacheURL", 556 "_http collection_/index/assoc/[archivedir]/$onlyfn");556 "_httpprefix_/collect/[collection]/index/assoc/[archivedir]/$onlyfn"); 557 557 } 558 558 return 1;
Note:
See TracChangeset
for help on using the changeset viewer.