version 1.95.2.1, 2003/06/04 18:23:54
|
version 1.99, 2003/06/13 20:01:02
|
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 286 sub plink {
|
Line 285 sub plink {
|
|
|
|
|
sub startpage { |
sub startpage { |
my ($r,$id,$udom,$csec,$uname)=@_; |
my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_; |
|
|
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> |
Line 356 simpler interface to set open, due, or a
|
Line 351 simpler interface to set open, due, or a
|
</form> |
</form> |
<form method="post" action="/adm/parmset" name="parmform"> |
<form method="post" action="/adm/parmset" name="parmform"> |
<h3>Course Assessments</h3> |
<h3>Course Assessments</h3> |
|
ENDHEAD |
|
|
|
if (!$have_assesments) { |
|
$r->print('<font color="red">There are no assesment parameters in this course to set.</font><br />'); |
|
} else { |
|
$r->print(<<ENDHEAD); |
<b> |
<b> |
Section/Group: |
Section/Group: |
<input type="text" value="$csec" size="6" name="csec"> |
<input type="text" value="$csec" size="6" name="csec"> |
Line 371 $chooseopt
|
Line 372 $chooseopt
|
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_type"> |
<input type="hidden" value='' name="pres_marker"> |
<input type="hidden" value='' name="pres_marker"> |
ENDHEAD |
ENDHEAD |
|
} |
} |
} |
|
|
sub print_row { |
sub print_row { |
Line 766 sub assessparms {
|
Line 767 sub assessparms {
|
|
|
$mapp{'0.0'} = ''; |
$mapp{'0.0'} = ''; |
$symbp{'0.0'} = ''; |
$symbp{'0.0'} = ''; |
|
|
# ---------------------------------------------------------- Anything to store? |
# ---------------------------------------------------------- Anything to store? |
if ($ENV{'form.pres_marker'}) { |
if ($ENV{'form.pres_marker'}) { |
my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'}); |
my ($sresid,$spnam,$snum)=split(/\&/,$ENV{'form.pres_marker'}); |
Line 882 sub assessparms {
|
Line 884 sub assessparms {
|
if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);} |
if ($psprt[0] eq "all" || !@psprt) {@psprt = (keys %allparts);} |
# ------------------------------------------------------------------ Start page |
# ------------------------------------------------------------------ Start page |
|
|
&startpage($r,$id,$udom,$csec,$uname); |
my $have_assesments=1; |
|
if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; } |
|
|
|
&startpage($r,$id,$udom,$csec,$uname,$have_assesments); |
|
|
|
if (!$have_assesments) { return ''; } |
# if ($ENV{'form.url'}) { |
# if ($ENV{'form.url'}) { |
# $r->print('<input type="hidden" value="'.$ENV{'form.url'}. |
# $r->print('<input type="hidden" value="'.$ENV{'form.url'}. |
# '" name="url"><input type="hidden" name="command" value="set">'); |
# '" name="url"><input type="hidden" name="command" value="set">'); |
Line 1048 sub assessparms {
|
Line 1055 sub assessparms {
|
my $csuname=$ENV{'user.name'}; |
my $csuname=$ENV{'user.name'}; |
my $csudom=$ENV{'user.domain'}; |
my $csudom=$ENV{'user.domain'}; |
|
|
|
|
if ($parmlev eq 'full' || $parmlev eq 'brief') { |
if ($parmlev eq 'full' || $parmlev eq 'brief') { |
|
|
my $coursespan=$csec?8:5; |
my $coursespan=$csec?8:5; |
$r->print('<p><table border=2>'); |
$r->print('<p><table border=2>'); |
$r->print('<tr><td colspan=5></td>'); |
$r->print('<tr><td colspan=5></td>'); |
Line 1591 sub handler {
|
Line 1596 sub handler {
|
|
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
# ----------------------------------------------------- Needs to be in a course |
# ----------------------------------------------------- Needs to be in a course |
|
|
if (($ENV{'request.course.id'}) && |
if (($ENV{'request.course.id'}) && |