Changeset 18752

Timestamp:

2009-03-23T15:33:12+13:00 (15 years ago)

Author:

kjdon

Message:

added a self param to loadGISDatabase, some indentation

File:

• gsdl/trunk/perllib/plugins/GISExtractor.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/GISExtractor.pm

@@ -135 +135 @@
 #returns a hash table of names from database files (specified in collect.cfg). 
 sub loadGISDatabase {
+    my $self = shift (@_);
     my ($outhandle,$datasets) = @_;
     my @dbase = map{$_ = $_ . ".txt";} split(/,/, $datasets);
@@ -201 +202 @@
 #returns a lowercase version of the place, with no spaces
 sub placename_to_anchorname {
-    my ($placename) = @_;
-    my $p_tag = lc($placename);
-    $p_tag =~ s/\s+//g;
-    return $p_tag;
+    my $self = shift (@_);
+    my ($placename) = @_;
+    my $p_tag = lc($placename);
+    $p_tag =~ s/\s+//g;
+    return $p_tag;
 }