loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.82 and 1.122

version 1.82, 2003/01/19 11:55:14	version 1.122, 2003/09/04 01:09:04
Line 56 package Apache::lonparmset;	Line 56 package Apache::lonparmset;
use strict;	use strict;
use Apache::lonnet;	use Apache::lonnet;
use Apache::Constants qw(:common :http REDIRECT);	use Apache::Constants qw(:common :http REDIRECT);
	use Apache::lonhtmlcommon();
use Apache::loncommon;	use Apache::loncommon;
use GDBM_File;	use GDBM_File;
use Apache::lonhomework;	use Apache::lonhomework;
Line 284 sub plink {	Line 285 sub plink {


sub startpage {	sub startpage {
my ($r,$id,$udom,$csec,$uname)=@_;	my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;
$r->content_type('text/html');
$r->send_http_header;	my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',

my $bodytag=&Apache::loncommon::bodytag('Set 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');
my $selscript=&Apache::loncommon::studentbrowser_javascript();	my $selscript=&Apache::loncommon::studentbrowser_javascript();
	my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
<html>	<html>
<head>	<head>
Line 306 sub startpage {	Line 305 sub startpage {
parmwin.close();	parmwin.close();
}	}

function pjump(type,dis,value,marker,ret,call) {	$pjump_def
document.parmform.pres_marker.value='';
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type)
+"&value="+escape(value)+"&marker="+escape(marker)
+"&return="+escape(ret)
+"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms",
"height=350,width=350,scrollbars=no,menubar=no");

}

function psub() {	function psub() {
pclose();	pclose();
Line 350 sub startpage {	Line 341 sub startpage {
$selscript	$selscript
</head>	</head>
$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>	</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>
	<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>
	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 380 $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 485 sub print_row {	Line 494 sub print_row {
sub print_td {	sub print_td {
my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;	my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display)=@_;
$r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).	$r->print('<td bgcolor='.(($result==$which)?'"#AAFFAA"':$defbg).
' align="center">'.	' align="center">');
&plink($$typeoutpar[$which],$$display{$value},$$outpar[$which],	if ($which<10) {
$mprefix."$which",'parmform.pres','psub').'</td>'."\n");	$r->print(&plink($$typeoutpar[$which],
	$$display{$value},$$outpar[$which],
	$mprefix."$which",'parmform.pres','psub'));
	} else {
	$r->print(&valout($$outpar[$which],$$typeoutpar[$which]));
	}
	$r->print('</td>'."\n");
}	}

sub get_env_multiple {	sub get_env_multiple {
Line 692 sub assessparms {	Line 707 sub assessparms {
my $url=$ENV{'form.url'};	my $url=$ENV{'form.url'};
$url=~s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;	$url=~s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;
$pssymb=&Apache::lonnet::symbread($url);	$pssymb=&Apache::lonnet::symbread($url);
@pscat='all';	if (!@pscat) { @pscat=('all'); }
$pschp='';	$pschp='';
$parmlev = 'full';	$parmlev = 'full';
} elsif ($ENV{'form.symb'}) {	} elsif ($ENV{'form.symb'}) {
$pssymb=$ENV{'form.symb'};	$pssymb=$ENV{'form.symb'};
@pscat='all';	if (!@pscat) { @pscat=('all'); }
$pschp='';	$pschp='';
$parmlev = 'full';	$parmlev = 'full';
} else {	} else {
Line 725 sub assessparms {	Line 740 sub assessparms {
"<font color=red>Unknown user '$uname' at domain '$udom'</font>";	"<font color=red>Unknown user '$uname' at domain '$udom'</font>";
$uname='';	$uname='';
} else {	} else {
$csec=&Apache::lonnet::usection($udom,$uname,	$csec=&Apache::lonnet::getsection($udom,$uname,
$ENV{'request.course.id'});	$ENV{'request.course.id'});
if ($csec eq '-1') {	if ($csec eq '-1') {
$message="<font color=red>".	$message="<font color=red>".
"User '$uname' at domain '$udom' not ".	"User '$uname' at domain '$udom' not ".
Line 766 sub assessparms {	Line 781 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 848 sub assessparms {	Line 864 sub assessparms {
$message.="<font color=red>Write Error: $1</font>";	$message.="<font color=red>Write Error: $1</font>";
}	}
# ---------------------------------------------------------------- Done storing	# ---------------------------------------------------------------- Done storing
$message.='<h3>Changes can take up to 10 minutes before being active for all students</h3>';	$message.='<h3>Changes can take up to 10 minutes before being active for all students.'.&Apache::loncommon::help_open_topic('Caching').'</h3>';
}	}
# --------------------------------------------- Devalidate cache for this child	# --------------------------------------------- Devalidate cache for this child
&Apache::lonnet::devalidatecourseresdata(	&Apache::lonnet::devalidatecourseresdata(
$ENV{'course.'.$ENV{'request.course.id'}.'.num'},	$ENV{'course.'.$ENV{'request.course.id'}.'.num'},
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'});	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'});
	&Apache::lonnet::clear_EXT_cache_status();
# -------------------------------------------------------------- Get coursedata	# -------------------------------------------------------------- Get coursedata
%courseopt = &Apache::lonnet::dump	%courseopt = &Apache::lonnet::dump
('resourcedata',	('resourcedata',
Line 882 sub assessparms {	Line 899 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) {
	untie(%bighash);
	untie(%parmhash);
	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 897 sub assessparms {	Line 923 sub assessparms {

$r->print('<h2>'.$message.'</h2><table>');	$r->print('<h2>'.$message.'</h2><table>');

$r->print('<tr><td><hr /></td></tr>');	my $submitmessage = 'Update Section or Specific User';

my $submitmessage;
if (($prevvisit) \|\| ($pschp) \|\| ($pssymb)) {
$submitmessage = "Update Display";
} else {
$submitmessage = "Display";
}
if (!$pssymb) {	if (!$pssymb) {
$r->print('<tr><td>Select Parameter Level</td><td>');	$r->print('<tr><td>Select Parameter Level</td><td colspan="2">');
$r->print('<select name="parmlev">');	$r->print('<select name="parmlev">');
foreach (reverse sort keys %alllevs) {	foreach (reverse sort keys %alllevs) {
$r->print('<option value="'.$alllevs{$_}.'"');	$r->print('<option value="'.$alllevs{$_}.'"');
Line 916 sub assessparms {	Line 935 sub assessparms {
$r->print('>'.$_.'</option>');	$r->print('>'.$_.'</option>');
}	}
$r->print("</select></td>\n");	$r->print("</select></td>\n");

$r->print('<td><input type="submit" name="dis" value="'.$submitmessage.'"></td>');

$r->print('</tr><tr><td><hr /></td>');	$r->print('</tr>');

$r->print('<tr><td>Select Enclosing Map or Folder</td>');	$r->print('<tr><td>Select Enclosing Map or Folder</td>');
$r->print('<td colspan="2"><select name="pschp">');	$r->print('<td colspan="2"><select name="pschp">');
Line 940 sub assessparms {	Line 957 sub assessparms {

$r->print('<tr><td colspan="3"><hr /><input type="checkbox"');	$r->print('<tr><td colspan="3"><hr /><input type="checkbox"');
if ($showoptions eq 'show') {$r->print(" checked ");}	if ($showoptions eq 'show') {$r->print(" checked ");}
$r->print(' name="showoptions" value="show" onclick="form.submit();">Show More Options<hr /></td></tr>');	$r->print(' name="showoptions" value="show">Show More Options<hr /></td></tr>');
# $r->print("<tr><td>Show: $showoptions</td></tr>");	# $r->print("<tr><td>Show: $showoptions</td></tr>");
# $r->print("<tr><td>pscat: @pscat</td></tr>");	# $r->print("<tr><td>pscat: @pscat</td></tr>");
# $r->print("<tr><td>psprt: @psprt</td></tr>");	# $r->print("<tr><td>psprt: @psprt</td></tr>");
Line 1025 sub assessparms {	Line 1042 sub assessparms {
}	}

}	}
$r->print('</table>');	$r->print('</table><br />');
	if (($prevvisit) \|\| ($pschp) \|\| ($pssymb)) {
	$submitmessage = "Update Course Assessment Parameter Display";
	} else {
	$submitmessage = "Set/Modify Course Assessment Parameters";
	}
	$r->print('<input type="submit" name="dis" value="'.$submitmessage.'">');

# my @temp_psprt;	# my @temp_psprt;
# foreach my $t (@psprt) {	# foreach my $t (@psprt) {
Line 1048 sub assessparms {	Line 1071 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 1070 ENDTABLETWO	Line 1091 ENDTABLETWO
}	}
$r->print(<<ENDTABLEHEADFOUR);	$r->print(<<ENDTABLEHEADFOUR);
</tr><tr><th>Assessment URL and Title</th><th>Type</th>	</tr><tr><th>Assessment URL and Title</th><th>Type</th>
<th>Enclosing Map or Folder</th><th>Part No.</th><th>Parameter Name</th>	<th>Enclosing Map or Folder</th><th>Part</th><th>Parameter Name</th>
<th>default</th><th>from Enclosing Map or Folder</th>	<th>default</th><th>from Enclosing Map or Folder</th>
<th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th>	<th>general</th><th>for Enclosing Map or Folder</th><th>for Resource</th>
ENDTABLEHEADFOUR	ENDTABLEHEADFOUR
Line 1367 ENDMAPONE	Line 1388 ENDMAPONE

=item crsenv	=item crsenv

Show course data and parameters. This is a large routine that should	Show and set course data and parameters. This is a large routine that should
be simplified and shortened... someday.	be simplified and shortened... someday.

Inputs: $r	Inputs: $r
Line 1385 sub crsenv {	Line 1406 sub crsenv {
'Set Course Environment Parameters');	'Set Course Environment Parameters');
my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};	my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};	my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
# -------------------------------------------------- Go through list of changes
	#
	# Go through list of changes
foreach (keys %ENV) {	foreach (keys %ENV) {
if ($_=~/^form\.(.+)\_setparmval$/) {	next if ($_!~/^form\.(.+)\_setparmval$/);
my $name=$1;	my $name = $1;
my $value=$ENV{'form.'.$name.'_value'};	my $value = $ENV{'form.'.$name.'_value'};
if ($name eq 'newp') {	if ($name eq 'newp') {
$name=$ENV{'form.newp_name'};	$name = $ENV{'form.newp_name'};
}	}
if ($name eq 'url') {	if ($name eq 'url') {
$value=~s/^\/res\///;	$value=~s/^\/res\///;
my $bkuptime=time;	my $bkuptime=time;
my @tmp = &Apache::lonnet::get	my @tmp = &Apache::lonnet::get
('environment',['url'],$dom,$crs);	('environment',['url'],$dom,$crs);
$setoutput.='Backing up previous URL: '.	$setoutput.='Backing up previous URL: '.
&Apache::lonnet::put	&Apache::lonnet::put
('environment',	('environment',
{'top level map backup '.$bkuptime => $tmp[1] },	{'top level map backup '.$bkuptime => $tmp[1] },
$dom,$crs).	$dom,$crs).
'<br>';	'<br>';
	}
	#
	# Deal with modified default spreadsheets
	if ($name =~ /^spreadsheet_default_(classcalc\|
	studentcalc\|
	assesscalc)$/x) {
	my $sheettype = $1;
	if ($sheettype eq 'classcalc') {
	# no need to do anything since viewing the sheet will
	# cause it to be updated.
	} elsif ($sheettype eq 'studentcalc') {
	# expire all the student spreadsheets
	&Apache::lonnet::expirespread('','','studentcalc');
	} else {
	# expire all the assessment spreadsheets
	# this includes non-default spreadsheets, but better to
	# be safe than sorry.
	&Apache::lonnet::expirespread('','','assesscalc');
	# expire all the student spreadsheets
	&Apache::lonnet::expirespread('','','studentcalc');
}	}
if ($name =~ /^spreadsheet_default_(classcalc\|	}
studentcalc\|	#
assesscalc)$/x) {	# Deal with the enrollment dates
my $sheettype = $1;	if ($name =~ /^default_enrollment_(start\|end)_date$/) {
if ($sheettype eq 'classcalc') {	$value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value');
# no need to do anything since viewing the sheet will	}
# cause it to be updated.	#
} elsif ($sheettype eq 'studentcalc') {	# Let the user know we made the changes
# expire all the student spreadsheets	if ($name) {
&Apache::lonnet::expirespread('','','studentcalc');	my $put_result = &Apache::lonnet::put('environment',
} else {	{$name=>$value},$dom,$crs);
# expire all the default assessment spreadsheets	if ($put_result eq 'ok') {
}	$setoutput.='Set <b>'.$name.'</b> to <b>'.$value.'</b>.<br />';
	} else {
	$setoutput.='Unable to set <b>'.$name.'</b> to '.
	'<b>'.$value.'</b> due to '.$put_result.'.<br />';
}	}

if ($name) {
$setoutput.='Setting <tt>'.$name.'</tt> to <tt>'.
$value.'</tt>: '.
&Apache::lonnet::put
('environment',{$name=>$value},$dom,$crs).
'<br>';
}
}	}
}	}
	# ------------------------- Re-init course environment entries for this session

	&Apache::lonnet::coursedescription($ENV{'request.course.id'});

# -------------------------------------------------------- Get parameters again	# -------------------------------------------------------- Get parameters again

my %values=&Apache::lonnet::dump('environment',$dom,$crs);	my %values=&Apache::lonnet::dump('environment',$dom,$crs);
Line 1438 sub crsenv {	Line 1480 sub crsenv {
('url' => '<b>Top Level Map</b> '.	('url' => '<b>Top Level Map</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','url','sequence')\">".	"('envform','url','sequence')\">".
'Browse</a><br /><font color=red> '.	'Select Map</a><br /><font color=red> '.
'Modification may make assessment data '.	'Modification may make assessment data '.
'inaccessible</font>',	'inaccessible</font>',
'description' => '<b>Course Description</b>',	'description' => '<b>Course Description</b>',
'courseid' => '<b>Course ID or number</b><br />'.	'courseid' => '<b>Course ID or number</b><br />'.
'(internal, optional)',	'(internal, optional)',
	'grading' => '<b>Grading</b>'.
	'"standard" or any other value. '.
	'Default for new courses is "standard".',

'default_xml_style' => '<b>Default XML Style File</b> '.	'default_xml_style' => '<b>Default XML Style File</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','default_xml_style'".	"('envform','default_xml_style'".
",'sty')\">Browse</a><br>",	",'sty')\">Select Style File</a><br>",
'question.email' => '<b>Feedback Addresses for Resource Content '.	'question.email' => '<b>Feedback Addresses for Resource Content '.
'Questions</b><br />(<tt>user:domain,'.	'Questions</b><br />(<tt>user:domain,'.
'user:domain(section;section;...;*;...),...</tt>)',	'user:domain(section;section;...;*;...),...</tt>)',
Line 1458 sub crsenv {	Line 1504 sub crsenv {
'hideemptyrows' => '<b>Hide Empty Rows in Spreadsheets</b><br />'.	'hideemptyrows' => '<b>Hide Empty Rows in Spreadsheets</b><br />'.
'("<tt>yes</tt>" for default hiding)',	'("<tt>yes</tt>" for default hiding)',
'pageseparators' => '<b>Visibly Separate Items on Pages</b><br />'.	'pageseparators' => '<b>Visibly Separate Items on Pages</b><br />'.
'("<tt>yes</tt>" for visible separation)',	'("<tt>yes</tt>" for visible separation, '.
	'changes will not show until next login)',

	'plc.roles.denied'=> '<b>Disallow live chatroom use for '.
	'Roles</b><br />"<tt>st</tt>": '.
	'student, "<tt>ta</tt>": '.
	'TA, "<tt>in</tt>": '.
	'instructor;<br /><tt>role,role,...</tt>) '.
	Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
	'plc.users.denied' =>
	'<b>Disallow live chatroom use for Users</b><br />'.
	'(<tt>user:domain,user:domain,...</tt>)',

'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.	'pch.roles.denied'=> '<b>Disallow Resource Discussion for '.
'Roles</b><br />"<tt>st</tt>": '.	'Roles</b><br />"<tt>st</tt>": '.
'student, "<tt>ta</tt>": '.	'student, "<tt>ta</tt>": '.
Line 1472 sub crsenv {	Line 1530 sub crsenv {
=> '<b>Default Course Spreadsheet</b> '.	=> '<b>Default Course Spreadsheet</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_classcalc'".	"('envform','spreadsheet_default_classcalc'".
",'spreadsheet')\">Browse</a><br />",	",'spreadsheet')\">Select Spreadsheet File</a><br />",
'spreadsheet_default_studentcalc'	'spreadsheet_default_studentcalc'
=> '<b>Default Student Spreadsheet</b> '.	=> '<b>Default Student Spreadsheet</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_calc'".	"('envform','spreadsheet_default_calc'".
",'spreadsheet')\">Browse</a><br />",	",'spreadsheet')\">Select Spreadsheet File</a><br />",
'spreadsheet_default_assesscalc'	'spreadsheet_default_assesscalc'
=> '<b>Default Assessment Spreadsheet</b> '.	=> '<b>Default Assessment Spreadsheet</b> '.
'<a href="javascript:openbrowser'.	'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_assesscalc'".	"('envform','spreadsheet_default_assesscalc'".
",'spreadsheet')\">Browse</a><br />",	",'spreadsheet')\">Select Spreadsheet File</a><br />",
'allow_limited_html_in_feedback'	'allow_limited_html_in_feedback'
=> '<b>Allow limited HTML in discussion posts</b><br />'.	=> '<b>Allow limited HTML in discussion posts</b><br />'.
'(Set value to yes to allow)'	'(Set value to "<tt>yes</tt>" to allow)',
);	'rndseed'
foreach (keys(%values)) {	=> '<b>Randomization algorithm used</b> <br />'.
unless ($descriptions{$_}) {	'<font color="red">Modifying this will make problems '.
$descriptions{$_}=$_;	'have different numbers and answers</font>',
	'problem_stream_switch'
	=> '<b>Allow problems to be split over pages</b><br />'.
	' ("<tt>yes</tt>" if allowed, anything else if not)',
	'anonymous_quiz'
	=> '<b>Anonimous quiz/exam</b><br />'.
	' (<tt><b>yes</b> to avoid print students names </tt>)',
	'default_enrollment_start_date' => '<b>Default beginning date '.
	'when enrolling students</b>',
	'default_enrollment_end_date' => '<b>Default ending date '.
	'when enrolling students</b>',
	'languages' => '<b>Languages used</b>',
	'disable_receipt_display'
	=> '<b>Disable display of problem receipts</b><br />'.
	' ("<tt>yes</tt>" to disable, anything else if not)'
	);
	my @Display_Order = ('url','description','courseid','grading',
	'default_xml_style','pageseparators',
	'question.email','comment.email','policy.email',
	'plc.roles.denied','plc.users.denied',
	'pch.roles.denied','pch.users.denied',
	'allow_limited_html_in_feedback',
	'languages',
	'rndseed',
	'problem_stream_switch',
	'disable_receipt_display',
	'spreadsheet_default_classcalc',
	'spreadsheet_default_studentcalc',
	'spreadsheet_default_assesscalc',
	'hideemptyrows',
	'default_enrollment_start_date',
	'default_enrollment_end_date',
	);
	foreach my $parameter (sort(keys(%values))) {
	if (! $descriptions{$parameter}) {
	$descriptions{$parameter}=$parameter;
	push(@Display_Order,$parameter);
}	}
}	}
foreach (sort keys %descriptions) {	foreach my $parameter (@Display_Order) {
	my $description = $descriptions{$parameter};
# onchange is javascript to automatically check the 'Set' button.	# onchange is javascript to automatically check the 'Set' button.
my $onchange = 'onFocus="javascript:window.document.forms'.	my $onchange = 'onFocus="javascript:window.document.forms'.
'[\'envform\'].elements[\''.$_.'_setparmval\']'.	"['envform'].elements['".$parameter."_setparmval']".
'.checked=true;"';	'.checked=true;"';
$output.='<tr><td>'.$descriptions{$_}.'</td>'.	$output .= '<tr><td>'.$description.'</td>';
'<td><input name="'.$_.'_value" size=40 '.	if ($parameter =~ /^default_enrollment_(start\|end)_date$/) {
'value="'.$values{$_}.'" '.$onchange.' /></td>'.	$output .= '<td>'.
'<td><input type=checkbox name="'.$_.'_setparmval"></td>'.	&Apache::lonhtmlcommon::date_setter('envform',
'</tr>'."\n";	$parameter.'_value',
	$values{$parameter},
	$onchange).
	'</td>';
	} else {
	$output .= '<td>'.
	&Apache::lonhtmlcommon::textbox($parameter.'_value',
	$values{$parameter},
	40,$onchange).'</td>';
	}
	$output .= '<td>'.
	&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
	'</td>';
	$output .= "</tr>\n";
}	}
my $onchange = 'onFocus="javascript:window.document.forms'.	my $onchange = 'onFocus="javascript:window.document.forms'.
'[\'envform\'].elements[\'newp_setparmval\']'.	'[\'envform\'].elements[\'newp_setparmval\']'.
Line 1556 $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">
	<input type="hidden" name="overview" value="1" />
	ENDOVER
	# Read and display
	my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
	my $oldsection='';
	my $oldrealm='';
	my $oldpart='';
	foreach my $thiskey (sort keys %resourcedata) {
	my ($course,$middle,$part,$name)=
	($thiskey=~/^(\w+)\.(.)\.([\w\s]+)\.(\w+)$/);
	unless ($name eq 'type') {
	my $section='All Students';
	if ($middle=~/^\[(.*)\]\./) {
	$section='Group/Section: '.$1;
	$middle=~s/^\[(.*)\]\.//;
	}
	my $realm='All Resources';
	if ($middle=~/^(.+)\_\_\_$all$$/) {
	$realm='Folder/Map: '.$1;
	} elsif ($middle) {
	$realm='Resource: '.$middle;
	}
	if ($section ne $oldsection) {
	$r->print("\n<hr /><h1>$section</h1>");
	$oldsection=$section;
	$oldrealm='';
	}
	if ($realm ne $oldrealm) {
	$r->print("\n<h2>$realm</h2>");
	$oldrealm=$realm;
	$oldpart='';
	}
	if ($part ne $oldpart) {
	$r->print("\n<h3>Part: $part</h3>");
	$oldpart=$part;
	}

	$r->print('<br />'.$name.': '.$thiskey.' = '.$resourcedata{$thiskey});
	}
	}
	$r->print('</form></body></html>');
	}

##################################################	##################################################
##################################################	##################################################

=pod	=pod

=item handler	=item * handler

Main handler. Calls &assessparms and &crsenv subroutines.	Main handler. Calls &assessparms and &crsenv subroutines.

Line 1570 Main handler. Calls &assessparms and &c	Line 1735 Main handler. Calls &assessparms and &c

##################################################	##################################################
##################################################	##################################################
	use Data::Dumper;
sub handler {	sub handler {
my $r=shift;	my $r=shift;

Line 1579 sub handler {	Line 1745 sub handler {
return OK;	return OK;
}	}
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});

# ----------------------------------------------------- Needs to be in a course	# ----------------------------------------------------- Needs to be in a course

if (($ENV{'request.course.id'}) &&	if (($ENV{'request.course.id'}) &&
(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {	(&Apache::lonnet::allowed('opa',$ENV{'request.course.id'}))) {

	$r->content_type('text/html');
	$r->send_http_header;

$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};	$coursename=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};

unless (($ENV{'form.crsenv'}) \|\| (!$ENV{'request.course.fn'})) {	if (($ENV{'form.crsenv'}) \|\| (!$ENV{'request.course.fn'})) {
# --------------------------------------------------------- Bring up assessment
&assessparms($r);
# ---------------------------------------------- This is for course environment	# ---------------------------------------------- This is for course environment
} else {	# -------------------------- also call if toplevel map coudl not be initialized
&crsenv($r);	&crsenv($r);
	} elsif ($ENV{'form.overview'}) {
	# --------------------------------------------------------------- Overview mode
	&overview($r);
	} else {
	# --------------------------------------------------------- Bring up assessment
	&assessparms($r);
}	}
} else {	} else {
# ----------------------------- Not in a course, or not allowed to modify parms	# ----------------------------- Not in a course, or not allowed to modify parms

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.82
changed lines
	Added in v.1.122