register/prgsrc/addclub.pl - diff

Return to addclub.pl CVS log

Up to [Local Repository] / register / prgsrc

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";
}	}
}	}