Changeset 14117


Ignore:
Timestamp:
06/05/07 14:03:48 (14 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 edited

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}
Note: See TracChangeset for help on using the changeset viewer.