- Timestamp:
- 2009-03-23T15:33:12+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/GISExtractor.pm
r16013 r18752 135 135 #returns a hash table of names from database files (specified in collect.cfg). 136 136 sub loadGISDatabase { 137 my $self = shift (@_); 137 138 my ($outhandle,$datasets) = @_; 138 139 my @dbase = map{$_ = $_ . ".txt";} split(/,/, $datasets); … … 201 202 #returns a lowercase version of the place, with no spaces 202 203 sub placename_to_anchorname { 203 my ($placename) = @_; 204 my $p_tag = lc($placename); 205 $p_tag =~ s/\s+//g; 206 return $p_tag; 204 my $self = shift (@_); 205 my ($placename) = @_; 206 my $p_tag = lc($placename); 207 $p_tag =~ s/\s+//g; 208 return $p_tag; 207 209 } 208 210
Note:
See TracChangeset
for help on using the changeset viewer.