Changeset 18752


Ignore:
Timestamp:
03/23/09 15:33:12 (12 years ago)
Author:
kjdon
Message:

added a self param to loadGISDatabase, some indentation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/GISExtractor.pm

    r16013 r18752  
    135135#returns a hash table of names from database files (specified in collect.cfg).
    136136sub loadGISDatabase {
     137    my $self = shift (@_);
    137138    my ($outhandle,$datasets) = @_;
    138139    my @dbase = map{$_ = $_ . ".txt";} split(/,/, $datasets);
     
    201202#returns a lowercase version of the place, with no spaces
    202203sub 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;
    207209}
    208210
Note: See TracChangeset for help on using the changeset viewer.