Changeset 2771

Timestamp:

2001-10-02T15:47:50+12:00 (23 years ago)

Author:

kjm18

Message:

updated this to include the browselist/doclist stuff thats now in mgbuildproc

File:

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

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -66 +66 @@
     $self->{'num_bytes'} = 0;
     $self->{'num_processed_bytes'} = 0;
+    $self->{'store_text'} = 1;
     $self->{'outhandle'} = $outhandle;
-    $self->{'store_text'} = 1;
+
+    #used by browse interface
+    $self->{'doclist'} = [];
+
+    $self->{'indexing_text'} = 0;
+
+    #new ones for mgpp
     $self->{'dontindex'} = {};
     $self->{'indexfieldmap'} = {};
-
-    $self->{'indexing_text'} = 0;
     $self->{'indexfields'} = {};
     $self->{'strip_html'}=1;
@@ -183 +188 @@
 
     $self->{'store_text'} = $store_text;
+}
+
+sub get_doc_list {
+    my $self = shift(@_);
+    
+    return @{$self->{'doclist'}};
 }
 
@@ -421 +432 @@
     last if ($docs_only); # if no sections wanted, only gdbm the docs
     }
+
+    #add this document to the browse structure
+    push(@{$self->{'doclist'}},$doc_obj->get_OID()) 
+    unless ($doctype eq "classification");
 
     # classify this document