--- loncom/interface/lonpickstudent.pm	2003/08/13 20:40:31	1.6
+++ loncom/interface/lonpickstudent.pm	2003/09/22 00:48:32	1.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a student from the classlist
 #
-# $Id: lonpickstudent.pm,v 1.6 2003/08/13 20:40:31 www Exp $
+# $Id: lonpickstudent.pm,v 1.7 2003/09/22 00:48:32 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,10 +33,11 @@ use Apache::Constants qw(:common);
 use Apache::loncommon;
 use Apache::loncoursedata;
 use Apache::lonnet;
+use Apache::lonlocal;
 
 sub handler {
     my $r = shift;
-    $r->content_type('text/html');
+    &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
     return OK if $r->header_only;
 
@@ -110,7 +111,7 @@ ENDSCRIPT
     }
     $r->print('</table><p>&nbsp;');
     if ($filter ne '.') {
-       $r->print('<br/ >Name starting with "'.$filter.'"<br />');
+       $r->print('<br/ >'.&mt('Name starting with').' "'.$filter.'"<br />');
     }
     $r->print('</p><p><table>');
   # ------------------------------------------------------------------ Students
@@ -123,7 +124,7 @@ ENDSCRIPT
 	    if (($uname=~/^$filter/) || 
                 ($fullname=~/^$filter/i)) {
 	       $r->print('<tr><td>'.
-                      '<input type="button" value="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>'.
@@ -137,11 +138,11 @@ ENDSCRIPT
 
     $r->print('</table></p>');
   } else {
-    $r->print('<h3>Users with Roles Assigned by '.
+    $r->print('<h3>'.&mt('Users with Roles Assigned by').' '.
 	      &Apache::loncommon::plainname($ENV{'user.name'},
 					    $ENV{'user.domain'}).'</h3>');
     if ($filter ne '.') {
-       $r->print('<br/ >Name starting with "'.$filter.'"<br />');
+       $r->print('<br/ >'.&mt('Name starting with').' "'.$filter.'"<br />');
     }
     $r->print('<p><table>');
     my %users=&Apache::lonnet::get_my_roles();