Changeset 28637 for main/trunk/greenstone2/perllib
- Timestamp:
- 2013-11-19T11:10:11+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/arcinfo.pm
r28211 r28637 40 40 use constant INFO_STATUS_INDEX => 1; 41 41 42 use constant INFO_GROUPPOS_INDEX => 3; 42 43 use strict; 43 44 … … 112 113 my ($index_status) = ($vals=~/^<index-status>(.*)$/m); 113 114 my ($sortmeta) = ($vals=~/^<sort-meta>(.*)$/m); 114 $self->add_info ($oid,$doc_file,$index_status,$sortmeta); 115 my ($group_position) = ($vals=~/^<group-position>(.*)$/m); 116 $self->add_info ($oid,$doc_file,$index_status,$sortmeta, $group_position); 115 117 } 116 118 } … … 268 270 my $self = shift (@_); 269 271 my ($filename) = @_; 270 271 272 if ($filename =~ m/(contents)|(\.inf)$/) { 272 273 $self->_save_info_txt($filename); … … 298 299 sub add_info { 299 300 my $self = shift (@_); 300 my ($OID, $doc_file, $index_status, $sortmeta ) = @_;301 my ($OID, $doc_file, $index_status, $sortmeta, $group_position) = @_; 301 302 $sortmeta = "" unless defined $sortmeta; 302 303 $index_status = "I" unless defined $index_status; # I = needs indexing 303 304 304 if (! defined($OID)) { 305 305 # only happens when no files can be processed? … … 331 331 } 332 332 333 $self->{'info'}->{$OID} = [$doc_file,$index_status,$sortmeta ];333 $self->{'info'}->{$OID} = [$doc_file,$index_status,$sortmeta, $group_position]; 334 334 push (@{$self->{'order'}}, [$OID, $sortmeta]); # ORDER_OID_INDEX and ORDER_SORT_INDEX 335 335 … … 364 364 } 365 365 366 366 sub get_group_position { 367 my $self = shift (@_); 368 my ($OID) = @_; 369 370 my $group_position = undef; 371 my $OID_info = $self->{'info'}->{$OID}; 372 if (defined $OID_info) { 373 $group_position = $OID_info->[INFO_GROUPPOS_INDEX]; 374 } 375 else { 376 die "Unable to find document id $OID\n"; 377 } 378 return $group_position; 379 380 } 367 381 sub add_reverseinfo { 368 382 my $self = shift (@_); … … 466 480 467 481 468 # returns a list of the form [doc_file,index_status,$sort_meta ]482 # returns a list of the form [doc_file,index_status,$sort_meta, $group_position] 469 483 sub get_info { 470 484 my $self = shift (@_);
Note:
See TracChangeset
for help on using the changeset viewer.