Add quiz question to new registrations

diff --git a/bcp5-registry.pl b/bcp5-registry.pl
index 5447771e9bf522e78c9e8baa13fcbeb326f627d7..48047dc82dd4c66e0fdd3327febfec5231a9eba6 100755 (executable)
--- a/bcp5-registry.pl
+++ b/bcp5-registry.pl
@@ -187,7 +187,8 @@ if ($invokestyle eq 'maintain') {
     exit 0;
 
 } elsif (length $in{'register'}) {
-    
+
+    quiz_check_answer();
     lock_database();
     read_database();
     

diff --git a/template.html b/template.html
index f70e63e7e270dd9c8960aad5202b86cd309ddb9c..461b4eb6dbc1cc14fa9d55751b496c03fbc2e348 100644 (file)
--- a/template.html
+++ b/template.html
@@ -377,6 +377,7 @@ Hide email address from public database.
 <br>
 
 @@@if:registernew|picked@@@
+@@@quiz_question_input@@@
 <input type=submit name="register" value="Register.">
 @@@endif:@@@