Changeset 13243 for trunk/gsdl/perllib/plugins/ImagePlug.pm

Timestamp:

2006-11-13T15:49:38+13:00 (17 years ago)

Author:

shaoqun

Message:

fixed the encoding bug for BasPlug:dummy_text

File:

• trunk/gsdl/perllib/plugins/ImagePlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -105 +105 @@
     }
 
+       
     return bless $self, $class;
 }
@@ -397 +398 @@
     }
 
+     
     #create an empty text string so we don't break downstream plugins 
+    &gsprintf::output_strings_in_UTF8;
     my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}");
+     
     # include any metadata passed in from previous plugins 
     # note that this metadata is associated with the top level section
@@ -418 +422 @@
     # add an OID
     $doc_obj->set_OID();
-    $doc_obj->add_text($section, $text);
+    $doc_obj->add_utf8_text($section, $text);
 
     # process the document
@@ -430 +434 @@
       &util::rm($self->{'tmp_filename'})
     }
+
     if (defined $self->{'tmp_filename2'} && 
     -e $self->{'tmp_filename2'}) {