Changeset 15919 for gsdl/trunk/perllib/plugins/GISExtractor.pm
- Timestamp:
- 2008-06-09T13:38:03+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/GISExtractor.pm
r15881 r15919 80 80 push(@{$hashArgOptLists->{"OptList"}},$options); 81 81 #} 82 82 83 my $self = new PrintInfo($pluginlist, $inputargs, $hashArgOptLists, 1); 83 84 85 return bless $self, $class; 86 87 } 88 89 sub initialise_gis_extractor { 90 my $self = shift (@_); 91 84 92 if ($self->{'extract_placenames'}) { 85 93 86 94 my $outhandle = $self->{'outhandle'}; 87 95 … … 98 106 } 99 107 } 100 101 return bless $self, $class; 102 103 } 104 108 109 110 } 105 111 106 112 sub extract_gis_metadata
Note:
See TracChangeset
for help on using the changeset viewer.