--- loncom/interface/lonpickstudent.pm 2003/08/13 20:40:31 1.6 +++ loncom/interface/lonpickstudent.pm 2005/02/17 08:29:43 1.8 @@ -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.8 2005/02/17 08:29:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,16 +33,18 @@ 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; # ------------------------------------------------------------ Print the screen + my $html=&Apache::lonxml::xmlbegin(); $r->print(< +$html The LearningOnline Network with CAPA @@ -110,7 +112,7 @@ ENDSCRIPT } $r->print('

 '); if ($filter ne '.') { - $r->print('
Name starting with "'.$filter.'"
'); + $r->print('
'.&mt('Name starting with').' "'.$filter.'"
'); } $r->print('

'); # ------------------------------------------------------------------ Students @@ -123,7 +125,7 @@ ENDSCRIPT if (($uname=~/^$filter/) || ($fullname=~/^$filter/i)) { $r->print(''. '
'. - ''.$uname.' '.$udom. ''. @@ -137,11 +139,11 @@ ENDSCRIPT $r->print('

'); } else { - $r->print('

Users with Roles Assigned by '. + $r->print('

'.&mt('Users with Roles Assigned by').' '. &Apache::loncommon::plainname($ENV{'user.name'}, $ENV{'user.domain'}).'

'); if ($filter ne '.') { - $r->print('
Name starting with "'.$filter.'"
'); + $r->print('
'.&mt('Name starting with').' "'.$filter.'"
'); } $r->print('

'); my %users=&Apache::lonnet::get_my_roles();