Changeset 14176 for gsdl

Timestamp:

2007-06-13T16:24:36+12:00 (17 years ago)

Author:

qq6

Message:

modified by Shaoqun

File:

• gsdl/trunk/perllib/plugins/PagedImgPlug.pm (modified) (7 diffs)

gsdl/trunk/perllib/plugins/PagedImgPlug.pm

@@ -371 +371 @@
     # add NoText metadata which can be used to suppress the dummy text
     $doc_obj->add_metadata ($section, "NoText", "1");
-    
-        
+
     if ($type eq "unknown" && $image_type) {
     $type = $image_type;
@@ -685 +684 @@
 {
     my $self = shift (@_);
-    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $total_count, $gli) = @_;
-
-    my ($process_status,$doc_obj) = $self->read_into_doc_obj(@_);
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $total_count, $gli) = @_;    my ($process_status,$doc_obj) = $self->read_into_doc_obj(@_);
 
     if ((defined $process_status) && ($process_status == 1)) {
@@ -744 +741 @@
     if (defined($txtfile)&& $txtfile ne "") {
         $self->process_text ($self->{'base_dir'}.$txtfile, $txtfile, $doc_obj, $self->{'current_section'});
+            $doc_obj->set_metadata_element($self->{'current_section'},"NoText","0");
     } else {
         # otherwise add in some dummy text
@@ -749 +747 @@
         my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}",1);
         $doc_obj->add_utf8_text($self->{'current_section'}, $text);
+            $doc_obj->add_metadata($self->{'current_section'},"NoText","1"); 
     }
     } elsif ($element eq "Metadata") {
@@ -851 +850 @@
 
     $doc_obj->add_metadata ($topsection, "Source", $file);
-
 
     open (ITEMFILE, $filename) || die "couldn't open $filename\n";
@@ -874 +872 @@
         # the page number becomes the Title
         $doc_obj->set_utf8_metadata_element($cursection, 'Title', $pagenum);
-        # add NoText metadata which can be used to suppress the dummy text
-        $doc_obj->add_metadata($cursection, "NoText", "1");
-
+     
         # process the image for this page if there is one
         if (defined $imgname && $imgname ne "") {
@@ -889 +885 @@
         if (defined $txtname && $txtname ne "") {
         my $result2 = $self->process_text ($dir.$txtname, $txtname, $doc_obj, $cursection);
+               
         if (!defined $result2) {
             print "PagedImgPlug: couldn't process text file \"$dir.$txtname\" for item \"$filename\"\n";
+        }
+                else{
+            $doc_obj->set_metadata_element($cursection, "NoText", "0");
         }
         } else {
         # otherwise add in some dummy text 
         $doc_obj->add_text($cursection, &gsprintf::lookup_string("{BasPlug.dummy_text}"));
-        }
+                 # add NoText metadata which can be used to suppress the dummy text
+         }
     }
     }