Ignore:
Timestamp:
2001-10-02T15:47:50+12:00 (21 years ago)
Author:
kjm18
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/mgppbuildproc.pm

    r2480 r2771  
    6666    $self->{'num_bytes'} = 0;
    6767    $self->{'num_processed_bytes'} = 0;
     68    $self->{'store_text'} = 1;
    6869    $self->{'outhandle'} = $outhandle;
    69     $self->{'store_text'} = 1;
     70
     71    #used by browse interface
     72    $self->{'doclist'} = [];
     73
     74    $self->{'indexing_text'} = 0;
     75
     76    #new ones for mgpp
    7077    $self->{'dontindex'} = {};
    7178    $self->{'indexfieldmap'} = {};
    72 
    73     $self->{'indexing_text'} = 0;
    7479    $self->{'indexfields'} = {};
    7580    $self->{'strip_html'}=1;
     
    183188
    184189    $self->{'store_text'} = $store_text;
     190}
     191
     192sub get_doc_list {
     193    my $self = shift(@_);
     194   
     195    return @{$self->{'doclist'}};
    185196}
    186197
     
    421432    last if ($docs_only); # if no sections wanted, only gdbm the docs
    422433    }
     434
     435    #add this document to the browse structure
     436    push(@{$self->{'doclist'}},$doc_obj->get_OID())
     437    unless ($doctype eq "classification");
    423438
    424439    # classify this document
Note: See TracChangeset for help on using the changeset viewer.