Changeset 14117

Show
Ignore:
Timestamp:
05.06.2007 14:03:48 (12 years ago)
Author:
xiao
Message:

add a metadata NoText? which can be used to suppress the dummy text 'This document has no text.'

Location:
trunk/gsdl/perllib/plugins
Files:
6 modified

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/ImagePlug.pm

    r13879 r14117  
    200200    $doc_obj->add_metadata ($section, "ImageHeight", $image_height); 
    201201    $doc_obj->add_metadata ($section, "ImageSize",   $image_size); 
     202    $doc_obj->add_metadata ($section, "NoText",    "1"); 
    202203 
    203204    $doc_obj->add_metadata ($section, "srclink",  
  • trunk/gsdl/perllib/plugins/MP3Plug.pm

    r13269 r14117  
    158158    $doc_obj->add_metadata ($section, $assoc_field, $assoc_name); 
    159159    $doc_obj->add_metadata ($section, "srcurl", $assoc_url); 
     160    $doc_obj->add_metadata ($section, "NoText",    "1"); 
    160161 
    161162    my $mp3_info = get_mp3info($filename); 
  • trunk/gsdl/perllib/plugins/NULPlug.pm

    r13727 r14117  
    125125    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "FileSize", (-s $filename)); 
    126126 
     127    # the metadata NoText is used to suppress the dummy text 'This document has no text.' 
     128    $doc_obj->add_metadata ($doc_obj->get_top_section(), "NoText",    "1"); 
     129 
    127130    my $assoc_field = $self->{'assoc_field'} || "null_file"; 
    128131    $doc_obj->add_metadata ($doc_obj->get_top_section(), $assoc_field, $file); 
  • trunk/gsdl/perllib/plugins/OggVorbisPlug.pm

    r13543 r14117  
    153153    $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/images/iogg.gif\" title=\"Download\" border=0>"); 
    154154 
     155    # add NoText metadata which can be used to suppress the dummy text 
     156    $doc_obj->add_metadata ($section, "NoText", "1"); 
     157 
    155158    # Add the actual file as an associated file 
    156159    $doc_obj->associate_file($filename, $file, "VORBIS", $section); 
  • trunk/gsdl/perllib/plugins/PagedImgPlug.pm

    r13544 r14117  
    849849    $doc_obj->add_metadata ($topsection, "Source", $file); 
    850850 
     851    # add NoText metadata which can be used to suppress the dummy text 
     852    $doc_obj->add_metadata ($topsection, "NoText", "1"); 
     853 
    851854    open (ITEMFILE, $filename) || die "couldn't open $filename\n"; 
    852855    my $line = ""; 
     
    870873        # the page number becomes the Title 
    871874        $doc_obj->set_utf8_metadata_element($cursection, 'Title', $pagenum); 
     875        # add NoText metadata which can be used to suppress the dummy text 
     876        $doc_obj->add_utf3_metadata_element ($cursection, "NoText", "1"); 
     877 
    872878        # process the image for this page if there is one 
    873879        if (defined $imgname && $imgname ne "") { 
  • trunk/gsdl/perllib/plugins/UnknownPlug.pm

    r13544 r14117  
    157157    $doc_obj->add_metadata ($section, "/srclink", "</a>"); 
    158158     
     159    # add NoText metadata which can be used to suppress the dummy text 
     160    $doc_obj->add_metadata ($section, "NoText", "1"); 
     161 
    159162    return 1; 
    160163}