--- register/prgsrc/addclub.pl	2001/09/12 16:47:32	1.1
+++ register/prgsrc/addclub.pl	2001/09/17 02:57:50	1.2
@@ -22,11 +22,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2001/09/12 16:47:32 $
+$Date: 2001/09/17 02:57:50 $
 
 =head1 REVISION
 
-$Revision: 1.1 $
+$Revision: 1.2 $
 
 =cut
 
@@ -59,7 +59,7 @@ for (my $i=1; $i<=5; $i++) {
 my %RegionFields = ('Latitude'=>'Lat', 'Longitude'=>'Lon');
 
 my %AdditionalFields=('IgraA'=>'IgraA','IgraB'=>'IgraB','IgraC'=>'IgraC',
-		      'Registrar'=>'Registrar', 
+		      'RegistrarName'=>'RegistrarName', 
 		      'RegistrarEmail'=>'RegistrarEmail');
 
 
@@ -139,7 +139,7 @@ sub PrintResults {
     for (my $i=1; $i<=5; $i++) {
 	if (exists $Result{"Position$i"}) {
 	    print "INSERT INTO ClubPeople (cid,pid,Position,Weight) VALUES (,,", 
-	    $Result{"Position$i"}, ",10);\n";
+	    '"'.$Result{"Position$i"}.'"', ",10);\n";
 	}
     }