Changeset 18752 for gsdl

Show
Ignore:
Timestamp:
23.03.2009 15:33:12 (11 years ago)
Author:
kjdon
Message:

added a self param to loadGISDatabase, some indentation

Files:
1 modified

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