version 1.96, 2003/06/04 18:22:52
|
version 1.98, 2003/06/06 02:24:49
|
Line 58 use Apache::lonnet;
|
Line 58 use Apache::lonnet;
|
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::lonhtmlcommon(); |
use Apache::lonhtmlcommon(); |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonmenu; |
|
use GDBM_File; |
use GDBM_File; |
use Apache::lonhomework; |
use Apache::lonhomework; |
use Apache::lonxml; |
use Apache::lonxml; |
Line 288 sub plink {
|
Line 287 sub plink {
|
sub startpage { |
sub startpage { |
my ($r,$id,$udom,$csec,$uname)=@_; |
my ($r,$id,$udom,$csec,$uname)=@_; |
|
|
my $bodytag=&Apache::lonmenu::registerurl(). |
my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', |
&Apache::loncommon::bodytag('Set Course Parameters','', |
'onUnload="pclose()"'); |
'onUnload="'. |
|
&Apache::lonmenu::unloadevents().';pclose();" onLoad="'. |
|
&Apache::lonmenu::loadevents().'"'). |
|
&Apache::lonmenu::regflush(); |
|
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. |
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '. |
&Apache::loncommon::selectstudent_link('parmform','uname','udom'); |
&Apache::loncommon::selectstudent_link('parmform','uname','udom'); |
my $selscript=&Apache::loncommon::studentbrowser_javascript(); |
my $selscript=&Apache::loncommon::studentbrowser_javascript(); |
Line 347 $selscript
|
Line 342 $selscript
|
</head> |
</head> |
$bodytag |
$bodytag |
|
|
<!--<a href="/adm/helper/parameter.helper">Use Assignment Parameter Helper</a>, a |
<a href="/adm/helper/parameter.helper">Use Assignment Parameter Helper</a>, a |
simpler interface to set open, due, or answer open dates for problems or sequences.--> |
simpler interface to set open, due, or answer open dates for problems or sequences. |
|
|
<form method="post" action="/adm/parmset" name="envform"> |
<form method="post" action="/adm/parmset" name="envform"> |
<h3>Course Environment</h3> |
<h3>Course Environment</h3> |