Changeset 13243
- Timestamp:
- 2006-11-13T15:49:38+13:00 (18 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ImagePlug.pm
r12270 r13243 105 105 } 106 106 107 107 108 return bless $self, $class; 108 109 } … … 397 398 } 398 399 400 399 401 #create an empty text string so we don't break downstream plugins 402 &gsprintf::output_strings_in_UTF8; 400 403 my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}"); 404 401 405 # include any metadata passed in from previous plugins 402 406 # note that this metadata is associated with the top level section … … 418 422 # add an OID 419 423 $doc_obj->set_OID(); 420 $doc_obj->add_ text($section, $text);424 $doc_obj->add_utf8_text($section, $text); 421 425 422 426 # process the document … … 430 434 &util::rm($self->{'tmp_filename'}) 431 435 } 436 432 437 if (defined $self->{'tmp_filename2'} && 433 438 -e $self->{'tmp_filename2'}) { -
trunk/gsdl/perllib/plugins/MP3Plug.pm
r12270 r13243 340 340 341 341 #create an empty text string so we don't break downstream plugins 342 &gsprintf::output_strings_in_UTF8; 342 343 my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}"); 343 344 if ($self->{'assoc_images'}) { … … 360 361 # add an OID 361 362 $doc_obj->set_OID(); 362 $doc_obj->add_ text($section, $text);363 $doc_obj->add_utf8_text($section, $text); 363 364 364 365 # process the document -
trunk/gsdl/perllib/plugins/NULPlug.pm
r12270 r13243 121 121 $doc_obj->add_metadata ($doc_obj->get_top_section(), $assoc_field, $file); 122 122 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; 124 125 my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}"); 125 126 … … 141 142 # add an OID 142 143 $doc_obj->set_OID(); 143 $doc_obj->add_ text($section, $text);144 $doc_obj->add_utf8_text($section, $text); 144 145 145 146 # process the document -
trunk/gsdl/perllib/plugins/OggVorbisPlug.pm
r12270 r13243 156 156 157 157 # Create an empty text string so we don't break downstream plugins 158 &gsprintf::output_strings_in_UTF8; 158 159 my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}"); 159 160 … … 169 170 # add an OID 170 171 $doc_obj->set_OID(); 171 $doc_obj->add_ text($section, $text);172 $doc_obj->add_utf8_text($section, $text); 172 173 173 174 # process the document -
trunk/gsdl/perllib/plugins/PagedImgPlug.pm
r13222 r13243 742 742 $self->process_text ($self->{'base_dir'}.$txtfile, $txtfile, $doc_obj, $self->{'current_section'}); 743 743 } 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); 746 749 } 747 750 } elsif ($element eq "Metadata") { -
trunk/gsdl/perllib/plugins/UnknownPlug.pm
r12270 r13243 214 214 215 215 #create an empty text string so we don't break downstream plugins 216 &gsprintf::output_strings_in_UTF8; 216 217 my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}"); 217 218 … … 233 234 # add an OID 234 235 $doc_obj->set_OID(); 235 $doc_obj->add_ text($section, $text);236 $doc_obj->add_utf8_text($section, $text); 236 237 237 238 # process the document
Note:
See TracChangeset
for help on using the changeset viewer.