Changeset 2505

Timestamp:

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

Author:

dmm9

Message:

added collection of collection document list

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -67 +67 @@
     $self->{'store_text'} = 1;
     $self->{'outhandle'} = $outhandle;
-
+    
+    #used by browse interface
+    $self->{'doclist'} = [];
+    
     $self->{'indexing_text'} = 0;
 
@@ -177 +180 @@
 
     $self->{'store_text'} = $store_text;
+}
+
+sub get_doc_list {
+    my $self = shift(@_);
+    
+    return @{$self->{'doclist'}};
 }
 
@@ -371 +380 @@
     $section = $doc_obj->get_next_section($section);
     }
+
+    #add this document to the browse structure
+    push(@{$self->{'doclist'}},$doc_obj->get_OID()) 
+    unless ($doctype eq "classification");
 
     # classify this document