--- capa/capa51/GUITools/quizzer.tcl	1999/11/18 17:55:24	1.9
+++ capa/capa51/GUITools/quizzer.tcl	1999/12/03 18:39:38	1.10
@@ -3653,7 +3653,7 @@ proc printWindow {} {
 	-value "printWholeClass" -variable gPrintSelection(type) 
     pack $wholeClassFrame.wholeClass -side left
     
-i   message $studentNumber.msg -text "Student Number: "  -aspect 10000
+    message $studentNumber.msg -text "Student Number: "  -aspect 10000
     entry $studentNumber.entry -textvariable gPrintSelection(studentNumber) -width 9 \
 	-validate key -validatecommand "limitEntry %W 9 any %P"
     pack $studentNumber.msg $studentNumber.entry -side left
@@ -3785,14 +3785,16 @@ proc createCreateDviWin {} {
 # sends the file quiztemp.ps to the printer through lpr using
 # the option foud in gLprCommand
 ###########################################################
-# Arguments: none
+# Arguments: lprCommand - actual command to be run to print
+#            showCompletionMessage - (defaults to 1 true)
+#                      controls whether the print complete 
+#                      message gets shown
 # Returns: Nothing
 # Globals: gCapaConfig -
 #          gStopPrinting -
 # Files: quiztemp.ps - file containg info to print (removed)
 ###########################################################
-proc printBodon(section
-ionMessage 1 } } {
+proc printBody { lprCommand { showCompletionMessage 1 } } {
     global gCapaConfig gStopPrinting gDonePrinting
 
     set errorMsg ""