Changeset 2506

Timestamp:

2001-06-07T13:30:50+12:00 (23 years ago)

Author:

dmm9

Message:

added writing of collection document list to db (OID browselist)

File:

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

trunk/gsdl/perllib/mgbuilder.pm

@@ -644 +644 @@
     # init all the classifiers
     &classify::init_classifiers ($self->{'classifiers'});
+    
 
     # set up the document processor
@@ -655 +656 @@
     $handle = mgbuilder::PIPEOUT;
     }
-
+    
     $self->{'buildproc'}->set_output_handle ($handle);
     $self->{'buildproc'}->set_mode ('infodb');
@@ -664 +665 @@
     $self->{'buildproc'}->set_store_text(1);
     $self->{'buildproc'}->reset();
-
+   
     if (defined $self->{'collect_cfg'}->{'collectionmeta'}) {
     
@@ -691 +692 @@
     }
 
+    
     &plugin::read ($self->{'pluginfo'}, $self->{'source_dir'}, 
            "", {}, $self->{'buildproc'}, $self->{'maxdocs'});
-
+    
     # output classification information
     &classify::output_classify_info ($self->{'classifiers'}, $handle,
                      $self->{'allclassifications'});
+
+
+
+    #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'};