Changeset 20802
- Timestamp:
- 2009-10-12T13:07:18+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/arcinfo.pm
r20747 r20802 368 368 } 369 369 370 370 sub 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 } 371 383 sub reverse_sort 372 384 {
Note:
See TracChangeset
for help on using the changeset viewer.