Changeset 22655

Show
Ignore:
Timestamp:
17.08.2010 17:05:03 (9 years ago)
Author:
mdewsnip
Message:

Removed some old (commented out) "[srclink]" code, as part of tidying up the dmsafe stuff.

Location:
main/trunk/greenstone2/perllib/plugins
Files:
8 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/ConvertToRogPlugin.pm

    r21764 r22655  
    444444    $doc_obj->associate_file($filename, "doc.$doc_ext", undef, $cursection); 
    445445 
    446     #my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/doc.$doc_ext\">"; 
    447     #$doc_obj->add_utf8_metadata ($cursection, "srclink",  $doclink);  
    448446    $doc_obj->add_metadata ($cursection, "srclink_file", "doc.$doc_ext");  
    449447    $doc_obj->add_utf8_metadata ($cursection, "srcicon",  "_icon".$doc_ext."_");  
    450     #$doc_obj->add_utf8_metadata ($cursection, "/srclink", "</a>");  
     448 
    451449    return $ret_val; 
    452450} 
  • main/trunk/greenstone2/perllib/plugins/ImageConverter.pm

    r22450 r22655  
    243243    } 
    244244 
    245  
    246     #$doc_obj->add_metadata ($section, "srclink", "<a href=\"_httpprefix_/collect/[collection]/index/assoc/$assocfilemeta/[Image]\">"); 
    247     #$doc_obj->add_metadata ($section, "/srclink", "</a>"); 
    248245    $doc_obj->add_metadata ($section, "srclink_file", "[Image]");  
    249246    $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/collect/[collection]/index/assoc/$assocfilemeta/[Image]\" width=\"[ImageWidth]\" height=\"[ImageHeight]\">"); 
  • main/trunk/greenstone2/perllib/plugins/ImagePlugin.pm

    r22612 r22655  
    131131    $doc_obj->associate_file($filename_full_path, $assoc_file, "", $section); 
    132132 
    133     #$doc_obj->add_metadata ($section, "srclink", "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">"); 
    134     #$doc_obj->add_metadata ($section, "/srclink", "</a>"); 
    135133    $doc_obj->add_metadata ($section, "srclink_file", "[SourceFile]");  
    136134    # We don't know the size of the image, but the browser should display it at full size 
  • main/trunk/greenstone2/perllib/plugins/MP3Plugin.pm

    r22329 r22655  
    266266    $doc_obj->add_metadata ($section, "FileFormat", "MP3"); 
    267267     
    268     #$doc_obj->add_metadata ($section, "srclink",  
    269 #               "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[srcurl]\">"); 
    270268    $doc_obj->add_metadata ($section, "srcicon", "_iconmp3_"); 
    271     #$doc_obj->add_metadata ($section, "/srclink", "</a>"); 
    272269    $doc_obj->add_metadata ($section, "srclink_file", "[srcurl]");  
    273270    my $applet_metadata = $self->{'applet_metadata'}; 
  • main/trunk/greenstone2/perllib/plugins/OggVorbisPlugin.pm

    r22267 r22655  
    137137 
    138138    $doc_obj->add_metadata ($top_section, "FileFormat", "OggVorbis"); 
    139     #$doc_obj->add_metadata ($top_section, "srclink", "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">"); 
    140     #$doc_obj->add_metadata ($top_section, "/srclink", "</a>"); 
    141139    $doc_obj->add_metadata ($top_section, "srclink_file", "[SourceFile]");  
    142140    $doc_obj->add_metadata ($top_section, "srcicon", "_iconogg_"); 
  • main/trunk/greenstone2/perllib/plugins/OpenDocumentPlugin.pm

    r21764 r22655  
    262262 
    263263    #setup to doclink thingi 
    264     #my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/$file_only\">"; 
    265     #$doc_obj->add_utf8_metadata ("", "srclink",  $doclink);  
    266264    $doc_obj->add_metadata ("", "srclink_file", "[SourceFile]");  
    267265    $doc_obj->add_utf8_metadata ("", "srcicon",  "<img border=\"0\" align=\"absmiddle\" src=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/thumbnail.png\" alt=\"View the Open document\" title=\"View the Open document\">");  
    268     #$doc_obj->add_utf8_metadata ("", "/srclink", "</a>");  
    269266    $self->set_Source_metadata($doc_obj, $file_only); 
    270267     $doc_obj->set_utf8_metadata_element("", "FileSize", (-s $filename)); 
  • main/trunk/greenstone2/perllib/plugins/RealMediaPlugin.pm

    r21760 r22655  
    108108    $doc_obj->add_metadata($top_section, "FileFormat", "RealMedia"); 
    109109 
    110     #$doc_obj->add_metadata($top_section, "srclink", "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">"); 
    111     #$doc_obj->add_metadata($top_section, "/srclink", "</a>"); 
    112110    $doc_obj->add_metadata ($top_section, "srclink_file", "[SourceFile]");  
    113111    $doc_obj->add_metadata($top_section, "srcicon", "_iconrmvideo_"); 
  • main/trunk/greenstone2/perllib/plugins/UnknownPlugin.pm

    r21760 r22655  
    145145    $doc_obj->add_metadata ($section, "MimeType", $mime_type); 
    146146    $doc_obj->add_utf8_metadata ($section, $assoc_field, $doc_obj->get_source()); # Source metadata is already in utf8  
    147  
    148     #$doc_obj->add_metadata ($section, "srclink",  
    149 #               "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">"); 
    150147    $doc_obj->add_metadata ($section, "srclink_file", "[SourceFile]");  
    151148    $doc_obj->add_metadata ($section, "srcicon", "_".$self->{'srcicon'}."_"); 
    152     #$doc_obj->add_metadata ($section, "/srclink", "</a>"); 
    153149     
    154150    # we have no text - add dummy text and NoText metadata