Changeset 20747 for gsdl/trunk
- Timestamp:
- 2009-09-29T19:41:56+13:00 (15 years ago)
- Location:
- gsdl/trunk/perllib
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/arcinfo.pm
r20537 r20747 100 100 my ($doc_file) = ($vals=~/^<doc-file>(.*)$/m); 101 101 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); 103 104 } 104 105 } … … 314 315 } 315 316 316 $self->{'info'}->{$OID} = [$doc_file,$index_status ];317 $self->{'info'}->{$OID} = [$doc_file,$index_status,$sortmeta]; 317 318 push (@{$self->{'order'}}, [$OID, $sortmeta]); 318 319 … … 427 428 428 429 429 # returns a list of the form [doc_file ]430 # returns a list of the form [doc_file,index_status,$sort_meta] 430 431 sub get_info { 431 432 my $self = shift (@_); … … 440 441 441 442 443 442 444 # returns the number of documents so far 443 445 sub size { -
gsdl/trunk/perllib/plugouts/BasePlugout.pm
r20651 r20747 723 723 my $doc_info = $working_info->get_info($oid); 724 724 725 my ($doc_file,$index_status ) = @$doc_info;725 my ($doc_file,$index_status,$sortmeta) = @$doc_info; 726 726 727 727 my $oid_files = { 'doc-file' => $doc_file, 728 728 'index-status' => $index_status, 729 729 'src-file' => $source_filename, 730 'sort-meta' => $sortmeta, 730 731 'assoc-file' => [], 731 732 'meta-file' => [] }; … … 759 760 $oid_files->{'index-status'} = [ $oid_files->{'index-status'} ]; 760 761 $oid_files->{'src-file'} = [ $oid_files->{'src-file'} ]; 762 $oid_files->{'sort-meta'} = [ $oid_files->{'sort-meta'} ]; 761 763 762 764 my $infodb_file_handle
Note:
See TracChangeset
for help on using the changeset viewer.