--- loncom/homework/grades.pm	2008/07/08 08:08:44	1.527
+++ loncom/homework/grades.pm	2008/07/14 10:28:19	1.528
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.527 2008/07/08 08:08:44 raeburn Exp $
+# $Id: grades.pm,v 1.528 2008/07/14 10:28:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5149,7 +5149,7 @@ sub scantron_selectphase {
 
     &Apache::lonpickcode::code_list($r,2);
 
-    $r>print('<br /><form method="post" name="checkscantron">'.
+    $r->print('<br /><form method="post" name="checkscantron">'.
              $default_form_data."\n".
              &Apache::loncommon::start_data_table('LC_scantron_action')."\n".
              &Apache::loncommon::start_data_table_header_row()."\n".