--- loncom/interface/lonpickstudent.pm 2006/01/09 20:38:52 1.10 +++ loncom/interface/lonpickstudent.pm 2006/03/15 22:11:04 1.11 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a student from the classlist # -# $Id: lonpickstudent.pm,v 1.10 2006/01/09 20:38:52 albertel Exp $ +# $Id: lonpickstudent.pm,v 1.11 2006/03/15 22:11:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -42,15 +42,7 @@ sub handler { return OK if $r->header_only; # ------------------------------------------------------------ Print the screen - my $html=&Apache::lonxml::xmlbegin(); - $r->print(< -The LearningOnline Network with CAPA - -ENDDOCUMENT - - + $r->print(&Apache::loncommon::start_page("Selecting a User")); &Apache::loncommon::get_unprocessed_cgi @@ -67,7 +59,8 @@ ENDDOCUMENT unless (($env{'form.roles'}) || (($env{'request.course.id'}) && ($allowed))) { - $r->print('No context.'); + $r->print(&mt('No context.'). + &Apache::loncommon::end_page()); return OK; } @@ -81,7 +74,6 @@ ENDDOCUMENT # --------------------------------------- There is such a user, get environment - $r->print(&Apache::loncommon::bodytag("Selecting a User")); $r->print(< function gochoose(uname,udom) { @@ -176,7 +168,7 @@ ENDSCRIPT } $r->print('

'); } - $r->print(''); + $r->print(''.&Apache::loncommon::end_page()); return OK; }