--- loncom/interface/lonpickstudent.pm 2003/08/13 20:40:31 1.6 +++ loncom/interface/lonpickstudent.pm 2005/04/07 06:56:23 1.9 @@ -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.9 2005/04/07 06:56:23 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 @@ -56,16 +58,16 @@ ENDDOCUMENT 'roles']); # Allowed? - unless (($ENV{'form.roles'}) || - (($ENV{'request.course.id'}) && - (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})))) { + unless (($env{'form.roles'}) || + (($env{'request.course.id'}) && + (&Apache::lonnet::allowed('srm',$env{'request.course.id'})))) { $r->print('No context.'); return OK; } # See if filter present - my $filter=$ENV{'form.filter'}; + my $filter=$env{'form.filter'}; $filter=~s/\W//g; unless ($filter) { $filter='.'; } @@ -77,8 +79,8 @@ ENDDOCUMENT $r->print(< function gochoose(uname,udom) { - opener.document.$ENV{'form.form'}.$ENV{'form.unameelement'}.value=uname; - var slct=opener.document.$ENV{'form.form'}.$ENV{'form.udomelement'}; + opener.document.$env{'form.form'}.$env{'form.unameelement'}.value=uname; + var slct=opener.document.$env{'form.form'}.$env{'form.udomelement'}; var i; for (i=0;iprint('
'); - if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) && - (!$ENV{'form.roles'})) { + if ((&Apache::lonnet::allowed('srm',$env{'request.course.id'})) && + (!$env{'form.roles'})) { # -------------------------------------------------------- Get course personnel - $r->print('

'.$ENV{'course.'.$ENV{'request.course.id'}.'.description'}. + $r->print('

'.$env{'course.'.$env{'request.course.id'}.'.description'}. '

'); my %coursepersonnel= &Apache::lonnet::get_course_adv_roles(); @@ -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 '. - &Apache::loncommon::plainname($ENV{'user.name'}, - $ENV{'user.domain'}).'

'); + $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();