--- loncom/interface/lonpickstudent.pm	2011/01/23 01:04:26	1.29
+++ loncom/interface/lonpickstudent.pm	2013/07/15 16:13:22	1.32
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a student from the classlist
 #
-# $Id: lonpickstudent.pm,v 1.29 2011/01/23 01:04:26 www Exp $
+# $Id: lonpickstudent.pm,v 1.32 2013/07/15 16:13:22 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -108,7 +108,7 @@ function gochoose(uname,udom) {
 </script>
 ENDSCRIPT
 
-    $r->print('<form>');
+    $r->print('<form action="">');
     if ($allowed && (!$env{'form.roles'})) {
 # -------------------------------------------------------- Get course personnel
 	$r->print('<h3>'.$env{'course.'.$env{'request.course.id'}.'.description'}.
@@ -121,7 +121,7 @@ ENDSCRIPT
 		my ($puname,$pudom)=split(/\:/,$user);
 		$r->print(&Apache::loncommon::start_data_table_row().
 			  '<td>'.
-			  '<input type="button" value="'.&mt('Select').'" onClick="gochoose('.
+			  '<input type="button" value="'.&mt('Select').'" onclick="gochoose('.
 			  "'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'.
 			  &Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($puname,$pudom),$puname,$pudom).'</td>'.
 			  &Apache::loncommon::end_data_table_row());
@@ -133,6 +133,8 @@ ENDSCRIPT
 
 	$r->print('</p>');
 
+        $r->rflush();
+
         unless ($env{'form.courseadvonly'}) {
 
 # ------------------------------------------------------------------ Students
@@ -200,7 +202,7 @@ ENDSCRIPT
                         }
 		        $result .=&Apache::loncommon::start_data_table_row().
 		    	          '<td>'.
-			          '<input type="button" value="'.&mt('Select').'" onClick="gochoose('.
+			          '<input type="button" value="'.&mt('Select').'" onclick="gochoose('.
 			          "'".$uname."','".$udom."')".'" /></td>'.
 			          '<td><tt>'.$uname.'</tt></td><td> <tt>'.$udom.
 			          '</tt></td><td>'.
@@ -237,6 +239,7 @@ ENDSCRIPT
 		  &Apache::loncommon::plainname($env{'user.name'},
 						$env{'user.domain'}).'</h3>');
 	$r->print($filtermsg);
+        $r->rflush();
 
 	$r->print('<p>'.&Apache::loncommon::start_data_table());
 	my %user_role=&Apache::lonnet::get_my_roles();
@@ -257,7 +260,7 @@ ENDSCRIPT
 	    my ($uname,$udom) = split(':',$user);
 	    $r->print(&Apache::loncommon::start_data_table_row().
 		      '<td>'.
-		      '<input type="button" value="'.&mt('Select').'" onClick="gochoose('.
+		      '<input type="button" value="'.&mt('Select').'" onclick="gochoose('.
 		      "'".$uname."','".$udom."')".'" /></td>'.
 		      '<td><tt>'.$uname.'</tt></td>'.
 		      '<td><tt>'.$udom.'</tt></td><td>'.