Changeset 20802

Timestamp:

2009-10-12T13:07:18+13:00 (15 years ago)

Author:

kjdon

Message:

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

File:

• gsdl/trunk/perllib/arcinfo.pm (modified) (1 diff)

gsdl/trunk/perllib/arcinfo.pm

@@ -368 +368 @@
 }
 
-
+sub set_meta_file_flag {
+    my $self = shift (@_);
+    my ($key) = @_;
+
+    my $existing_key = $self->{'reverse-info'}->{$key};
+    if (!defined $existing_key) {
+    $existing_key = {};
+    $self->{'reverse-info'}->{$key} = $existing_key;
+    }
+
+    $existing_key->{'meta-file'} = ["1"];
+
+}
 sub reverse_sort 
 {