--- loncom/interface/lonparmset.pm 2006/03/16 20:38:19 1.280 +++ loncom/interface/lonparmset.pm 2006/03/23 22:32:10 1.281 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.280 2006/03/16 20:38:19 albertel Exp $ +# $Id: lonparmset.pm,v 1.281 2006/03/23 22:32:10 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -633,21 +633,19 @@ ENDJS } sub startpage { my ($r) = @_; - my $html = &Apache::lonxml::xmlbegin(); - my $head = &Apache::loncommon::head('LON-CAPA Course Parameters', - &page_js()); + my $loaditems = qq|onUnload="pclose()" onLoad="group_or_section('cgroup')"|; - my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','', - $loaditems); + my $start_page = + &Apache::loncommon::start_page('Set/Modify Course Parameters', + &page_js(), + {'add_entries' => $loaditems,}); my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef, 'Table Mode Parameter Setting'); $r->print(< @@ -2297,7 +2295,6 @@ sub crsenv { &Apache::loncommon::browser_and_searcher_javascript('parmset'). ''; - my $html=&Apache::lonxml::xmlbegin(); my $start_page = &Apache::loncommon::start_page('Set Course Environment Parameters', $browse_js);