Changeset 22654

Show
Ignore:
Timestamp:
17.08.2010 16:58:23 (9 years ago)
Author:
mdewsnip
Message:

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

Files:
1 modified

Legend:

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

    r22597 r22654  
    477477    if ($self->{'keep_original_filename'} == 1) { 
    478478    # this should be the same filename that was used for the Source and SourceFile metadata,  
    479     # as we will use [SourceFile] in the srclink 
     479    # as we will use [SourceFile] in the srclink (below) 
    480480    $assocfilename = $doc_obj->get_assocfile_from_sourcefile(); 
    481481    } 
     
    485485    $doc_obj->set_utf8_metadata_element($cursection, "FileFormat", $file_type); 
    486486    my $srclink_filename = "doc.$doc_ext"; 
    487     #my $doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/doc.$doc_ext\">"; 
    488487    if ($self->{'keep_original_filename'} == 1) { 
    489488    $srclink_filename = "[SourceFile]"; 
    490     #$doclink = "<a href=\"_httpprefix_/collect/[collection]/index/assoc/[assocfilepath]/[SourceFile]\">"; 
    491     } 
    492     #$doc_obj->add_utf8_metadata ($cursection, "srclink",  $doclink);  
     489    } 
    493490    $doc_obj->add_utf8_metadata ($cursection, "srcicon",  "_icon".$doc_ext."_");  
    494     #$doc_obj->add_utf8_metadata ($cursection, "/srclink", "</a>");  
    495491    $doc_obj->add_utf8_metadata ($cursection, "srclink_file", $srclink_filename); 
    496492    return 1;