--- loncom/interface/lonparmset.pm 2003/05/03 21:30:21 1.89 +++ loncom/interface/lonparmset.pm 2003/06/23 21:42:07 1.109 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.89 2003/05/03 21:30:21 albertel Exp $ +# $Id: lonparmset.pm,v 1.109 2003/06/23 21:42:07 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -285,8 +285,8 @@ sub plink { sub startpage { - my ($r,$id,$udom,$csec,$uname)=@_; - + my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_; + my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', 'onUnload="pclose()"'); my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. @@ -341,12 +341,24 @@ sub startpage { $selscript $bodytag +
+