Added League ID column and updated README
This commit is contained in:
parent
2b067b7c01
commit
17284c19eb
@ -16,7 +16,7 @@ This may be freely redistributed under the terms of the GNU General Public Licen
|
|||||||
|
|
||||||
1st argument can be one of these types:
|
1st argument can be one of these types:
|
||||||
google (all members with senate/delegate district query) which prints out this csv data:
|
google (all members with senate/delegate district query) which prints out this csv data:
|
||||||
'Name,Email,Phone,Address,Join Date,Delegate District,Senate District,'
|
'Name,Email,Phone,Address,Delegate District,Senate District,League ID,Join Date'
|
||||||
ALL (all members without senate/delegate district query)
|
ALL (all members without senate/delegate district query)
|
||||||
League ID: WV000 (members at large) WV102 (Huntington) WV103 (Morgantown-Monogalia) WV107 (Wood County) WV112 (Jefferson)
|
League ID: WV000 (members at large) WV102 (Huntington) WV103 (Morgantown-Monogalia) WV107 (Wood County) WV112 (Jefferson)
|
||||||
|
|
||||||
|
@ -62,7 +62,7 @@ open $fh, "<", $file;
|
|||||||
my $curl = WWW::Curl::Simple->new();
|
my $curl = WWW::Curl::Simple->new();
|
||||||
|
|
||||||
my $csv =
|
my $csv =
|
||||||
"Name,Email,Phone,Address,Join Date,Delegate District,Senate District,\n";
|
"Name,Email,Phone,Address,Delegate District,Senate District,League ID,Join Date\n";
|
||||||
print $csv;
|
print $csv;
|
||||||
$csv = "";
|
$csv = "";
|
||||||
while ( my $line = <$fh> ) {
|
while ( my $line = <$fh> ) {
|
||||||
@ -190,6 +190,7 @@ while ( my $line = <$fh> ) {
|
|||||||
else {
|
else {
|
||||||
$csv .= ",";
|
$csv .= ",";
|
||||||
}
|
}
|
||||||
|
$csv .= "$leagueId,";
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user