Changeset 15700

Timestamp:

2008-05-26T16:03:38+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Now outputs the "browselist" node using dbutil::write_infodb_entry().

File:

• gsdl/trunk/perllib/basebuilder.pm (modified) (3 diffs)

gsdl/trunk/perllib/basebuilder.pm

@@ -345 +345 @@
     
     # set up the document processor
-    my ($handle);
+    my ($infodb_handle);
     if ($self->{'debug'}) {
-    $handle = *STDOUT;
+    $infodb_handle = *STDOUT;
     } else {
     if (!-e "$txt2db_exe" || !open (PIPEOUT, "| txt2db$exe \"$fulldbname\"")) {
@@ -353 +353 @@
         die "builder::make_infodatabase - couldn't run $txt2db_exe\n";
     }
-    $handle = *PIPEOUT;
-    }
-    
-    $self->{'buildproc'}->set_output_handle ($handle);
+    $infodb_handle = *PIPEOUT;
+    }
+    
+    $self->{'buildproc'}->set_output_handle ($infodb_handle);
     $self->{'buildproc'}->set_mode ('infodb');
     $self->{'buildproc'}->set_assocdir ($assocdir);
@@ -385 +385 @@
     # this has changed to only output collection meta if its 
     # not in the config file
-    $self->output_collection_meta($handle);
+    $self->output_collection_meta($infodb_handle);
     
     # output classification information
-    &classify::output_classify_info ($self->{'classifiers'}, $handle,
+    &classify::output_classify_info ($self->{'classifiers'}, $infodb_handle,
                      $self->{'remove_empty_classifications'}, 
                      $self->{'gli'});
 
     # Output classifier reverse lookup, used in incremental deletion
-    #&classify::print_reverse_lookup($handle);
-
-    #output doclist
-    my @doclist = $self->{'buildproc'}->get_doc_list();
-    my $docs = join (";",@doclist);
-    print $handle "[browselist]\n";
-    print $handle "<hastxt>0\n";
-    print $handle "<childtype>VList\n";
-    print $handle "<numleafdocs>" . ($#doclist+1) . "\n";
-    print $handle "<thistype>Invisible\n";
-    print $handle "<contains>$docs";
-    print $handle "\n" . ('-' x 70) . "\n";
-
-    close ($handle) if !$self->{'debug'};
+    #&classify::print_reverse_lookup($infodb_handle);
+
+    # output doclist
+    my @doc_list = $self->{'buildproc'}->get_doc_list();
+    &dbutil::write_infodb_entry($infodb_handle, "browselist", { 'hastxt' => [ "0" ],
+                                    'childtype' => [ "VList" ],
+                                    'numleafdocs' => [ scalar(@doc_list) ],
+                                    'thistype' => [ "Invisible" ],
+                                    'contains' => [ join(";", @doc_list) ] });
+
+    close ($infodb_handle) if !$self->{'debug'};
 
     print STDERR "</Stage>\n" if $self->{'gli'};