version 1.1, 2001/09/12 16:47:32
|
version 1.2, 2001/09/17 02:57:50
|
Line 59 for (my $i=1; $i<=5; $i++) {
|
Line 59 for (my $i=1; $i<=5; $i++) {
|
my %RegionFields = ('Latitude'=>'Lat', 'Longitude'=>'Lon'); |
my %RegionFields = ('Latitude'=>'Lat', 'Longitude'=>'Lon'); |
|
|
my %AdditionalFields=('IgraA'=>'IgraA','IgraB'=>'IgraB','IgraC'=>'IgraC', |
my %AdditionalFields=('IgraA'=>'IgraA','IgraB'=>'IgraB','IgraC'=>'IgraC', |
'Registrar'=>'Registrar', |
'RegistrarName'=>'RegistrarName', |
'RegistrarEmail'=>'RegistrarEmail'); |
'RegistrarEmail'=>'RegistrarEmail'); |
|
|
|
|
Line 139 sub PrintResults {
|
Line 139 sub PrintResults {
|
for (my $i=1; $i<=5; $i++) { |
for (my $i=1; $i<=5; $i++) { |
if (exists $Result{"Position$i"}) { |
if (exists $Result{"Position$i"}) { |
print "INSERT INTO ClubPeople (cid,pid,Position,Weight) VALUES (,,", |
print "INSERT INTO ClubPeople (cid,pid,Position,Weight) VALUES (,,", |
$Result{"Position$i"}, ",10);\n"; |
'"'.$Result{"Position$i"}.'"', ",10);\n"; |
} |
} |
} |
} |
|
|