Changeset 20747


Ignore:
Timestamp:
2009-09-29T19:41:56+13:00 (13 years ago)
Author:
kjdon
Message:

sorting the build was broken. arcinfo was storing a sort order, but it wasn't being saved to archiveinf-doc.gdb, so during build, the order was lost. I have modifed arcinfo to store sortmeta in info as well as in order. get_info returns sortmeta. BasPlugout saves it in the gdbm database, and it is read in again by arcinfo

Location:
gsdl/trunk/perllib
Files:
2 edited

Legend:

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

    r20537 r20747  
    100100    my ($doc_file) = ($vals=~/^<doc-file>(.*)$/m);
    101101    my ($index_status) = ($vals=~/^<index-status>(.*)$/m);
    102     $self->add_info ($oid,$doc_file,$index_status);
     102    my ($sortmeta) = ($vals=~/^<sort-meta>(.*)$/m);
     103    $self->add_info ($oid,$doc_file,$index_status,$sortmeta);
    103104    }
    104105}
     
    314315    }
    315316
    316     $self->{'info'}->{$OID} = [$doc_file,$index_status];
     317    $self->{'info'}->{$OID} = [$doc_file,$index_status,$sortmeta];
    317318    push (@{$self->{'order'}}, [$OID, $sortmeta]);
    318319
     
    427428
    428429
    429 # returns a list of the form [doc_file]
     430# returns a list of the form [doc_file,index_status,$sort_meta]
    430431sub get_info {
    431432    my $self = shift (@_);
     
    440441
    441442
     443
    442444# returns the number of documents so far
    443445sub size {
  • gsdl/trunk/perllib/plugouts/BasePlugout.pm

    r20651 r20747  
    723723    my $doc_info = $working_info->get_info($oid);
    724724
    725     my ($doc_file,$index_status) = @$doc_info;
     725    my ($doc_file,$index_status,$sortmeta) = @$doc_info;
    726726
    727727    my $oid_files = { 'doc-file' => $doc_file,
    728728              'index-status' => $index_status,
    729729              'src-file' => $source_filename,
     730              'sort-meta' => $sortmeta,
    730731              'assoc-file' => [],
    731732              'meta-file'  => [] };
     
    759760    $oid_files->{'index-status'} = [ $oid_files->{'index-status'} ];
    760761    $oid_files->{'src-file'} = [ $oid_files->{'src-file'} ];
     762    $oid_files->{'sort-meta'} = [ $oid_files->{'sort-meta'} ];
    761763
    762764    my $infodb_file_handle
Note: See TracChangeset for help on using the changeset viewer.