--- loncom/interface/lonparmset.pm 2003/03/14 21:15:39 1.80.2.1 +++ loncom/interface/lonparmset.pm 2003/04/04 20:38:36 1.86 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.80.2.1 2003/03/14 21:15:39 albertel Exp $ +# $Id: lonparmset.pm,v 1.86 2003/04/04 20:38:36 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -290,6 +290,10 @@ sub startpage { my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', 'onUnload="pclose()"'); + my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. + &Apache::loncommon::selectstudent_link('parmform','uname','udom'); + my $selscript=&Apache::loncommon::studentbrowser_javascript(); + $r->print(< @@ -343,6 +347,7 @@ sub startpage { newWin.focus(); } +$selscript $bodytag
@@ -360,7 +365,7 @@ For User or ID at Domain - +$chooseopt @@ -1557,7 +1562,7 @@ ENDENV =pod -=item handler +=item * handler Main handler. Calls &assessparms and &crsenv subroutines. @@ -1565,6 +1570,7 @@ Main handler. Calls &assessparms and &c ################################################## ################################################## + use Data::Dumper; sub handler { my $r=shift; @@ -1574,6 +1580,11 @@ sub handler { return OK; } &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}); + + $r->content_type('text/html'); + $r->send_http_header; + $r->print("\n\n"); + # ----------------------------------------------------- Needs to be in a course if (($ENV{'request.course.id'}) &&