Changeset 17287 for gsdl/trunk/perllib

Timestamp:

2008-09-15T12:33:09+12:00 (16 years ago)

Author:

kjdon

Message:

added 'if verbosity > 3' to some print statements, and set doctype to be doc if not defined, rather than setting it back to undefined

File:

• gsdl/trunk/perllib/lucenebuildproc.pm (modified) (6 diffs)

gsdl/trunk/perllib/lucenebuildproc.pm

@@ -303 +303 @@
     if ($self->get_mode() eq "incinfodb")
       {
-        print STDERR "*** Processing a document added using INCINFODB ***\n";
+        print STDERR "*** Processing a document added using INCINFODB ***\n" if ($self->{'verbosity'} > 3);
         my ($archivedir) = $file =~ /^(.*?)(?:\/|\\)[^\/\\]*$/;
         $archivedir = "" unless defined $archivedir;
@@ -311 +311 @@
 
         # Number of files
-        print STDERR "There are " . scalar($doc_obj->get_assoc_files()) . " associated documents...\n";
+        print STDERR "There are " . scalar(@{$doc_obj->get_assoc_files()}) . " associated documents...\n" if ($self->{'verbosity'} > 3);
 
         # resolve the final filenames of the files associated with this document
@@ -329 +329 @@
 
         my $section = $doc_obj->get_top_section ();
-        print STDERR "+ top section: '$section'\n";
+        print STDERR "+ top section: '$section'\n" if ($self->{'verbosity'} > 3);
         my $doc_OID = $doc_obj->get_OID();
         my $url = "";
         while (defined $section)
           {
-            print STDERR "+ processing section: '$section'\n";
+            print STDERR "+ processing section: '$section'\n" if ($self->{'verbosity'} > 3);
             # Attach all the other metadata to this document
             # output the fact that this document is a document (unless doctype
@@ -341 +341 @@
             if (!defined $dtype || $dtype !~ /\w/)
               {
-                $doc_obj->add_utf8_metadata($section, "doctype", $dtype);
+                #$doc_obj->add_utf8_metadata($section, "doctype", $dtype);
+          $doc_obj->add_utf8_metadata($section, "doctype", "doc");
               }
             # output whether this node contains text
@@ -380 +381 @@
               }
             #output the matching doc number
-            print STDERR "+ docnum=" . $self->{'numincdocs'} . "\n";
+            print STDERR "+ docnum=" . $self->{'numincdocs'} . "\n" if ($self->{'verbosity'} > 3);
             $doc_obj->add_utf8_metadata($section, "docnum", $self->{'numincdocs'});
 
@@ -388 +389 @@
             last if ($self->{'db_level'} eq "document");
           }
-        print STDERR "\n*** incrementally add metadata from document at: " . $file . "\n";
+        print STDERR "\n*** incrementally add metadata from document at: " . $file . "\n" if ($self->{'verbosity'} > 3);
         &IncrementalBuildUtils::addDocument($self->{'collection'}, $doc_obj, $doc_obj->get_top_section());
       }