Changeset 20802

Show
Ignore:
Timestamp:
12.10.2009 13:07:18 (10 years ago)
Author:
kjdon
Message:

added set_meta_file_flag method, to mark a metadata file as one in reverse_info

Files:
1 modified

Legend:

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

    r20747 r20802  
    368368} 
    369369 
    370  
     370sub set_meta_file_flag { 
     371    my $self = shift (@_); 
     372    my ($key) = @_; 
     373 
     374    my $existing_key = $self->{'reverse-info'}->{$key}; 
     375    if (!defined $existing_key) { 
     376    $existing_key = {}; 
     377    $self->{'reverse-info'}->{$key} = $existing_key; 
     378    } 
     379 
     380    $existing_key->{'meta-file'} = ["1"]; 
     381 
     382} 
    371383sub reverse_sort  
    372384{