Changeset 13243


Ignore:
Timestamp:
2006-11-13T15:49:38+13:00 (16 years ago)
Author:
shaoqun
Message:

fixed the encoding bug for BasPlug:dummy_text

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

Legend:

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

    r12270 r13243  
    105105    }
    106106
     107       
    107108    return bless $self, $class;
    108109}
     
    397398    }
    398399
     400     
    399401    #create an empty text string so we don't break downstream plugins
     402    &gsprintf::output_strings_in_UTF8;
    400403    my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}");
     404     
    401405    # include any metadata passed in from previous plugins
    402406    # note that this metadata is associated with the top level section
     
    418422    # add an OID
    419423    $doc_obj->set_OID();
    420     $doc_obj->add_text($section, $text);
     424    $doc_obj->add_utf8_text($section, $text);
    421425
    422426    # process the document
     
    430434      &util::rm($self->{'tmp_filename'})
    431435    }
     436
    432437    if (defined $self->{'tmp_filename2'} &&
    433438    -e $self->{'tmp_filename2'}) {
  • trunk/gsdl/perllib/plugins/MP3Plug.pm

    r12270 r13243  
    340340
    341341    #create an empty text string so we don't break downstream plugins
     342    &gsprintf::output_strings_in_UTF8;
    342343    my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}");
    343344    if ($self->{'assoc_images'}) {
     
    360361    # add an OID
    361362    $doc_obj->set_OID();
    362     $doc_obj->add_text($section, $text);
     363    $doc_obj->add_utf8_text($section, $text);
    363364
    364365    # process the document
  • trunk/gsdl/perllib/plugins/NULPlug.pm

    r12270 r13243  
    121121    $doc_obj->add_metadata ($doc_obj->get_top_section(), $assoc_field, $file);
    122122   
    123     #create an empty text string so we don't break downstream plugins
     123    #create an empty text string so we don't break downstream plugins
     124    &gsprintf::output_strings_in_UTF8;
    124125    my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}");
    125126   
     
    141142    # add an OID
    142143    $doc_obj->set_OID();
    143     $doc_obj->add_text($section, $text);
     144    $doc_obj->add_utf8_text($section, $text);
    144145   
    145146    # process the document
  • trunk/gsdl/perllib/plugins/OggVorbisPlug.pm

    r12270 r13243  
    156156
    157157    # Create an empty text string so we don't break downstream plugins
     158     &gsprintf::output_strings_in_UTF8;
    158159    my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}");
    159160
     
    169170    # add an OID
    170171    $doc_obj->set_OID();
    171     $doc_obj->add_text($section, $text);
     172    $doc_obj->add_utf8_text($section, $text);
    172173
    173174    # process the document
  • trunk/gsdl/perllib/plugins/PagedImgPlug.pm

    r13222 r13243  
    742742        $self->process_text ($self->{'base_dir'}.$txtfile, $txtfile, $doc_obj, $self->{'current_section'});
    743743    } else {
    744         # otherwise add in some dummy text
    745         $doc_obj->add_text($self->{'current_section'}, &gsprintf::lookup_string("{BasPlug.dummy_text}"));
     744        # otherwise add in some dummy text
     745        #create an empty text string so we don't break downstream plugins
     746        &gsprintf::output_strings_in_UTF8;
     747        my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}");
     748        $doc_obj->add_utf8_text($self->{'current_section'}, $text);
    746749    }
    747750    } elsif ($element eq "Metadata") {
  • trunk/gsdl/perllib/plugins/UnknownPlug.pm

    r12270 r13243  
    214214
    215215    #create an empty text string so we don't break downstream plugins
     216    &gsprintf::output_strings_in_UTF8;
    216217    my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}");
    217218
     
    233234    # add an OID
    234235    $doc_obj->set_OID();
    235     $doc_obj->add_text($section, $text);
     236    $doc_obj->add_utf8_text($section, $text);
    236237
    237238    # process the document
Note: See TracChangeset for help on using the changeset viewer.