version 1.119, 2003/08/06 18:08:02
|
version 1.120, 2003/09/03 15:44:57
|
Line 287 sub plink {
|
Line 287 sub plink {
|
sub startpage { |
sub startpage { |
my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_; |
my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_; |
|
|
my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', |
my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','', |
'onUnload="pclose()"'); |
'onUnload="pclose()"'); |
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'); |
Line 343 $selscript
|
Line 343 $selscript
|
$bodytag |
$bodytag |
|
|
<form method="post" action="/adm/parmset" name="envform"> |
<form method="post" action="/adm/parmset" name="envform"> |
<h3>Course Environment</h3> |
<h4>Course Environment Parameters</h4> |
<input type="submit" name="crsenv" value="Set Course Environment"> |
<input type="submit" name="crsenv" value="Set Course Environment Parameters" /> |
|
</form> |
|
<hr /> |
|
<form method="post" action="/adm/helper/parameter.helper" name="helpform"> |
|
<h4>Course Assessment Parameter - Helper Mode</h4> |
|
<input type="submit" value="Set/Modify Course Assessment Parameter" /> |
|
</form> |
|
<hr /> |
|
<form method="post" action="/adm/parmset" name="overview"> |
|
<h4>Course Assessment Parameters - Overview Mode</h4> |
|
<input type="submit" name="overview" value="Modify Course Assessment Parameters" /> |
</form> |
</form> |
<hr /> |
<hr /> |
<form method="post" action="/adm/parmset" name="parmform"> |
<form method="post" action="/adm/parmset" name="parmform"> |
<h3>Course Assessments</h3> |
<h4>Course Assessments Parameters - Table Mode</h4> |
|
|
<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.<br /> <br /> |
|
ENDHEAD |
ENDHEAD |
|
|
if (!$have_assesments) { |
if (!$have_assesments) { |
Line 1040 sub assessparms {
|
Line 1046 sub assessparms {
|
if (($prevvisit) || ($pschp) || ($pssymb)) { |
if (($prevvisit) || ($pschp) || ($pssymb)) { |
$submitmessage = "Update Course Assessment Parameter Display"; |
$submitmessage = "Update Course Assessment Parameter Display"; |
} else { |
} else { |
$submitmessage = "Set Course Assessment Parameters"; |
$submitmessage = "Set/Modify Course Assessment Parameters"; |
} |
} |
$r->print('<input type="submit" name="dis" value="'.$submitmessage.'">'); |
$r->print('<input type="submit" name="dis" value="'.$submitmessage.'">'); |
|
|
Line 1658 $output
|
Line 1664 $output
|
</html> |
</html> |
ENDENV |
ENDENV |
} |
} |
|
################################################## |
|
|
|
sub overview { |
|
my $r=shift; |
|
my $bodytag=&Apache::loncommon::bodytag( |
|
'Set/Modify Course Assessment Parameters'); |
|
my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'}; |
|
my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'}; |
|
$r->print(<<ENDOVER); |
|
<html> |
|
<head> |
|
<title>LON-CAPA Course Environment</title> |
|
</head> |
|
$bodytag |
|
<form method="post" action="/adm/parmset" name="overview"> |
|
Not yet implemented. |
|
<input type="hidden" name="overview" value="1" /> |
|
</form> |
|
</body> |
|
</html> |
|
ENDOVER |
|
} |
################################################## |
################################################## |
################################################## |
################################################## |
|
|
Line 1697 sub handler {
|
Line 1724 sub handler {
|
# --------------------------------------------------------- Bring up assessment |
# --------------------------------------------------------- Bring up assessment |
&assessparms($r); |
&assessparms($r); |
# ---------------------------------------------- This is for course environment |
# ---------------------------------------------- This is for course environment |
|
} elsif ($ENV{'form.overview'}) { |
} else { |
} else { |
&crsenv($r); |
&crsenv($r); |
} |
} |