Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.488 and 1.522.2.23.4.1

version 1.488, 2009/12/03 17:50:42	version 1.522.2.23.4.1, 2017/06/21 19:54:58
Line 46 This module sets coursewide and assessme	Line 46 This module sets coursewide and assessme

=over	=over

=pod

=item parmval()	=item parmval()

Figure out a cascading parameter.	Figure out a cascading parameter.
Line 137 javascript function 'pjump'.	Line 135 javascript function 'pjump'.

=item extractResourceInformation() :	=item extractResourceInformation() :

Given the course data hash, extractResourceInformation extracts lots of information about the course's resources into a variety of hashes.	extractResourceInformation extracts lots of information about all of the the course's resources into a variety of hashes.

	Input: See list below

	=over 4

Input: See list below:	=item * B<env{'user.name'}> : Current username

=item * B<ids> : An array that will contain all of the ids in the course.	=item * B<env{'user.domain'}> : Domain of current user.

	=item * B<env{"request.course.fn"}> : Course

	=back

=item * B<typep> : hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.	Outputs: See list below

=item * B<keyp> : hash, id->key list, will contain a comma separated list of the meta-data keys available for the given id	=over 4

=item * B<allparms> : hash, name of parameter->display value (what is the display value?)	=item * B<ids> (out) : An array that will contain all of the ids in the course.

=item * B<allparts> : hash, part identification->text representation of part, where the text representation is "[Part $part]"	=item * B<typep>(out) : hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.

=item * B<allkeys> : hash, full key to part->display value (what's display value?)	=item * B<keyp> (out) : hash, id->key list, will contain a comma separated list of the meta-data keys available for the given id

=item * B<allmaps> : hash, ???	=item * B<allparms> (out) : hash, name of parameter->display value (what is the display value?)

=item * B<fcat> : ???	=item * B<allparts> (out) : hash, part identification->text representation of part, where the text representation is "[Part $part]"

=item * B<defp> : hash, ???	=item * B<allmaps> (out) : hash, ???

=item * B<mapp> : ??	=item * B<mapp> : ??

=item * B<symbp> : hash, id->full sym?	=item * B<symbp> : hash, id->full sym?

	=item * B<maptitles>

	=item * B<uris>

	=item * B<keyorder>

	=item * B<defkeytype>

	=back

=item isdateparm()	=item isdateparm()

Line 196 Input: See list below:	Line 210 Input: See list below:
Show assessment data and parameters. This is a large routine that should	Show assessment data and parameters. This is a large routine that should
be simplified and shortened... someday.	be simplified and shortened... someday.

Inputs: $r	Inputs: $r - the Apache request object.

Returns: nothing	Returns: nothing

Variables used (guessed by Jeremy):	Variables used (guessed by Jeremy):

	=over

=item * B<pscat>: ParameterS CATegories? ends up a list of the types of parameters that exist, e.g., tol, weight, acc, opendate, duedate, answerdate, sig, maxtries, type.	=item * B<pscat>: ParameterS CATegories? ends up a list of the types of parameters that exist, e.g., tol, weight, acc, opendate, duedate, answerdate, sig, maxtries, type.

=item * B<psprt>: ParameterS PaRTs? a list of the parts of a problem that we are displaying? Used to display only selected parts?	=item * B<psprt>: ParameterS PaRTs? a list of the parts of a problem that we are displaying? Used to display only selected parts?
Line 214 Variables used (guessed by Jeremy):	Line 230 Variables used (guessed by Jeremy):
When storing information, store as part 0	When storing information, store as part 0
When requesting information, request from full part	When requesting information, request from full part

	=back

=item tablestart()	=item tablestart()

=item tableend()	=item tableend()
Line 248 Variables used (guessed by Jeremy):	Line 266 Variables used (guessed by Jeremy):

=item parse_key()	=item parse_key()

=item check_cloners() :

Checks if new users included in list of allowed cloners
are valid users. Replaces supplied list with
cleaned list containing only users with valid usernames
and domains.

Inputs: $clonelist, $oldcloner
where $clonelist is ref to array of requested cloners,
and $oldcloner is ref to array of currently allowed
cloners.

Returns: string - comma separated list of requested
cloners (username:domain) who do not exist in system.

=item change_clone() :

Modifies the list of courses a user can clone (stored
in the user's environment.db file), called when a
change is made to the list of users allowed to clone
a course.

Inputs: $action,$cloner
where $action is add or drop, and $cloner is identity of
user for whom cloning ability is to be changed in course.


=item check_cloners()

=item change_clone()

=item header()	=item header()

Output html header for page	Output html header for page
Line 311 Set portfolio metadata	Line 298 Set portfolio metadata

Main handler. Calls &assessparms subroutine.	Main handler. Calls &assessparms subroutine.


=back	=back

=cut	=cut
Line 333 use Apache::lonlocal;	Line 319 use Apache::lonlocal;
use Apache::lonnavmaps;	use Apache::lonnavmaps;
use Apache::longroup;	use Apache::longroup;
use Apache::lonrss;	use Apache::lonrss;
	use HTML::Entities;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);


Line 662 sub storeparm_by_symb {	Line 649 sub storeparm_by_symb {
}	}

sub log_parmset {	sub log_parmset {
return &Apache::lonnet::instructor_log('parameterlog',@_);	return &Apache::lonnet::write_log('course','parameterlog',@_);
}	}

sub storeparm_by_symb_inner {	sub storeparm_by_symb_inner {
Line 765 sub storeparm_by_symb_inner {	Line 752 sub storeparm_by_symb_inner {


sub valout {	sub valout {
my ($value,$type,$editable)=@_;	my ($value,$type,$name,$editable)=@_;
my $result = '';	my $result = '';
# Values of zero are valid.	# Values of zero are valid.
if (! $value && $value ne '0') {	if (! $value && $value ne '0') {
if ($editable) {	if ($editable) {
$result = '<span class="LC_clickhere">*</span>';	$result =
} else {	'<img src="/res/adm/pages/editmap.png"'
$result=' ';	.' alt="'.&mt('Change').'"'
}	.' title="'.&mt('Change').'" style="border:0;" />';
	} else {
	$result=' ';
	}
} else {	} else {
if ($type eq 'date_interval') {	if ($type eq 'date_interval') {
my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($value);	my ($totalsecs,$donesuffix) = split(/_/,$value,2);
	my ($usesdone,$donebuttontext,$proctor,$secretkey);
	if ($donesuffix =~ /^done\:([^\:]+)\:(.*)$/) {
	$donebuttontext = $1;
	(undef,$proctor,$secretkey) = split(/_/,$2);
	$usesdone = 'done';
	} elsif ($donesuffix =~ /^done(\|_.+)$/) {
	$donebuttontext = &mt('Done');
	($usesdone,$proctor,$secretkey) = split(/_/,$donesuffix);
	}
	my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($totalsecs);
my @timer;	my @timer;
$year=$year-70;	$year=$year-70;
$mday--;	$mday--;
Line 809 sub valout {	Line 809 sub valout {
push(@timer,&mt('[quant,_1,sec]',0));	push(@timer,&mt('[quant,_1,sec]',0));
}	}
$result.=join(", ",@timer);	$result.=join(", ",@timer);
	if ($usesdone eq 'done') {
	if ($secretkey) {
	$result .= ' '.&mt('+ "[_1]" with proctor key: [_2]',$donebuttontext,$secretkey);
	} else {
	$result .= ' + "'.$donebuttontext.'"';
	}
	}
} elsif (&isdateparm($type)) {	} elsif (&isdateparm($type)) {
$result = &Apache::lonlocal::locallocaltime($value).	$result = &Apache::lonlocal::locallocaltime($value).
&date_sanity_info($value);	&date_sanity_info($value);
} else {	} else {
$result = $value;	$result = $value;
	$result=~s/\,/\, /gs;
$result = &HTML::Entities::encode($result,'"<>&');	$result = &HTML::Entities::encode($result,'"<>&');
}	}
}	}
Line 834 sub plink {	Line 842 sub plink {
my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);	my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);
my ($hour,$min,$sec,$val)=&preset_defaults($parmname);	my ($hour,$min,$sec,$val)=&preset_defaults($parmname);
unless (defined($winvalue)) { $winvalue=$val; }	unless (defined($winvalue)) { $winvalue=$val; }
my $valout = &valout($value,$type,1);	my $valout = &valout($value,$type,$parmname,1);
my $unencmarker = $marker;	my $unencmarker = $marker;
foreach my $item (\$type, \$dis, \$winvalue, \$marker, \$return, \$call,	foreach my $item (\$type, \$dis, \$winvalue, \$marker, \$return, \$call,
\$hour, \$min, \$sec) {	\$hour, \$min, \$sec) {
Line 855 sub page_js {	Line 863 sub page_js {
return(<<ENDJS);	return(<<ENDJS);
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
function pclose() {
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
"height=350,width=350,scrollbars=no,menubar=no");
parmwin.close();
}

$pjump_def	$pjump_def

function psub() {	function psub() {
pclose();
if (document.parmform.pres_marker.value!='') {	if (document.parmform.pres_marker.value!='') {
document.parmform.action+='#'+document.parmform.pres_marker.value;	document.parmform.action+='#'+document.parmform.pres_marker.value;
var typedef=new Array();	var typedef=new Array();
Line 899 $selscript	Line 901 $selscript
ENDJS	ENDJS

}	}

	sub showhide_js {
	return <<"COURSECONTENTSCRIPT";

	function showHide_courseContent() {
	var parmlevValue=document.getElementById("parmlev").value;
	if (parmlevValue == 'general') {
	document.getElementById('mapmenu').style.display="none";
	} else {
	if ((parmlevValue == "full") \|\| (parmlevValue == "map")) {
	document.getElementById('mapmenu').style.display ="";
	} else {
	document.getElementById('mapmenu').style.display="none";
	}
	}
	return;
	}

	COURSECONTENTSCRIPT
	}

	sub done_proctor_js {
	return <<"END";
	function toggleSecret(form,radio,key) {
	var radios = form[radio+key];
	if (radios.length) {
	for (var i=0; i<radios.length; i++) {
	if (radios[i].checked) {
	if (radios[i].value == '_done_proctor') {
	if (document.getElementById('done_'+key+'_proctorkey')) {
	document.getElementById('done_'+key+'_proctorkey').type='text';
	}
	} else {
	if (document.getElementById('done_'+key+'_proctorkey')) {
	document.getElementById('done_'+key+'_proctorkey').type='hidden';
	document.getElementById('done_'+key+'_proctorkey').value='';
	}
	}
	}
	}
	}
	}
	END

	}

sub startpage {	sub startpage {
my ($r) = @_;	my ($r,$psymb) = @_;

my %loaditems = ('onunload' => "pclose()",	my %loaditems = (
'onload' => "showHide_courseContent(); group_or_section('cgroup')",	'onload' => "group_or_section('cgroup')",
);	);
	if (!$psymb) {
	$loaditems{'onload'} = "showHide_courseContent(); group_or_section('cgroup'); resize_scrollbox('mapmenuscroll','1','1');";
	}

if ((($env{'form.command'} eq 'set') && ($env{'form.url'})	if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {	&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {
Line 915 sub startpage {	Line 966 sub startpage {
text=>"Table Mode",	text=>"Table Mode",
help => 'Course_Setting_Parameters'});	help => 'Course_Setting_Parameters'});
}	}
	my $js = &page_js().'
	<script type="text/javascript">
	// <![CDATA[
	'.
	&Apache::lonhtmlcommon::resize_scrollbox_js('params').'
	// ]]>
	</script>
	';
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Set/Modify Course Parameters',	&Apache::loncommon::start_page('Set/Modify Course Parameters',$js,
&page_js(),
{'add_entries' => \%loaditems,});	{'add_entries' => \%loaditems,});
my $breadcrumbs =	my $breadcrumbs =
&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');	&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');
	my $escfilter=&Apache::lonhtmlcommon::entity_encode($env{'form.filter'});
	my $escpart=&Apache::lonhtmlcommon::entity_encode($env{'form.part'});
	$r->print($start_page.$breadcrumbs);
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
$start_page
$breadcrumbs
<form method="post" action="/adm/parmset?action=settable" name="parmform">	<form method="post" action="/adm/parmset?action=settable" name="parmform">
<input type="hidden" value="" name="pres_value" />	<input type="hidden" value="" name="pres_value" />
<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" />
<input type="hidden" value="1" name="prevvisit" />	<input type="hidden" value="1" name="prevvisit" />
	<input type="hidden" value="$escfilter" name="filter" />
	<input type="hidden" value="$escpart" name="part" />
ENDHEAD	ENDHEAD
}	}


sub print_row {	sub print_row {
my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,	my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,
$defbgtwo,$defbgthree,$parmlev,$uname,$udom,$csec,$cgroup,$usersgroups)=@_;	$defbgtwo,$defbgthree,$parmlev,$uname,$udom,$csec,$cgroup,$usersgroups,$noeditgrp,
	$readonly)=@_;
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);	my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
Line 961 sub print_row {	Line 1023 sub print_row {

if ($parmlev eq 'full') {	if ($parmlev eq 'full') {
$r->print('<td style="background-color:'.$defbgtwo.';" align="center">'	$r->print('<td style="background-color:'.$defbgtwo.';" align="center">'
.$$part{$which}.'</td>');	.($$part{$which} eq '0'?'0 ('.&mt('default').')':$$part{$which}).'</td>');
} else {	} else {
$parm=~s\|\[.*\]\s\|\|g;	$parm=~s\|\[.*\]\s\|\|g;
}	}
Line 974 sub print_row {	Line 1036 sub print_row {
my $thismarker=$which;	my $thismarker=$which;
$thismarker=~s/^parameter\_//;	$thismarker=~s/^parameter\_//;
my $mprefix=$rid.'&'.$thismarker.'&';	my $mprefix=$rid.'&'.$thismarker.'&';
my $effective_parm = &valout($outpar[$result],$typeoutpar[$result]);	my $effective_parm = &valout($outpar[$result],$typeoutpar[$result],$thismarker);
my ($othergrp,$grp_parm,$controlgrp);	my ($othergrp,$grp_parm,$controlgrp);

if ($parmlev eq 'general') {	if ($parmlev eq 'general') {

if ($uname) {	if ($uname) {
&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
} elsif ($cgroup) {	} elsif ($cgroup) {
&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,$noeditgrp,$readonly);
} elsif ($csec) {	} elsif ($csec) {
&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
} else {	} else {
&print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
}	}
} elsif ($parmlev eq 'map') {	} elsif ($parmlev eq 'map') {

if ($uname) {	if ($uname) {
&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
} elsif ($cgroup) {	} elsif ($cgroup) {
&print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,$noeditgrp,$readonly);
} elsif ($csec) {	} elsif ($csec) {
&print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
} else {	} else {
&print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
}	}
} else {	} else {
if ($uname) {	if ($uname) {
Line 1017 sub print_row {	Line 1079 sub print_row {
}	}
}	}

&print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);

&print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
&print_td($r,12,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,12,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
&print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
&print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);

if ($csec) {	if ($csec) {
&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
&print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
&print_td($r,7,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,7,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
}	}

if ($cgroup) {	if ($cgroup) {
&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,$noeditgrp,$readonly);
&print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,$noeditgrp,$readonly);
&print_td($r,4,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,4,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,$noeditgrp,$readonly);
}	}

if ($uname) {	if ($uname) {
if ($othergrp) {	if ($othergrp) {
$r->print($othergrp);	$r->print($othergrp);
}	}
&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
&print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display,'',$readonly);
}	}

} # end of $parmlev if/else	} # end of $parmlev if/else
Line 1054 sub print_row {	Line 1116 sub print_row {
my $sessionvaltype=$typeoutpar[$result];	my $sessionvaltype=$typeoutpar[$result];
if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }	if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
$r->print('<td style="background-color:#999999;" align="center"><font color="#FFFFFF">'.	$r->print('<td style="background-color:#999999;" align="center"><font color="#FFFFFF">'.
&valout($sessionval,$sessionvaltype).' '.	&valout($sessionval,$sessionvaltype,$$name{$which}).' '.
'</font></td>');	'</font></td>');
}	}
$r->print('</tr>');	$r->print('</tr>');
Line 1062 sub print_row {	Line 1124 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,$noeditgrp,$readonly)=@_;
$r->print('<td style="background-color:'.(($result==$which)?'#AAFFAA':$defbg).	$r->print('<td style="background-color:'.(($result==$which)?'#AAFFAA':$defbg).
';" align="center">');	';" align="center">');
my $nolink = 0;	my $nolink = 0;
if ($which == 11 \|\| $which == 12) {	if ($readonly) {
$nolink = 1;	$nolink = 1;
} elsif ($mprefix =~ /availablestudent\&$/) {	} else {
if ($which > 3) {	if ($which == 11 \|\| $which == 12) {
$nolink = 1;	$nolink = 1;
	} elsif ($mprefix =~ /availablestudent\&$/) {
	if ($which > 3) {
	$nolink = 1;
	}
	} elsif ($mprefix =~ /examcode\&$/) {
	unless ($which == 2) {
	$nolink = 1;
	}
}	}
}	}
if ($nolink) {	if ($nolink) {
$r->print(&valout($$outpar[$which],$$typeoutpar[$which]));	$r->print(&valout($$outpar[$which],$$typeoutpar[$which],$mprefix));
} else {	} else {
$r->print(&plink($$typeoutpar[$which],	$r->print(&plink($$typeoutpar[$which],
$$display{$value},$$outpar[$which],	$$display{$value},$$outpar[$which],
Line 1099 sub print_usergroups {	Line 1169 sub print_usergroups {
if (($coursereply) && ($cgroup ne $resultgroup)) {	if (($coursereply) && ($cgroup ne $resultgroup)) {
if ($result > 3) {	if ($result > 3) {
$bgcolor = '#AAFFAA';	$bgcolor = '#AAFFAA';
$grp_parm = &valout($coursereply,$resulttype);	$grp_parm = &valout($coursereply,$resulttype,$what);
}	}
$grp_parm = &valout($coursereply,$resulttype);	$grp_parm = &valout($coursereply,$resulttype,$what);
$output = '<td style="background-color:'.$bgcolor.';" align="center">';	$output = '<td style="background-color:'.$bgcolor.';" align="center">';
if ($resultgroup && $resultlevel) {	if ($resultgroup && $resultlevel) {
$output .= '<small><b>'.$resultgroup.'</b> ('.$resultlevel.'): </small>'.$grp_parm;	$output .= '<small><b>'.$resultgroup.'</b> ('.$resultlevel.'): </small>'.$grp_parm;
Line 1169 sub extractResourceInformation {	Line 1239 sub extractResourceInformation {
$$typep{$id}=$1;	$$typep{$id}=$1;
$$keyp{$id}='';	$$keyp{$id}='';
$$uris{$id}=$srcf;	$$uris{$id}=$srcf;

foreach my $key (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {	foreach my $key (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
next if ($key!~/^parameter_/);	next if ($key!~/^parameter_/);

Line 1224 sub extractResourceInformation {	Line 1295 sub extractResourceInformation {
$$mapp{$mapid}=$$mapp{$id};	$$mapp{$mapid}=$$mapp{$id};
$$allmaps{$mapid}=$$mapp{$id};	$$allmaps{$mapid}=$$mapp{$id};
if ($mapid eq '1') {	if ($mapid eq '1') {
$$maptitles{$mapid}=&mt('Main Course Documents');	$$maptitles{$mapid}=&mt('Main Content');
} else {	} else {
$$maptitles{$mapid}=&Apache::lonnet::gettitle($$mapp{$id});	$$maptitles{$mapid}=&Apache::lonnet::gettitle($$mapp{$id});
}	}
Line 1245 sub isdateparm {	Line 1316 sub isdateparm {
}	}

#	#
# This function prints a list of parameters, which were selected. It also display a link from which you can	# parmmenu displays a list of the selected parameters.
# hide or show the complete parameter list, from which you can choose your parameters.	# It also offers a link to show/hide the complete parameter list
	# from which you can select all desired parameters.
#	#
sub parmmenu {	sub parmmenu {
my ($r,$allparms,$pscat,$keyorder)=@_;	my ($r,$allparms,$pscat,$keyorder)=@_;
Line 1267 sub parmmenu {	Line 1339 sub parmmenu {
ele = document.forms.parmform.elements[i];	ele = document.forms.parmform.elements[i];
if (ele.name == checkName) {	if (ele.name == checkName) {
document.forms.parmform.elements[i].checked=value;	document.forms.parmform.elements[i].checked=value;
document.getElementById(document.forms.parmform.elements[i].value.concat(li)).style.display = displayOverview;
}	}
}	}
}	}

function checkthis(thisvalue, checkName) {	function checkthis(thisvalue, checkName) {

document.getElementById(thisvalue.concat("_li")).style.display = "";

for (i=0; i<document.forms.parmform.elements.length; i++) {	for (i=0; i<document.forms.parmform.elements.length; i++) {
ele = document.forms.parmform.elements[i];	ele = document.forms.parmform.elements[i];
Line 1293 sub parmmenu {	Line 1363 sub parmmenu {
}	}

function checkdisset() {	function checkdisset() {
checkthis('discussend','pscat');	checkthis('discussend','pscat');
checkthis('discusshide','pscat');	checkthis('discusshide','pscat');
	checkthis('discussvote','pscat');
}	}

function checkcontdates() {	function checkcontdates() {
Line 1321 sub parmmenu {	Line 1392 sub parmmenu {
checkdates();	checkdates();
checkthis('weight','pscat');	checkthis('weight','pscat');
checkthis('maxtries','pscat');	checkthis('maxtries','pscat');
	checkthis('type','pscat');
	checkthis('problemstatus','pscat');
}	}

function hideParms() {
document.getElementById('LC_parm_overview_parm_menu').style.display = "none";
}

function showParms() {
document.getElementById('LC_parm_overview_parm_menu').style.display = "";
}

function checkboxChecked(id) {
var li = "_li";
var id_li = id.concat(li);
if (document.getElementById(id_li).style.display == "none") {
document.getElementById(id_li).style.display = "";
}
else {
document.getElementById(id_li).style.display = "none";
}
}
// ]]>	// ]]>
</script>	</script>
ENDSCRIPT	ENDSCRIPT
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));

#part to print selected parms overview
$r->print(&mt('Selected Parameters:').'<br />');

#print out all possible parms and hide them by default
$r->print('<ul>');
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
$r->print('<li id="'.$tempkey.'_li" value="'.$tempkey.'_li" name="pscat_li"');
if (!($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat})) {
$r->print(' style="display:none"');
}
$r->print('>'
.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey} : $tempkey)
.'</li>'
);
}
$r->print('</ul>'
.'<p><a href="javascript:showParms()">'
.&mt('Show detailed Parameter Selection')
.'</a></p>'
);

	$r->print('<hr />');
&shortCuts($r,$allparms,$pscat,$keyorder);	&shortCuts($r,$allparms,$pscat,$keyorder);
	$r->print('<hr />');
$r->print(&Apache::lonhtmlcommon::row_closure(1));
}	}
# return a hash	# return a hash
sub categories {	sub categories {
Line 1396 sub lookUpTableParameter {	Line 1429 sub lookUpTableParameter {
'contentopen' => 'time_settings',	'contentopen' => 'time_settings',
'contentclose' => 'time_settings',	'contentclose' => 'time_settings',
'discussend' => 'time_settings',	'discussend' => 'time_settings',
	'printstartdate' => 'time_settings',
	'printenddate' => 'time_settings',
'weight' => 'grading',	'weight' => 'grading',
'handgrade' => 'grading',	'handgrade' => 'grading',
'maxtries' => 'tries',	'maxtries' => 'tries',
'hinttries' => 'tries',	'hinttries' => 'tries',
	'randomizeontries' => 'tries',
'type' => 'problem_appearance',	'type' => 'problem_appearance',
'problemstatus' => 'problem_appearance',	'problemstatus' => 'problem_appearance',
'display' => 'problem_appearance',	'display' => 'problem_appearance',
Line 1426 sub lookUpTableParameter {	Line 1462 sub lookUpTableParameter {
'acc' => 'misc',	'acc' => 'misc',
'maxcollaborators' => 'misc',	'maxcollaborators' => 'misc',
'scoreformat' => 'misc',	'scoreformat' => 'misc',
	'lenient' => 'grading',
	'retrypartial' => 'tries',
	'discussvote' => 'misc',
	'examcode' => 'high_level_randomization',
);	);
}	}

Line 1493 sub parmboxes {	Line 1532 sub parmboxes {
'slots' => [],	'slots' => [],
'file_submission' => [],	'file_submission' => [],
'misc' => [],	'misc' => [],
);	);

foreach $tempparameter (keys %$allparms) {	foreach $tempparameter (keys %$allparms) {
&whatIsMyCategory($tempparameter, \%categoryList);	&whatIsMyCategory($tempparameter, \%categoryList);
}	}
#part to print the parm-list	#part to print the parm-list
$r->print('<fieldset id="LC_parm_overview_parm_menu" style="display:none">'	$r->print('<div class="LC_columnSection">'."\n");
.'<legend>'.&mt('Parameter').'</legend>'."\n"
);

#Print parameters	#Print parameters
for my $key (sort { $category_order{$a} <=> $category_order{$b} } keys %categoryList) {	for my $key (sort { $category_order{$a} <=> $category_order{$b} } keys %categoryList) {
if(@{$categoryList{$key}} == 0) {	next if(@{$categoryList{$key}} == 0);
next;	$r->print('<div class="LC_Box LC_400Box">'
} else {	.'<h4 class="LC_hcell">'
$r->print('<fieldset>'	.&mt($categories{$key})
.'<legend>'	.'</h4>'."\n");
.&mt($categories{$key})	foreach $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) {
.'</legend>'."\n");	$r->print('<span class="LC_nobreak">'
foreach $tempkey (&keysindisplayorderCategory($categoryList{$key},$keyorder)) {	.'<label><input type="checkbox" name="pscat" '
$r->print('<span class="LC_nobreak">'	.'value="'.$tempkey.'" ');
.'<label><input type="checkbox" name="pscat" ');	if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {
$r->print('value="'.$tempkey.'" ');	$r->print(' checked="checked"');
$r->print('onclick="checkboxChecked(\''.$tempkey.'\')"');
if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {
$r->print(' checked="checked"');
}
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
: $tempkey)
.'</label></span> ');
}	}
$r->print('</fieldset>');	$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
	: $tempkey)
	.'</label></span><br />'."\n");
}	}
	$r->print("</div>\n");
}	}
$r->print('<hr />'
.'<a href="javascript:hideParms()">'
.&mt('Hide')
.'</a>'
);

#&shortCuts($r,$allparms,$pscat,$keyorder);	$r->print("</div>\n");
$r->print('</fieldset>');
}	}
#	#
# This function offers some links on the parameter section to get with one click a group a parameters	# This function offers some links on the parameter section to get with one click a group a parameters
Line 1541 sub parmboxes {	Line 1569 sub parmboxes {
sub shortCuts {	sub shortCuts {
my ($r,$allparms,$pscat,$keyorder)=@_;	my ($r,$allparms,$pscat,$keyorder)=@_;

#part to print out the shortcuts for parmselection	# Parameter Selection
$r->print('<table><tr id="LC_parm_overview_parm_menu_selectors">'	$r->print(
.'<td valign="top">'	&Apache::lonhtmlcommon::start_funclist(&mt('Parameter Selection'))
.'<fieldset><legend>'.&mt('Parameter Selection').'</legend>'	.&Apache::lonhtmlcommon::add_item_funclist(
.'<span class="LC_nobreak">'	'<a href="javascript:checkall(true, \'pscat\')">'.&mt('Select All').'</a>')
.'• <a href="javascript:checkall(true, \'pscat\')">'.&mt('Select All').'</a>'	.&Apache::lonhtmlcommon::add_item_funclist(
.'</span>'	'<a href="javascript:checkstandard()">'.&mt('Select Common Only').'</a>')
.'<br />'	.&Apache::lonhtmlcommon::add_item_funclist(
.'<span class="LC_nobreak">'	'<a href="javascript:checkall(false, \'pscat\')">'.&mt('Unselect All').'</a>')
.'• <a href="javascript:checkstandard()">'.&mt('Select Common Only').'</a>'	.&Apache::lonhtmlcommon::end_funclist()
.'</span>'	);
.'<br />'
.'<span class="LC_nobreak">'	# Add Selection for...
.'• <a href="javascript:checkall(false, \'pscat\')">'.&mt('Unselect All').'</a>'	$r->print(
.'</span>'	&Apache::lonhtmlcommon::start_funclist(&mt('Add Selection for...'))
.'</fieldset>'	.&Apache::lonhtmlcommon::add_item_funclist(
.'</td>'	'<a href="javascript:checkdates()">'.&mt('Problem Dates').'</a>')
.'<td colspan="2" valign="top">'	.&Apache::lonhtmlcommon::add_item_funclist(
.'<fieldset><legend>'.&mt('Add Selection for...').'</legend>'	'<a href="javascript:checkcontdates()">'.&mt('Content Dates').'</a>')
.'<span class="LC_nobreak">'	.&Apache::lonhtmlcommon::add_item_funclist(
.'• <a href="javascript:checkdates()">'.&mt('Problem Dates').'</a>'	'<a href="javascript:checkdisset()">'.&mt('Discussion Settings').'</a>')
.'</span>'	.&Apache::lonhtmlcommon::add_item_funclist(
.'<span class="LC_nobreak">'	'<a href="javascript:checkvisi()">'.&mt('Visibilities').'</a>')
.' • <a href="javascript:checkcontdates()">'.&mt('Content Dates').'</a>'	.&Apache::lonhtmlcommon::add_item_funclist(
.'</span>'	'<a href="javascript:checkparts()">'.&mt('Part Parameters').'</a>')
# .'<br />'	.&Apache::lonhtmlcommon::end_funclist()
.'<span class="LC_nobreak">'	);
.' • <a href="javascript:checkdisset()">'.&mt('Discussion Settings').'</a>'
.'</span>'
.'<span class="LC_nobreak">'
.' • <a href="javascript:checkvisi()">'.&mt('Visibilities').'</a>'
.'</span>'
# .'<br />'
.'<span class="LC_nobreak">'
.' • <a href="javascript:checkparts()">'.&mt('Part Parameters').'</a>'
.'</span>'
.'</fieldset>'
.'</td>'
.'</tr></table>');
}	}

sub partmenu {	sub partmenu {
my ($r,$allparts,$psprt)=@_;	my ($r,$allparts,$psprt)=@_;
	my $selsize = 1+scalar(keys(%{$allparts}));
	if ($selsize > 8) {
	$selsize = 8;
	}

$r->print('<select multiple="multiple" name="psprt" size="8">');	$r->print('<select multiple="multiple" name="psprt" size="'.$selsize.'">');
$r->print('<option value="all"');	$r->print('<option value="all"');
$r->print(' selected="selected"') unless (@{$psprt});	$r->print(' selected="selected"') unless (@{$psprt});
$r->print('>'.&mt('All Parts').'</option>');	$r->print('>'.&mt('All Parts').'</option>');
Line 1706 function group_or_section(caller) {	Line 1726 function group_or_section(caller) {
# This function shows on table Mode the available Parameters for the selected Resources	# This function shows on table Mode the available Parameters for the selected Resources
#	#
sub displaymenu {	sub displaymenu {
my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;	my ($r,$allparms,$pscat,$psprt,$keyorder,$divid)=@_;

$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));

&parmmenu($r,$allparms,$pscat,$keyorder);	&parmmenu($r,$allparms,$pscat,$keyorder);
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::loncommon::start_scrollbox('480px','440px','200px',$divid));
&parmboxes($r,$allparms,$pscat,$keyorder);	&parmboxes($r,$allparms,$pscat,$keyorder);
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::loncommon::end_scrollbox());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
&partmenu($r,$allparts,$psprt);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());

}	}

sub mapmenu {	sub mapmenu {
my ($r,$allmaps,$pschp,$maptitles, $symbp)=@_;	my ($r,$allmaps,$pschp,$maptitles,$symbp)=@_;
my %allmaps_inverted = reverse %$allmaps;	my %allmaps_inverted = reverse %$allmaps;
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my $tree=[];	my $tree=[];
my $treeinfo={};	my $treeinfo={};
if (defined($navmap)) {	if (defined($navmap)) {
my $it=$navmap->getIterator(undef,undef,undef,1,undef,undef);	my $it=$navmap->getIterator(undef,undef,undef,1,1,undef);
my $curRes;	my $curRes;
my $depth = 0;	my $depth = 0;
my %parent = ();	my %parent = ();
Line 1770 sub mapmenu {	Line 1793 sub mapmenu {
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',' id="mapmenu"'));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',' id="mapmenu"'));
if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {	if ((ref($tree) eq 'ARRAY') && (ref($treeinfo) eq 'HASH')) {
my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';	my $icon = '<img src="/adm/lonIcons/navmap.folder.open.gif" alt="" />';
$r->print(&Apache::loncommon::start_data_table()	my $whitespace =
.&Apache::loncommon::start_data_table_row()	'<img src="'
.'<td>'.$icon	.&Apache::loncommon::lonhttpdurl('/adm/lonIcons/whitespace_21.gif')
.'<label> '	.'" alt="" />';
.'<input type="radio" name="pschp" checked="checked" value="all" />'
.&mt('All Maps or Folders')	# Info about selectable folders/maps
.'</label></td>'	$r->print(
.&Apache::loncommon::end_data_table_row()	'<div class="LC_info">'
	.&mt('You can only select maps and folders which have modifiable settings.')
	.' '.&Apache::loncommon::help_open_topic('Parameter_Set_Folder')
	.'</div>'
	);

	$r->print(&Apache::loncommon::start_scrollbox('700px','680px','400px','mapmenuscroll'));
	$r->print(&Apache::loncommon::start_data_table(undef,'mapmenuinner'));

	# Display row: "All Maps or Folders"
	$r->print(
	&Apache::loncommon::start_data_table_row(undef,'picklevel')
	.'<td>'
	.'<label>'
	.'<input type="radio" name="pschp"'
);	);
my $whitespace = '<img src="'	$r->print(' checked="checked"') if ($pschp eq 'all' \|\| !$pschp);
.&Apache::loncommon::lonhttpdurl("/adm/lonIcons/whitespace_21.gif")	$r->print(
.'" alt="" />';	' value="all" /> '.$icon.' '
	.&mt('All Maps or Folders')
	.'</label>'
	.'<hr /></td>'
	.&Apache::loncommon::end_data_table_row()
	);

	# Display row: "Main Content"
if (exists($$allmaps{1})) {	if (exists($$allmaps{1})) {
$r->print(&Apache::loncommon::start_data_table_row()	$r->print(
.'<td>'.$icon	&Apache::loncommon::start_data_table_row()
.'<label> '	.'<td>'
.'<input type="radio" name="pschp" value="1"'	.'<label>'
	.'<input type="radio" name="pschp" value="1"'
);	);
if ($pschp eq 1) {	$r->print(' checked="checked"') if ($pschp eq '1');
$r->print(' checked="checked"');	$r->print(
}	'/> '.$icon.' '
$r->print('/>'	.$$maptitles{1}
.$$maptitles{1}	.($$allmaps{1} !~/^uploaded/?' ['.$$allmaps{1}.']':'')
.($$allmaps{1} !~/^uploaded/?' ['.$$allmaps{1}.']':'')	.'</label>'
.'</label>'	.'</td>'
.'</td>'	.&Apache::loncommon::end_data_table_row()
.&Apache::loncommon::end_data_table_row()
);	);
}	}

	# Display rows for all course maps and folders
foreach my $id (@{$tree}) {	foreach my $id (@{$tree}) {
my ($mapid,$resid)=split(/\./,$id);	my ($mapid,$resid)=split(/\./,$id);
# Indentation	# Indentation
Line 1814 sub mapmenu {	Line 1860 sub mapmenu {
my $symb_name = $$symbp{$id};	my $symb_name = $$symbp{$id};
my ($front, $tail) = split (/___${resid}___/, $symb_name);	my ($front, $tail) = split (/___${resid}___/, $symb_name);
$symb_name = $tail;	$symb_name = $tail;
$r->print(&Apache::loncommon::start_data_table_row()	$r->print(
.'<td>'.$indent.$icon	&Apache::loncommon::start_data_table_row()
.'<label> '	.'<td>'
.'<input type ="radio" name="pschp" value="'.$allmaps_inverted{$symb_name}.'"'	.'<label>'
);	);
if ($pschp eq $allmaps_inverted{$symb_name}) {	# Only offer radio button for folders/maps which can be parameterized
$r->print(' checked="checked"');	if ($allmaps_inverted{$symb_name}) {
	$r->print(
	'<input type ="radio" name="pschp"'
	.' value="'.$allmaps_inverted{$symb_name}.'"'
	);
	$r->print(' checked="checked"') if ($allmaps_inverted{$symb_name} eq $pschp);
	$r->print('/>');
	} else {
	$r->print($whitespace);
}	}
$r->print('/>'	$r->print(
.$treeinfo->{$id}->{name}	$indent.$icon.' '
.($$allmaps{$mapid}!~/^uploaded/?' ['.$$allmaps{$mapid}.']':'')	.$treeinfo->{$id}->{name}
.'</label>'	.($$allmaps{$mapid}!~/^uploaded/?' ['.$$allmaps{$mapid}.']':'')
.'</td>'	.'</label>'
.&Apache::loncommon::end_data_table_row()	.'</td>'
	.&Apache::loncommon::end_data_table_row()
);	);
}	}
$r->print(&Apache::loncommon::end_data_table());
	$r->print(&Apache::loncommon::end_data_table().
	'<br style="line-height:2px;" />'.
	&Apache::loncommon::end_scrollbox());
}	}
}	}

Line 1956 sub standardkeyorder {	Line 2014 sub standardkeyorder {
'parameter_0_tol' => 16,	'parameter_0_tol' => 16,
'parameter_0_sig' => 17,	'parameter_0_sig' => 17,
'parameter_0_turnoffunit' => 18,	'parameter_0_turnoffunit' => 18,
'parameter_0_discussend' => 19,	'parameter_0_discussend' => 19,
'parameter_0_discusshide' => 20);	'parameter_0_discusshide' => 20,
	'parameter_0_discussvote' => 21,
	'parameter_0_printstartdate' => 22,
	'parameter_0_printenddate' => 23);
}	}


sub assessparms {	sub assessparms {

my $r=shift;	my ($r,$parm_permission) = @_;


	# -------------------------------------------------------- Variable declaration
my @ids=();	my @ids=();
my %symbp=();	my %symbp=();
my %mapp=();	my %mapp=();
Line 1972 sub assessparms {	Line 2035 sub assessparms {
my %keyp=();	my %keyp=();
my %uris=();	my %uris=();
my %maptitles=();	my %maptitles=();

# -------------------------------------------------------- Variable declaration

my %allmaps=();	my %allmaps=();
my %alllevs=();	my %alllevs=();

Line 1993 sub assessparms {	Line 2053 sub assessparms {

my %allparms;	my %allparms;
my %allparts;	my %allparts;
	# ------------------------------------------------------------------------------

#	#
# Order in which these parameters will be displayed	# Order in which these parameters will be displayed
#	#
my %keyorder=&standardkeyorder();	my %keyorder=&standardkeyorder();

@ids=();	# @ids=();
%symbp=();	# %symbp=(); # These seem defined above already.
%typep=();	# %typep=();

my $message='';	my $message='';

$csec=$env{'form.csec'};	$csec=$env{'form.csec'};
$cgroup=$env{'form.cgroup'};	$cgroup=$env{'form.cgroup'};
	my $noeditgrp;
	if ($cgroup ne '') {
	unless (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
	if (($env{'request.course.groups'} eq '') \|\|
	(!grep(/^\Q$cgroup\E$/,split(/,/,$env{'request.course.groups'})))) {
	$noeditgrp = 1;
	}
	}
	}

if ($udom=$env{'form.udom'}) {	if ($udom=$env{'form.udom'}) {
} elsif ($udom=$env{'request.role.domain'}) {	} elsif ($udom=$env{'request.role.domain'}) {
Line 2017 sub assessparms {	Line 2088 sub assessparms {

my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');	my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
my $pschp=$env{'form.pschp'};	my $pschp=$env{'form.pschp'};


my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');	my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
if (!@psprt) { $psprt[0]='0'; }	if (!@psprt) { $psprt[0]='0'; }
	if (($env{'form.part'}) && ($psprt[0] ne 'all')) { $psprt[0]=$env{'form.part'}; }

my $pssymb='';	my $pssymb='';
my $parmlev='';	my $parmlev='';
Line 2086 sub assessparms {	Line 2160 sub assessparms {
$message="\n<p>\n".&mt("Full Name").": ".	$message="\n<p>\n".&mt("Full Name").": ".
$name{'firstname'}.' '.$name{'middlename'}.' '	$name{'firstname'}.' '.$name{'middlename'}.' '
.$name{'lastname'}.' '.$name{'generation'}.	.$name{'lastname'}.' '.$name{'generation'}.
"<br />\n".&mt('ID').": ".$name{'id'}.'<p>';	"<br />\n".&mt('Student/Employee ID').": ".$name{'id'}.'<p>';
}	}
@usersgroups = &Apache::lonnet::get_users_groups(	@usersgroups = &Apache::lonnet::get_users_groups(
$udom,$uname,$env{'request.course.id'});	$udom,$uname,$env{'request.course.id'});
Line 2110 sub assessparms {	Line 2184 sub assessparms {
$symbp{'0.0'} = '';	$symbp{'0.0'} = '';

# ---------------------------------------------------------- Anything to store?	# ---------------------------------------------------------- Anything to store?
if ($env{'form.pres_marker'}) {	if ($env{'form.pres_marker'} && $parm_permission->{'edit'}) {
my @markers=split(/\&\&\&/,$env{'form.pres_marker'});	my @markers=split(/\&\&\&/,$env{'form.pres_marker'});
my @values=split(/\&\&\&/,$env{'form.pres_value'});	my @values=split(/\&\&\&/,$env{'form.pres_value'});
my @types=split(/\&\&\&/,$env{'form.pres_type'});	my @types=split(/\&\&\&/,$env{'form.pres_type'});
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
	my ($got_chostname,$chostname,$cmajor,$cminor);
	my $totalstored = 0;
	my $now = time;

for (my $i=0;$i<=$#markers;$i++) {	for (my $i=0;$i<=$#markers;$i++) {
	my ($needsrelease,$needsnewer,$name);
if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1\|2\|3)$/) {	if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1\|2\|3)$/) {
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my (@ok_slots,@fail_slots,@del_slots);	my (@ok_slots,@fail_slots,@del_slots);
my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);	my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
my ($level,@all) =	my ($level,@all) =
Line 2147 sub assessparms {	Line 2227 sub assessparms {
}	}
}	}
}	}
	} elsif ($markers[$i] =~ /_(type\|lenient\|retrypartial\|discussvote\|examcode\|printstartdate\|printenddate)\&\d+$/) {
	$name = $1;
	my $val = $values[$i];
	if ($name eq 'examcode') {
	if (&Apache::lonnet::validCODE($values[$i])) {
	$val = 'valid';
	}
	} elsif ($name eq 'printstartdate') {
	if ($val =~ /^\d+$/) {
	if ($val > $now) {
	$val = 'future';
	}
	}
	} elsif ($name eq 'printenddate') {
	if ($val =~ /^\d+$/) {
	if ($val < $now) {
	$val = 'past';
	}
	}
	}
	$needsrelease =
	$Apache::lonnet::needsrelease{"parameter:$name:$val"};
	if ($needsrelease) {
	unless ($got_chostname) {
	($chostname,$cmajor,$cminor) = &parameter_release_vars();
	$got_chostname = 1;
	}
	$needsnewer = &parameter_releasecheck($name,$val,
	$needsrelease,
	$cmajor,$cminor);
	}
	}
	if ($needsnewer) {
	$message .= &oldversion_warning($name,$values[$i],$chostname,$cmajor,
	$cminor,$needsrelease);
	} else {
	$message.=&storeparm(split(/\&/,$markers[$i]),
	$values[$i],
	$types[$i],
	$uname,$udom,$csec,$cgroup);
	$totalstored ++;
}	}
$message.=&storeparm(split(/\&/,$markers[$i]),
$values[$i],
$types[$i],
$uname,$udom,$csec,$cgroup);
}	}
# ---------------------------------------------------------------- Done storing	# ---------------------------------------------------------------- Done storing
$message.='<p class="LC_warning">'	if ($totalstored) {
.&mt('Changes can take up to 10 minutes before being active for all students.')	$message.='<p class="LC_warning">'
.&Apache::loncommon::help_open_topic('Caching')	.&mt('Changes can take up to 10 minutes before being active for all students.')
.'</p>';	.&Apache::loncommon::help_open_topic('Caching')
	.'</p>';
	}
}	}
#----------------------------------------------- if all selected, fill in array	#----------------------------------------------- if all selected, fill in array
if ($pscat[0] eq "all") {@pscat = (keys %allparms);}	if ($pscat[0] eq "all") {@pscat = (keys %allparms);}
if (!@pscat) { @pscat=('duedate','opendate','answerdate','weight','maxtries') };	if (!@pscat) { @pscat=('duedate','opendate','answerdate','weight','maxtries','type','problemstatus') };
if ($psprt[0] eq "all" \|\| !@psprt) {@psprt = (keys %allparts);}	if ($psprt[0] eq "all" \|\| !@psprt) {@psprt = (keys %allparts);}
# ------------------------------------------------------------------ Start page	# ------------------------------------------------------------------ Start page

&startpage($r);	&startpage($r,$pssymb);

foreach ('tolerance','date_default','date_start','date_end',	foreach ('tolerance','date_default','date_start','date_end',
'date_interval','int','float','string') {	'date_interval','int','float','string') {
Line 2188 function parmsel_show() {	Line 2307 function parmsel_show() {
</script>	</script>
ENDPARMSELSCRIPT	ENDPARMSELSCRIPT

# Display Unit 1 "General Parameters"
if (!$pssymb) {	if (!$pssymb) {
my $parmselhiddenstyle=' style="display:none"';	my $parmselhiddenstyle=' style="display:none"';
if($env{'form.hideparmsel'} eq 'hidden') {	if($env{'form.hideparmsel'} eq 'hidden') {
Line 2197 ENDPARMSELSCRIPT	Line 2315 ENDPARMSELSCRIPT
$r->print('<div id="parmsel">');	$r->print('<div id="parmsel">');
}	}

$r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification')));	# Step 1
$r->print(<<COURSECONTENTSCRIPT);	$r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification'),'parmstep1'));
	$r->print('
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA['.
function showHide_courseContent(){	&showhide_js().'
var parmlevValue=document.getElementById("parmlev").value;
if (parmlevValue == 'general') {
document.getElementById('mapmenu').style.display="none";
} else {
if ((parmlevValue == "full") \|\| (parmlevValue == "map")) {
document.getElementById('mapmenu').style.display ="";
} else {
document.getElementById('mapmenu').style.display="none";
}
}
}
// ]]>	// ]]>
</script>	</script>
COURSECONTENTSCRIPT	');
	$r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
$r->print(&Apache::lonhtmlcommon::start_pick_box());
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure());
$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print(&Apache::lonhtmlcommon::start_pick_box());
&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);	&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);
	$r->print(&Apache::lonhtmlcommon::row_closure());
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
	&partmenu($r,\%allparts,\@psprt);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
#Display Unit 2 "Select Parameter"
$r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification')));	# Step 2
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);	$r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification'),'parmstep2'));
$r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)')));	&displaymenu($r,\%allparms,\@pscat,\@psprt,\%keyorder,'parmmenuscroll');

	# Step 3
	$r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)'),'parmstep3'));
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);	&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());

	# Update Display Button
$r->print('<p>'	$r->print('<p>'
.'<input type="submit" name="dis"'	.'<input type="submit" name="dis"'
.' value="'.&mt('Update Parameter Display').'" />'	.' value="'.&mt('Update Display').'" />'
.'<input type="hidden" name="hideparmsel" value="hidden" />'	.'<input type="hidden" name="hideparmsel" value="hidden" />'
.'</p>');	.'</p>');
$r->print('</div>');	$r->print('</div>');

# Offer link to display parameter selection again	# Offer link to display parameter selection again
$r->print('<p id="parmsellink"');	$r->print('<p id="parmsellink"');
if ($env{'form.hideparmsel'} ne 'hidden') {	if ($env{'form.hideparmsel'} ne 'hidden') {
Line 2250 COURSECONTENTSCRIPT	Line 2364 COURSECONTENTSCRIPT
.'</a>'	.'</a>'
.'</p>');	.'</p>');
} else {	} else {
	$r->print();
# parameter screen for a single resource.	# parameter screen for a single resource.
my ($map,$iid,$resource)=&Apache::lonnet::decode_symb($pssymb);	my ($map,$iid,$resource)=&Apache::lonnet::decode_symb($pssymb);
my $title = &Apache::lonnet::gettitle($pssymb);	my $title = &Apache::lonnet::gettitle($pssymb);
$r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource).	$r->print(&mt('Specific Resource: [_1] ([_2])',
	$title,'<span class="LC_filename">'.$resource.'</span>').
'<input type="hidden" value="'.$pssymb.'" name="symb" />'.	'<input type="hidden" value="'.$pssymb.'" name="symb" />'.
'<br />');	'<br />');
$r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('Additional Display Specification (optional)')));	$r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('Additional Display Specification (optional)')));
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')).	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')).
'<label>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.	'<label>'.
($env{'form.psprt'}?' checked="checked"':'').' /></label></td></tr>');	'<input type="checkbox" name="psprt" value="all"'.
	($env{'form.psprt'}?' checked="checked"':'').' />'.
	&mt('Show all parts').
	'</label></td></tr>');
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);	&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print('<p>'	$r->print('<p>'
.'<input type="submit" name="dis"'	.'<input type="submit" name="dis"'
.' value="'.&mt('Update Parameter Display').'" />'	.' value="'.&mt('Update Display').'" />'
.'<input type="hidden" name="hideparmsel" value="hidden" />'	.'<input type="hidden" name="hideparmsel" value="hidden" />'
.'</p>');	.'</p>');
}	}
Line 2290 COURSECONTENTSCRIPT	Line 2409 COURSECONTENTSCRIPT
my @catmarker=map { tr\|.\|_\|; 'parameter_'.$_; } @pscat;	my @catmarker=map { tr\|.\|_\|; 'parameter_'.$_; } @pscat;
my $csuname=$env{'user.name'};	my $csuname=$env{'user.name'};
my $csudom=$env{'user.domain'};	my $csudom=$env{'user.domain'};
	my $readonly = 1;
	if ($parm_permission->{'edit'}) {
	undef($readonly);
	}

if ($parmlev eq 'full') {	if ($parmlev eq 'full') {
	#
	# This produces the cascading table output of parameters
	#
my $coursespan=$csec?8:5;	my $coursespan=$csec?8:5;
my $userspan=3;	my $userspan=3;
if ($cgroup ne '') {	if ($cgroup ne '') {
$coursespan += 3;	$coursespan += 3;
}	}

$r->print('<p><table border="2">');	$r->print(&Apache::loncommon::start_data_table());
	#
	# This produces the headers
	#
$r->print('<tr><td colspan="5"></td>');	$r->print('<tr><td colspan="5"></td>');
$r->print('<th colspan="'.($coursespan).'">'.&mt('Any User').'</th>');	$r->print('<th colspan="'.($coursespan).'">'.&mt('Any User').'</th>');
if ($uname) {	if ($uname) {
Line 2311 COURSECONTENTSCRIPT	Line 2440 COURSECONTENTSCRIPT
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'pie' => "Parameter in Effect",	'pie' => "Parameter in Effect",
'csv' => "Current Session Value",	'csv' => "Current Session Value",
'at' => 'at',
'rl' => "Resource Level",	'rl' => "Resource Level",
'ic' => 'in Course',	'ic' => 'in Course',
'aut' => "Assessment URL and Title",	'aut' => "Assessment URL and Title",
Line 2327 COURSECONTENTSCRIPT	Line 2455 COURSECONTENTSCRIPT
);	);
$r->print(<<ENDTABLETWO);	$r->print(<<ENDTABLETWO);
<th rowspan="3">$lt{'pie'}</th>	<th rowspan="3">$lt{'pie'}</th>
<th rowspan="3">$lt{'csv'}<br />($csuname $lt{'at'} $csudom)</th>	<th rowspan="3">$lt{'csv'}<br />($csuname:$csudom)</th>
</tr><tr><td colspan="5"></td><th colspan="2">$lt{'ic'}</th><th colspan="2">$lt{'rl'}</th>	</tr><tr><td colspan="5"></td><th colspan="2">$lt{'ic'}</th><th colspan="2">$lt{'rl'}</th>
<th colspan="1">$lt{'ic'}</th>	<th colspan="1">$lt{'ic'}</th>

Line 2363 ENDTABLEHEADFOUR	Line 2491 ENDTABLEHEADFOUR
}	}

$r->print('</tr>');	$r->print('</tr>');
	#
	# Done with the headers
	#
my $defbgone='';	my $defbgone='';
my $defbgtwo='';	my $defbgtwo='';
my $defbgthree = '';	my $defbgthree = '';
Line 2403 ENDTABLEHEADFOUR	Line 2533 ENDTABLEHEADFOUR
my %default=();	my %default=();
my $uri=&Apache::lonnet::declutter($uris{$rid});	my $uri=&Apache::lonnet::declutter($uris{$rid});

	my $filter=$env{'form.filter'};
foreach (&keysplit($keyp{$rid})) {	foreach (&keysplit($keyp{$rid})) {
my $tempkeyp = $_;	my $tempkeyp = $_;
if (grep $_ eq $tempkeyp, @catmarker) {	if (grep $_ eq $tempkeyp, @catmarker) {
	my $parmname=&Apache::lonnet::metadata($uri,$_.'.name');
	# We may only want certain parameters listed
	if ($filter) {
	unless ($filter=~/\Q$parmname\E/) { next; }
	}
	$name{$_}=$parmname;
$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');	$part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
$name{$_}=&Apache::lonnet::metadata($uri,$_.'.name');
my $parmdis=&Apache::lonnet::metadata($uri,$_.'.display');	my $parmdis=&Apache::lonnet::metadata($uri,$_.'.display');
if ($allparms{$name{$_}} ne '') {	if ($allparms{$name{$_}} ne '') {
my $identifier;	my $identifier;
Line 2451 ENDTABLEHEADFOUR	Line 2588 ENDTABLEHEADFOUR
$r->print('<td style="background-color:'.$defbgone.';"'.	$r->print('<td style="background-color:'.$defbgone.';"'.
' rowspan='.$totalparms.	' rowspan='.$totalparms.
'>'.$maptitles{$mapp{$rid}}.'</td>');	'>'.$maptitles{$mapp{$rid}}.'</td>');

foreach (&keysinorder_bytype(\%name,\%keyorder)) {	foreach (&keysinorder_bytype(\%name,\%keyorder)) {

unless ($firstrow) {	unless ($firstrow) {
$r->print('<tr>');	$r->print('<tr>');
} else {	} else {
Line 2461 ENDTABLEHEADFOUR	Line 2598 ENDTABLEHEADFOUR
&print_row($r,$_,\%part,\%name,\%symbp,$rid,\%default,	&print_row($r,$_,\%part,\%name,\%symbp,$rid,\%default,
\%type,\%display,$defbgone,$defbgtwo,	\%type,\%display,$defbgone,$defbgtwo,
$defbgthree,$parmlev,$uname,$udom,$csec,	$defbgthree,$parmlev,$uname,$udom,$csec,
$cgroup,\@usersgroups);	$cgroup,\@usersgroups,$noeditgrp,$readonly);
}	}
}	}
}	}
} # end foreach ids	} # end foreach ids
# -------------------------------------------------- End entry for one resource	# -------------------------------------------------- End entry for one resource
$r->print('</table>');	$r->print(&Apache::loncommon::end_data_table);
} # end of full	} # end of full
#--------------------------------------------------- Entry for parm level map	#--------------------------------------------------- Entry for parm level map
if ($parmlev eq 'map') {	if ($parmlev eq 'map') {
Line 2584 ENDTABLEHEADFOUR	Line 2721 ENDTABLEHEADFOUR
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
&print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,	&print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,
\%type,\%display,$defbgone,$defbgtwo,$defbgthree,	\%type,\%display,$defbgone,$defbgtwo,$defbgthree,
$parmlev,$uname,$udom,$csec,$cgroup);	$parmlev,$uname,$udom,$csec,$cgroup,'',$noeditgrp,
	$readonly);
}	}
$r->print(&Apache::loncommon::end_data_table().'</p>'	$r->print(&Apache::loncommon::end_data_table().'</p>'
.'</div>'	.'</div>'
Line 2674 ENDMAPONE	Line 2812 ENDMAPONE
foreach (&keysinorder(\%name,\%keyorder)) {	foreach (&keysinorder(\%name,\%keyorder)) {
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
&print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,	&print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,
\%type,\%display,$defbgone,$defbgtwo,$defbgthree,	\%type,\%display,$defbgone,$defbgtwo,$defbgthree,
$parmlev,$uname,$udom,$csec,$cgroup);	$parmlev,$uname,$udom,$csec,$cgroup,'',$noeditgrp,
	$readonly);
}	}
$r->print(&Apache::loncommon::end_data_table()	$r->print(&Apache::loncommon::end_data_table()
.'</p>'	.'</p>'
Line 2683 ENDMAPONE	Line 2822 ENDMAPONE
);	);
} # end of $parmlev eq general	} # end of $parmlev eq general
}	}
$r->print('</form>'.&Apache::loncommon::end_page());	$r->print('</form>');
	$r->print(&Apache::loncommon::end_page());
} # end sub assessparms	} # end sub assessparms

##################################################	##################################################
Line 2692 ENDMAPONE	Line 2832 ENDMAPONE
my $tableopen;	my $tableopen;

sub tablestart {	sub tablestart {
	my ($readonly) = @_;
if ($tableopen) {	if ($tableopen) {
return '';	return '';
} else {	} else {
$tableopen=1;	$tableopen=1;
return &Apache::loncommon::start_data_table().'<tr><th>'.&mt('Parameter').'</th><th>'.	my $output = &Apache::loncommon::start_data_table().'<tr><th>'.&mt('Parameter').'</th>';
&mt('Delete').'</th><th>'.&mt('Set to ...').'</th></tr>';	if ($readonly) {
	$output .= '<th>'.&mt('Current value').'</th>';
	} else {
	$output .= '<th>'.&mt('Delete').'</th><th>'.&mt('Set to ...').'</th>';
	}
	$output .= '</tr>';
	return $output;
}	}
}	}

Line 2730 sub readdata {	Line 2877 sub readdata {
}	}
}	}
}	}
return $resourcedata;	if (wantarray) {
	return ($resourcedata,$classlist);
	} else {
	return $resourcedata;
	}
}	}


Line 2745 sub storedata {	Line 2896 sub storedata {
undef %newdata;	undef %newdata;
my @deldata=();	my @deldata=();
undef @deldata;	undef @deldata;
foreach (keys %env) {	my ($got_chostname,$chostname,$cmajor,$cminor);
if ($_=~/^form\.([a-z]+)\_(.+)$/) {	my $now = time;
	foreach my $key (keys(%env)) {
	if ($key =~ /^form\.([a-z]+)\_(.+)$/) {
my $cmd=$1;	my $cmd=$1;
my $thiskey=$2;	my $thiskey=$2;
my ($tuname,$tudom)=&extractuser($thiskey);	my ($tuname,$tudom)=&extractuser($thiskey);
Line 2755 sub storedata {	Line 2908 sub storedata {
$tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;	$tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
}	}
if ($cmd eq 'set' \|\| $cmd eq 'datepointer' \|\| $cmd eq 'dateinterval') {	if ($cmd eq 'set' \|\| $cmd eq 'datepointer' \|\| $cmd eq 'dateinterval') {
my ($data, $typeof, $text);	my ($data, $typeof, $text, $name, $valchk);
if ($cmd eq 'set') {	if ($cmd eq 'set') {
$data=$env{$_};	$data=$env{$key};
	$valchk = $data;
$typeof=$env{'form.typeof_'.$thiskey};	$typeof=$env{'form.typeof_'.$thiskey};
$text = &mt('Saved modified parameter for');	$text = &mt('Saved modified parameter for');
	if ($typeof eq 'string_questiontype') {
	$name = 'type';
	} elsif ($typeof eq 'string_lenient') {
	$name = 'lenient';
	} elsif ($typeof eq 'string_discussvote') {
	$name = 'discussvote';
	} elsif ($typeof eq 'string_examcode') {
	$name = 'examcode';
	if (&Apache::lonnet::validCODE($data)) {
	$valchk = 'valid';
	}
	} elsif ($typeof eq 'string_yesno') {
	if ($thiskey =~ /\.retrypartial$/) {
	$name = 'retrypartial';
	}
	}
} elsif ($cmd eq 'datepointer') {	} elsif ($cmd eq 'datepointer') {
$data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});	$data=&Apache::lonhtmlcommon::get_date_from_form($env{$key});
$typeof=$env{'form.typeof_'.$thiskey};	$typeof=$env{'form.typeof_'.$thiskey};
$text = &mt('Saved modified date for');	$text = &mt('Saved modified date for');
	if ($typeof eq 'date_start') {
	if ($thiskey =~ /\.printstartdate$/) {
	$name = 'printstartdate';
	if (($data) && ($data > $now)) {
	$valchk = 'future';
	}
	}
	} elsif ($typeof eq 'date_end') {
	if ($thiskey =~ /\.printenddate$/) {
	$name = 'printenddate';
	if (($data) && ($data < $now)) {
	$valchk = 'past';
	}
	}
	}
} elsif ($cmd eq 'dateinterval') {	} elsif ($cmd eq 'dateinterval') {
$data=&get_date_interval_from_form($thiskey);	$data=&get_date_interval_from_form($thiskey);
$typeof=$env{'form.typeof_'.$thiskey};	$typeof=$env{'form.typeof_'.$thiskey};
$text = &mt('Saved modified date for');	$text = &mt('Saved modified date for');
}	}
	if ($name ne '') {
	my ($needsrelease,$needsnewer);
	$needsrelease = $Apache::lonnet::needsrelease{"parameter:$name:$valchk"};
	if ($needsrelease) {
	unless ($got_chostname) {
	($chostname,$cmajor,$cminor)=&parameter_release_vars();
	$got_chostname = 1;
	}
	$needsnewer = &parameter_releasecheck($name,$valchk,
	$needsrelease,
	$cmajor,$cminor);
	if ($needsnewer) {
	$r->print('<br />'.&oldversion_warning($name,$data,
	$chostname,$cmajor,
	$cminor,$needsrelease));
	next;
	}
	}
	}
if (defined($data) and $$olddata{$thiskey} ne $data) {	if (defined($data) and $$olddata{$thiskey} ne $data) {
if ($tuname) {	if ($tuname) {
if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,	if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
Line 2811 sub storedata {	Line 3015 sub storedata {
if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {	if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {
my %loghash=map { $_ => '' } @deldata;	my %loghash=map { $_ => '' } @deldata;
&log_parmset(\%loghash,1);	&log_parmset(\%loghash,1);
$r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries));	$r->print('<h2>'.&mt('Deleted [quant,_1,parameter]',$delentries/2).'</h2>');
} else {	} else {
$r->print('<div class="LC_error">'.	$r->print('<div class="LC_error">'.
&mt('Error deleting parameters').'</div>');	&mt('Error deleting parameters').'</div>');
Line 2821 sub storedata {	Line 3025 sub storedata {
if ($putentries) {	if ($putentries) {
if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {	if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
&log_parmset(\%newdata,0);	&log_parmset(\%newdata,0);
$r->print('<h3>'.&mt('Saved [_1] parameter(s)',$putentries/2).'</h3>');	$r->print('<h3>'.&mt('Saved [quant,_1,parameter]',$putentries/2).'</h3>');
} else {	} else {
$r->print('<div class="LC_error">'.	$r->print('<div class="LC_error">'.
&mt('Error saving parameters').'</div>');	&mt('Error saving parameters').'</div>');
Line 2856 sub parse_listdata_key {	Line 3060 sub parse_listdata_key {
}	}

sub listdata {	sub listdata {
my ($r,$resourcedata,$listdata,$sortorder)=@_;	my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist,$readonly)=@_;
# Start list output	# Start list output

my $oldsection='';	my $oldsection='';
Line 2966 sub listdata {	Line 3170 sub listdata {
# Ready to print	# Ready to print
#	#
my $parmitem = &standard_parameter_names($name);	my $parmitem = &standard_parameter_names($name);
$r->print(&tablestart().	$r->print(&tablestart($readonly).
&Apache::loncommon::start_data_table_row().	&Apache::loncommon::start_data_table_row().
'<td><b>'.&mt($parmitem).	'<td><b>'.&mt($parmitem).
'</b></td><td><input type="checkbox" name="del_'.	'</b></td>');
$thiskey.'" /></td><td>');	unless ($readonly) {
	$r->print('<td><input type="checkbox" name="del_'.
	$thiskey.'" /></td>');
	}
	$r->print('<td>');
$foundkeys++;	$foundkeys++;
if (&isdateparm($thistype)) {	if (&isdateparm($thistype)) {
my $jskey='key_'.$pointer;	my $jskey='key_'.$pointer;
$pointer++;	my $state;
$r->print(	$pointer++;
&Apache::lonhtmlcommon::date_setter('parmform',	if ($readonly) {
$jskey,	$state = 'disabled';
$$resourcedata{$thiskey},	}
'',1,'','').	$r->print(
	&Apache::lonhtmlcommon::date_setter('parmform',
	$jskey,
	$$resourcedata{$thiskey},
	'',1,$state));
	unless ($readonly) {
	$r->print(
'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.	'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
(($$resourcedata{$thiskey}!=0)?'<span class="LC_nobreak"><a href="/adm/parmset?&action=dateshift1&timebase='.$$resourcedata{$thiskey}.'">'.	(($$resourcedata{$thiskey}!=0)?'<span class="LC_nobreak"><a href="/adm/parmset?&action=dateshift1&timebase='.$$resourcedata{$thiskey}.'">'.
&mt('Shift all dates based on this date').'</a></span>':'').	&mt('Shift all dates based on this date').'</a></span>':'').
&date_sanity_info($$resourcedata{$thiskey})	&date_sanity_info($$resourcedata{$thiskey})
);	);
	}
} elsif ($thistype eq 'date_interval') {	} elsif ($thistype eq 'date_interval') {
$r->print(&date_interval_selector($thiskey,	$r->print(&date_interval_selector($thiskey,$name,
$$resourcedata{$thiskey}));	$$resourcedata{$thiskey},$readonly));
} elsif ($thistype =~ m/^string/) {	} elsif ($thistype =~ m/^string/) {
$r->print(&string_selector($thistype,$thiskey,	$r->print(&string_selector($thistype,$thiskey,
$$resourcedata{$thiskey}));	$$resourcedata{$thiskey},$name,$readonly));
} else {	} else {
$r->print(&default_selector($thiskey,$$resourcedata{$thiskey}));	$r->print(&default_selector($thiskey,$$resourcedata{$thiskey},$readonly));
	}
	unless ($readonly) {
	$r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
	$thistype.'" />');
}	}
$r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
$thistype.'" />');
$r->print('</td>'.&Apache::loncommon::end_data_table_row());	$r->print('</td>'.&Apache::loncommon::end_data_table_row());
}	}
}	}
Line 3004 sub listdata {	Line 3221 sub listdata {


sub date_interval_selector {	sub date_interval_selector {
my ($thiskey, $showval) = @_;	my ($thiskey, $pname, $showval, $readonly) = @_;
my $result;	my ($result,%skipval);
	my $currval = $showval;
foreach my $which (['days', 86400, 31],	foreach my $which (['days', 86400, 31],
['hours', 3600, 23],	['hours', 3600, 23],
['minutes', 60, 59],	['minutes', 60, 59],
Line 3016 sub date_interval_selector {	Line 3234 sub date_interval_selector {
my %select = ((map {$_ => $_} (0..$max)),	my %select = ((map {$_ => $_} (0..$max)),
'select_form_order' => [0..$max]);	'select_form_order' => [0..$max]);
$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,	$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,
%select);	\%select,'',$readonly);
$result .= ' '.&mt($name);	$result .= ' '.&mt($name);
}	}
$result .= '<input type="hidden" name="dateinterval_'.$thiskey.'" />';	if ($pname eq 'interval') {
	unless ($skipval{'done'}) {
	my $checkedon = '';
	my $checkedproc = '';
	my $currproctorkey = '';
	my $currprocdisplay = 'hidden';
	my $currdonetext = &mt('Done');
	my $checkedoff = ' checked="checked"';
	if ($currval =~ /^(?:\d+)_done$/) {
	$checkedon = ' checked="checked"';
	$checkedoff = '';
	} elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:$/) {
	$currdonetext = $1;
	$checkedon = ' checked="checked"';
	$checkedoff = '';
	} elsif ($currval =~ /^(?:\d+)_done_proctor_(.+)$/) {
	$currproctorkey = $1;
	$checkedproc = ' checked="checked"';
	$checkedoff = '';
	$currprocdisplay = 'text';
	} elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:_proctor_(.+)$/) {
	$currdonetext = $1;
	$currproctorkey = $2;
	$checkedproc = ' checked="checked"';
	$checkedoff = '';
	$currprocdisplay = 'text';
	}
	my $onclick = ' onclick="toggleSecret(this.form,'."'done_','$thiskey'".');"';
	my $disabled;
	if ($readonly) {
	$disabled = ' disabled="disabled"';
	}
	$result .= '<br /><span class="LC_nobreak">'.&mt('Include "done" button').
	'<label><input type="radio" value="" name="done_'.$thiskey.'"'.$checkedoff.$onclick.$disabled.' />'.
	&mt('No').'</label>'.(' 'x2).
	'<label><input type="radio" value="_done" name="done_'.$thiskey.'"'.$checkedon.$onclick.$disabled.' />'.
	&mt('Yes').'</label>'.(' 'x2).
	'<label><input type="radio" value="_done_proctor" name="done_'.$thiskey.'"'.$checkedproc.$onclick.$disabled.' />'.
	&mt('Yes, with proctor key').'</label>'.
	'<input type="'.$currprocdisplay.'" id="done_'.$thiskey.'_proctorkey" '.
	'name="done_'.$thiskey.'_proctorkey" value="'.&HTML::Entities::encode($currproctorkey,'"<>&').'"'.$disabled.' /></span><br />'.
	'<span class="LC_nobreak">'.&mt('Button text').': '.
	'<input type="text" name="done_'.$thiskey.'_buttontext" value="'.&HTML::Entities::encode($currdonetext,'"<>&').'"'.$disabled.' /></span>';
	}
	}
	unless ($readonly) {
	$result .= '<input type="hidden" name="dateinterval_'.$thiskey.'" />';
	}
return $result;	return $result;

}	}
Line 3041 sub get_date_interval_from_form {	Line 3306 sub get_date_interval_from_form {


sub default_selector {	sub default_selector {
my ($thiskey, $showval) = @_;	my ($thiskey, $showval, $readonly) = @_;
return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'" />';	my $disabled;
	if ($readonly) {
	$disabled = ' disabled="disabled"';
	}
	return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'"'.$disabled.' />';
}	}

my %strings =	my %strings =
Line 3055 my %strings =	Line 3324 my %strings =
[ 'answer', 'Yes, and show correct answer if they exceed the maximum number of tries.' ],	[ 'answer', 'Yes, and show correct answer if they exceed the maximum number of tries.' ],
[ 'no', 'No, don\'t show correct/incorrect feedback.' ],	[ 'no', 'No, don\'t show correct/incorrect feedback.' ],
[ 'no_feedback_ever', 'No, show no feedback at all.' ]],	[ 'no_feedback_ever', 'No, show no feedback at all.' ]],
	'string_questiontype'
	=> [[ 'problem', 'Standard Problem'],
	[ 'survey', 'Survey'],
	[ 'anonsurveycred', 'Anonymous Survey (credit for submission)'],
	[ 'exam', 'Exam'],
	[ 'anonsurvey', 'Anonymous Survey'],
	[ 'randomizetry', 'New Randomization Each N Tries (default N=1)'],
	[ 'practice', 'Practice'],
	[ 'surveycred', 'Survey (credit for submission)']],
	'string_lenient'
	=> [['yes', 'Yes' ],
	[ 'no', 'No' ],
	[ 'default', 'Default - only bubblesheet grading is lenient' ]],
	'string_discussvote'
	=> [['yes','Yes'],
	['notended','Yes, unless discussion ended'],
	['no','No']],
);	);

	sub standard_string_options {
	my ($string_type) = @_;
	if (ref($strings{$string_type}) eq 'ARRAY') {
	return $strings{$string_type};
	}
	return;
	}

sub string_selector {	sub string_selector {
my ($thistype, $thiskey, $showval) = @_;	my ($thistype, $thiskey, $showval, $name, $readonly) = @_;

if (!exists($strings{$thistype})) {	if (!exists($strings{$thistype})) {
return &default_selector($thiskey,$showval);	return &default_selector($thiskey,$showval,$readonly);
}	}

my $result;	my %skiptype;
foreach my $possibilities (@{ $strings{$thistype} }) {	if (($thistype eq 'string_questiontype') \|\|
my ($name, $description) = @{ $possibilities };	($thistype eq 'string_lenient') \|\|
$result .= '<label><input type="radio" name="set_'.$thiskey.	($thistype eq 'string_discussvote') \|\|
'" value="'.$name.'"';	($name eq 'retrypartial')) {
if ($showval eq $name) {	my ($got_chostname,$chostname,$cmajor,$cminor);
$result .= ' checked="checked"';	foreach my $possibilities (@{ $strings{$thistype} }) {
	next unless (ref($possibilities) eq 'ARRAY');
	my ($parmval, $description) = @{ $possibilities };
	my $needsrelease=$Apache::lonnet::needsrelease{"parameter:$name:$parmval"};
	if ($needsrelease) {
	unless ($got_chostname) {
	($chostname,$cmajor,$cminor)=&parameter_release_vars();
	$got_chostname = 1;
	}
	my $needsnewer=&parameter_releasecheck($name,$parmval,$needsrelease,
	$cmajor,$cminor);
	if ($needsnewer) {
	$skiptype{$parmval} = 1;
	}
	}
	}
}	}
$result .= ' />'.&mt($description).'</label> ';
	my ($result,$disabled);

	if ($readonly) {
	$disabled = ' disabled="disabled"';
	}
	my $numinrow = 3;
	if ($thistype eq 'string_problemstatus') {
	$numinrow = 2;
	} elsif ($thistype eq 'string_questiontype') {
	if (keys(%skiptype) > 0) {
	$numinrow = 4;
	}
	}
	my $rem;
	if (ref($strings{$thistype}) eq 'ARRAY') {
	my $i=0;
	foreach my $possibilities (@{ $strings{$thistype} }) {
	next unless (ref($possibilities) eq 'ARRAY');
	my ($name, $description) = @{ $possibilities };
	next if ($skiptype{$name});
	$rem = $i%($numinrow);
	if ($rem == 0) {
	if ($i > 0) {
	$result .= '</tr>';
	}
	$result .= '<tr>';
	}
	$result .= '<td class="LC_left_item">'.
	'<span class="LC_nobreak"><label>'.
	'<input type="radio" name="set_'.$thiskey.
	'" value="'.$name.'"'.$disabled;
	if ($showval eq $name) {
	$result .= ' checked="checked"';
	}
	$result .= ' />'.&mt($description).'</label></span></td>';
	$i++;
	}
	$rem = @{ $strings{$thistype} }%($numinrow);
	my $colsleft = $numinrow - $rem;
	if ($colsleft > 1 ) {
	$result .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.
	' </td>';
	} elsif ($colsleft == 1) {
	$result .= '<td class="LC_left_item"> </td>';
	}
	$result .= '</tr>';
	}
	if ($result) {
	$result = '<table border="0">'.$result.'</table>';
}	}
return $result;	return $result;
}	}
Line 3114 sub dateshift {	Line 3471 sub dateshift {
}	}

sub newoverview {	sub newoverview {
my ($r) = @_;	my ($r,$parm_permission) = @_;

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'};
	my $readonly = 1;
	if ($parm_permission->{'edit'}) {
	undef($readonly);
	}
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
text=>"Overview Mode"});	text=>"Overview Mode"});
my $start_page = &Apache::loncommon::start_page('Set Parameters');
	my %loaditems = (
	'onload' => "showHide_courseContent(); resize_scrollbox('mapmenuscroll','1','1');",
	);
	my $js = '
	<script type="text/javascript">
	// <![CDATA[
	'.
	&Apache::lonhtmlcommon::resize_scrollbox_js('params')."\n".
	&showhide_js()."\n".
	&done_proctor_js()."\n".
	'// ]]>
	</script>
	';
	my $start_page = &Apache::loncommon::start_page('Set Parameters',$js,
	{'add_entries' => \%loaditems,});
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
	$r->print($start_page.$breadcrumbs);
$r->print(<<ENDOVER);	$r->print(<<ENDOVER);
$start_page
$breadcrumbs
<form method="post" action="/adm/parmset?action=newoverview" name="parmform">	<form method="post" action="/adm/parmset?action=newoverview" name="parmform">
ENDOVER	ENDOVER
my @ids=();	my @ids=();
Line 3150 ENDOVER	Line 3525 ENDOVER

my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');	my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
my $pschp=$env{'form.pschp'};	my $pschp=$env{'form.pschp'};

my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');	my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
if (!@psprt) { $psprt[0]='0'; }	if (!@psprt) { $psprt[0]='0'; }

Line 3185 ENDOVER	Line 3561 ENDOVER
$r->print('<div class="LC_Box">');	$r->print('<div class="LC_Box">');
#$r->print('<h2 class="LC_hcell">Step 1</h2>');	#$r->print('<h2 class="LC_hcell">Step 1</h2>');
$r->print('<div>');	$r->print('<div>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
if ($parmlev ne 'general') {	if ($parmlev ne 'general') {
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure());
Line 3197 ENDOVER	Line 3573 ENDOVER

$r->print('<div class="LC_Box">');	$r->print('<div class="LC_Box">');
$r->print('<div>');	$r->print('<div>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	&displaymenu($r,\%allparms,\@pscat,\%keyorder);
&parmmenu($r,\%allparms,\@pscat,\%keyorder);
$r->print(&Apache::lonhtmlcommon::end_pick_box());
&parmboxes($r,\%allparms,\@pscat,\%keyorder);
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
$r->print('<table>'.	$r->print('<table>'.
Line 3246 ENDOVER	Line 3619 ENDOVER

# List data	# List data

&listdata($r,$resourcedata,$listdata,$sortorder);	&listdata($r,$resourcedata,$listdata,$sortorder,'newoverview',undef,$readonly);
	}
	$r->print(&tableend());
	unless ($readonly) {
	$r->print(((($env{'form.store'}) \|\| ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Save').'" /></p>':''));
}	}
$r->print(&tableend().	$r->print('</form>');
((($env{'form.store'}) \|\| ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Save').'" /></p>':'').	$r->print(&Apache::loncommon::end_page());
'</form>'.&Apache::loncommon::end_page());
}	}

sub secgroup_lister {	sub secgroup_lister {
Line 3289 sub secgroup_lister {	Line 3665 sub secgroup_lister {
}	}

sub overview {	sub overview {
my ($r) = @_;	my ($r,$parm_permission) = @_;
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'};
	my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
	my $js = '<script type="text/javascript">'."\n".
	'// <![CDATA['."\n".
	&done_proctor_js()."\n".
	'// ]]>'."\n".
	'</script>'."\n";
	my $readonly = 1;
	if ($parm_permission->{'edit'}) {
	undef($readonly);
	}
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
text=>"Overview Mode"});	text=>"Overview Mode"});
my $start_page=&Apache::loncommon::start_page('Modify Parameters');	my $start_page=&Apache::loncommon::start_page('Modify Parameters',$js);
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
$r->print(<<ENDOVER);	$r->print($start_page.$breadcrumbs);
$start_page	$r->print('<form method="post" action="/adm/parmset?action=setoverview" name="parmform">');
$breadcrumbs
<form method="post" action="/adm/parmset?action=setoverview" name="parmform">
ENDOVER
# Store modified

&storedata($r,$crs,$dom);	# Store modified
	unless ($readonly) {
	&storedata($r,$crs,$dom);
	}

# Read modified data	# Read modified data

my $resourcedata=&readdata($crs,$dom);	my ($resourcedata,$classlist)=&readdata($crs,$dom);


my $sortorder=$env{'form.sortorder'};	my $sortorder=$env{'form.sortorder'};
unless ($sortorder) { $sortorder='realmstudent'; }	unless ($sortorder) { $sortorder='realmstudent'; }
&sortmenu($r,$sortorder);	&sortmenu($r,$sortorder);

	my $submitbutton = '<input type="submit" value="'.&mt('Save').'" />';

	if ($readonly) {
	$r->print('<p>'.$submitbutton.'</p>');
	}


# List data	# List data

my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder);	my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder,'overview',$classlist,$readonly);

$r->print(&tableend().'<p>'.	$r->print(&tableend().'<p>');
($foundkeys?'<input type="submit" value="'.&mt('Save').'" />':&mt('There are no parameters.')).'</p></form>'.	if ($foundkeys) {
&Apache::loncommon::end_page());	unless ($readonly) {
	$r->print('<p>'.$submitbutton.'</p>');
	}
	} else {
	$r->print('<p class="LC_info">'.&mt('There are no parameters.').'</p>');
	}
	$r->print('</form>'.&Apache::loncommon::end_page());
}	}

sub clean_parameters {	sub clean_parameters {
Line 3396 ENDOVER	Line 3793 ENDOVER
} elsif ($data{'realm_type'} eq 'symb') {	} elsif ($data{'realm_type'} eq 'symb') {
my ($map,$resid,$url) =	my ($map,$resid,$url) =
&Apache::lonnet::decode_symb($data{'realm'});	&Apache::lonnet::decode_symb($data{'realm'});
$r->print(&mt('Resource: [_1] <br />   with ID: [_2] <br />   in folder [_3]',	$r->print(&mt('Resource: [_1]with ID: [_2]in folder [_3]',
$url,$resid,$map));	$url.' <br />   ',
	$resid.' <br />   ',$map));
}	}
$r->print(' <br />   '.&mt('Part: [_1]',$data{'parameter_part'}));	$r->print(' <br />   '.&mt('Part: [_1]',$data{'parameter_part'}));
$r->print('</td></tr>');	$r->print('</td></tr>');
Line 3406 ENDOVER	Line 3804 ENDOVER
}	}
$r->print(&Apache::loncommon::end_data_table().'<p>'.	$r->print(&Apache::loncommon::end_data_table().'<p>'.
'<input type="submit" value="'.&mt('Delete Selected').'" />'.	'<input type="submit" value="'.&mt('Delete Selected').'" />'.
'</p></form>'.	'</p></form>');
&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

sub date_shift_one {	sub date_shift_one {
Line 3419 sub date_shift_one {	Line 3817 sub date_shift_one {
text=>"Shifting Dates"});	text=>"Shifting Dates"});
my $start_page=&Apache::loncommon::start_page('Shift Dates');	my $start_page=&Apache::loncommon::start_page('Shift Dates');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
$r->print(<<ENDOVER);	$r->print($start_page.$breadcrumbs);
$start_page	$r->print('<form name="shiftform" method="post" action="">'.
$breadcrumbs
ENDOVER
$r->print('<form name="shiftform" method="post">'.
'<table><tr><td>'.&mt('Currently set date:').'</td><td>'.	'<table><tr><td>'.&mt('Currently set date:').'</td><td>'.
&Apache::lonlocal::locallocaltime($env{'form.timebase'}).'</td></tr>'.	&Apache::lonlocal::locallocaltime($env{'form.timebase'}).'</td></tr>'.
'<tr><td>'.&mt('Shifted date:').'</td><td>'.	'<tr><td>'.&mt('Shifted date:').'</td><td>'.
Line 3446 sub date_shift_two {	Line 3841 sub date_shift_two {
text=>"Shifting Dates"});	text=>"Shifting Dates"});
my $start_page=&Apache::loncommon::start_page('Shift Dates');	my $start_page=&Apache::loncommon::start_page('Shift Dates');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
$r->print(<<ENDOVER);	$r->print($start_page.$breadcrumbs);
$start_page
$breadcrumbs
ENDOVER
my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');	my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');
$r->print(&mt('Shifting all dates such that [_1] becomes [_2]',	$r->print('<h2>'.&mt('Shift Dates').'</h2>'.
	'<p>'.&mt('Shifting all dates such that [_1] becomes [_2]',
&Apache::lonlocal::locallocaltime($env{'form.timebase'}),	&Apache::lonlocal::locallocaltime($env{'form.timebase'}),
&Apache::lonlocal::locallocaltime($timeshifted)));	&Apache::lonlocal::locallocaltime($timeshifted)).'</p>');
my $delta=$timeshifted-$env{'form.timebase'};	my $delta=$timeshifted-$env{'form.timebase'};
&dateshift($delta);	&dateshift($delta);
	$r->print(
	&Apache::lonhtmlcommon::confirm_success(&mt('Done')).
	'<br /><br />'.
	&Apache::lonhtmlcommon::actionbox(
	['<a href="/adm/parmset">'.&mt('Content and Problem Settings').'</a>']));
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

Line 3499 sub parse_key {	Line 3897 sub parse_key {
}	}



sub extract_cloners {
my ($clonelist,$allowclone) = @_;
if ($clonelist =~ /,/) {
@{$allowclone} = split(/,/,$clonelist);
} else {
$$allowclone[0] = $clonelist;
}
}

sub check_cloners {
my ($clonelist,$oldcloner) = @_;
my ($clean_clonelist,%disallowed);
my @allowclone = ();
&extract_cloners($$clonelist,\@allowclone);
foreach my $currclone (@allowclone) {
if (!grep(/^\Q$currclone\E$/,@$oldcloner)) {
if ($currclone eq '*') {
$clean_clonelist .= $currclone.',';
} else {
my ($uname,$udom) = split(/:/,$currclone);
if ($uname eq '*') {
if ($udom =~ /^$match_domain$/) {
if (!&Apache::lonnet::domain($udom)) {
$disallowed{'domain'} .= $currclone.',';
} else {
$clean_clonelist .= $currclone.',';
}
} else {
$disallowed{'format'} .= $currclone.',';
}
} elsif ($currclone !~/^($match_username)\:($match_domain)$/) {
$disallowed{'format'} .= $currclone.',';
} else {
if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
$disallowed{'newuser'} .= $currclone.',';
} else {
$clean_clonelist .= $currclone.',';
}
}
}
} else {
$clean_clonelist .= $currclone.',';
}
}
foreach my $key (keys(%disallowed)) {
$disallowed{$key} =~ s/,$//;
}
if ($clean_clonelist) {
$clean_clonelist =~ s/,$//;
}
$$clonelist = $clean_clonelist;
return %disallowed;
}

sub change_clone {
my ($clonelist,$oldcloner) = @_;
my ($uname,$udom);
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $clone_crs = $cnum.':'.$cdom;

if ($cnum && $cdom) {
my @allowclone;
&extract_cloners($clonelist,\@allowclone);
foreach my $currclone (@allowclone) {
if (!grep(/^$currclone$/,@$oldcloner)) {
if ($currclone ne '*') {
($uname,$udom) = split(/:/,$currclone);
if ($uname && $udom && $uname ne '*') {
if (&Apache::lonnet::homeserver($uname,$udom) ne 'no_host') {
my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable');
if ($currclonecrs{'cloneable'} !~ /\Q$clone_crs\E/) {
if ($currclonecrs{'cloneable'} eq '') {
$currclonecrs{'cloneable'} = $clone_crs;
} else {
$currclonecrs{'cloneable'} .= ','.$clone_crs;
}
&Apache::lonnet::put('environment',\%currclonecrs,$udom,$uname);
}
}
}
}
}
}
foreach my $oldclone (@$oldcloner) {
if (!grep(/^\Q$oldclone\E$/,@allowclone)) {
if ($oldclone ne '*') {
($uname,$udom) = split(/:/,$oldclone);
if ($uname && $udom && $uname ne '*' ) {
if (&Apache::lonnet::homeserver($uname,$udom) ne 'no_host') {
my %currclonecrs = &Apache::lonnet::dump('environment',$udom,$uname,'cloneable');
my %newclonecrs = ();
if ($currclonecrs{'cloneable'} =~ /\Q$clone_crs\E/) {
if ($currclonecrs{'cloneable'} =~ /,/) {
my @currclonecrs = split/,/,$currclonecrs{'cloneable'};
foreach my $crs (@currclonecrs) {
if ($crs ne $clone_crs) {
$newclonecrs{'cloneable'} .= $crs.',';
}
}
$newclonecrs{'cloneable'} =~ s/,$//;
} else {
$newclonecrs{'cloneable'} = '';
}
&Apache::lonnet::put('environment',\%newclonecrs,$udom,$uname);
}
}
}
}
}
}
}
}



sub header {	sub header {
return &Apache::loncommon::start_page('Parameter Manager');	return &Apache::loncommon::start_page('Content and Problem Settings');
}	}


Line 3626 sub print_main_menu {	Line 3907 sub print_main_menu {
my ($r,$parm_permission)=@_;	my ($r,$parm_permission)=@_;
#	#
$r->print(&header());	$r->print(&header());
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Manager'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Content and Problem Settings'));
	my $crstype = &Apache::loncommon::course_type();
	my $lc_crstype = lc($crstype);

$r->print(<<ENDMAINFORMHEAD);	$r->print(<<ENDMAINFORMHEAD);
<form method="post" enctype="multipart/form-data"	<form method="post" enctype="multipart/form-data"
action="/adm/parmset" name="studentform">	action="/adm/parmset" name="studentform">
Line 3636 ENDMAINFORMHEAD	Line 3920 ENDMAINFORMHEAD
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $vgr = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});	my $vgr = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
my $mgr = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});	my $mgr = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});
	my $dcm = &Apache::lonnet::allowed('dcm',$env{'request.course.id'});
my $crstype = &Apache::loncommon::course_type();	my $vcb = &Apache::lonnet::allowed('vcb',$env{'request.course.id'});
my $lc_crstype = lc($crstype);	my $vpa = &Apache::lonnet::allowed('vpa',$env{'request.course.id'});
	if ((!$dcm) && ($env{'request.course.sec'} ne '')) {
	$dcm = &Apache::lonnet::allowed('dcm',$env{'request.course.id'}.
	'/'.$env{'request.course.sec'});
	}
	if ((!$vcb) && ($env{'request.course.sec'} ne '')) {
	$vcb = &Apache::lonnet::allowed('vcb',$env{'request.course.id'}.
	'/'.$env{'request.course.sec'});
	}
	my (%linktext,%linktitle,%url);
	if ($parm_permission->{'edit'}) {
	%linktext = (
	newoverview => 'Edit Resource Parameters - Overview Mode',
	settable => 'Edit Resource Parameters - Table Mode',
	setoverview => 'Modify Resource Parameters - Overview Mode',
	);
	%linktitle = (
	newoverview => 'Set/Modify resource parameters in overview mode.',
	settable => 'Set/Modify resource parameters in table mode.',
	setoverview => 'Set/Modify existing resource parameters in overview mode.',
	);
	} else {
	%linktext = (
	newoverview => 'View Resource Parameters - Overview Mode',
	settable => 'View Resource Parameters - Table Mode',
	setoverview => 'View Resource Parameters - Overview Mode',
	);
	%linktitle = (
	newoverview => 'Display resource parameters in overview mode.',
	settable => 'Display resource parameters in table mode.',
	setoverview => 'Display existing resource parameters in overview mode.',
	);
	}
	if ($mgr) {
	$linktext{'resettimes'} = 'Reset Student Access Times';
	$linktitle{'resettimes'} = "Reset access times for folders/maps, resources or the $lc_crstype.";
	$url{'resettimes'} = '/adm/helper/resettimes.helper';
	} elsif ($vgr) {
	$linktext{'resettimes'} = 'Display Student Access Times',
	$linktitle{'resettimes'} = "Display access times for folders/maps, resources or the $lc_crstype.",
	$url{'resettimes'} = '/adm/accesstimes';
	}
my @menu =	my @menu =
( { categorytitle=>"Settings for this $crstype",	( { categorytitle=>"Content Settings for this $crstype",
items => [	items => [
{ linktext => "$crstype Configuration",
url => '/adm/courseprefs?origin=params',
permission => $parm_permission,
linktitle => "Edit $lc_crstype configuration." ,
icon => 'preferences-desktop-remote-desktop.png' ,
#help => 'Course_Environment',
},
{ linktext => 'Portfolio Metadata',	{ linktext => 'Portfolio Metadata',
url => '/adm/parmset?action=setrestrictmeta',	url => '/adm/parmset?action=setrestrictmeta',
permission => $parm_permission,	permission => $parm_permission->{'setrestrictmeta'},
linktitle => "Restrict metadata for this $lc_crstype." ,	linktitle => "Restrict metadata for this $lc_crstype." ,
icon =>'contact-new.png' ,	icon =>'contact-new.png' ,
},	},
{ linktext => "Manage $crstype Slots",	{ linktext => $linktext{'resettimes'},
url => '/adm/slotrequest?command=showslots',	url => $url{'resettimes'},
permission => $vgr,	permission => ($vgr \|\| $mgr),
linktitle => "Manage slots for this $lc_crstype." ,	linktitle => $linktitle{'resettimes'},
icon => 'format-justify-fill.png' ,	icon => 'start-here.png',
},	},
{ linktext => 'Reset Student Access Times',	{ linktext => 'Blocking Communication/Resource Access',
url => '/adm/helper/resettimes.helper',	url => '/adm/setblock',
permission => $mgr,	permission => ($vcb \|\| $dcm),
linktitle => "Reset access times for folders/maps, resources or the $lc_crstype." ,	linktitle => 'Configure blocking of communication/collaboration and access to resources during an exam',
icon => 'start-here.png' ,	icon => 'comblock.png',
},	},

{ linktext => 'Set Parameter Setting Default Actions',	{ linktext => 'Set Parameter Setting Default Actions',
url => '/adm/parmset?action=setdefaults',	url => '/adm/parmset?action=setdefaults',
permission => $parm_permission,	permission => $parm_permission->{'setdefaults'},
linktitle =>'Set default actions for parameters.' ,	linktitle =>'Set default actions for parameters.' ,
icon => 'folder-new.png' ,	icon => 'folder-new.png' ,
}]},	}]},
Line 3679 ENDMAINFORMHEAD	Line 3995 ENDMAINFORMHEAD
items => [	items => [
{ linktext => 'Edit Resource Parameters - Helper Mode',	{ linktext => 'Edit Resource Parameters - Helper Mode',
url => '/adm/helper/parameter.helper',	url => '/adm/helper/parameter.helper',
permission => $parm_permission,	permission => $parm_permission->{'helper'},
linktitle =>'Set/Modify resource parameters in helper mode.' ,	linktitle =>'Set/Modify resource parameters in helper mode.' ,
icon => 'dialog-information.png' ,	icon => 'dialog-information.png' ,
#help => 'Parameter_Helper',	#help => 'Parameter_Helper',
},	},
{ linktext => 'Edit Resource Parameters - Overview Mode',	{ linktext => $linktext{'newoverview'},
url => '/adm/parmset?action=newoverview',	url => '/adm/parmset?action=newoverview',
permission => $parm_permission,	permission => $parm_permission->{'newoverview'},
linktitle =>'Set/Modify resource parameters in overview mode.' ,	linktitle => $linktitle{'newoverview'},
icon => 'edit-find.png' ,	icon => 'edit-find.png',
#help => 'Parameter_Overview',	#help => 'Parameter_Overview',
},	},
{ linktext => 'Edit Resource Parameters - Table Mode',	{ linktext => $linktext{'settable'},
url => '/adm/parmset?action=settable',	url => '/adm/parmset?action=settable',
permission => $parm_permission,	permission => $parm_permission->{'settable'},
linktitle =>'Set/Modify resource parameters in table mode.' ,	linktitle => $linktitle{'settable'},
icon => 'edit-copy.png' ,	icon => 'edit-copy.png',
#help => 'Table_Mode',	#help => 'Table_Mode',
}]},	}]},
{ categorytitle => 'Existing Parameter Settings for Resources',	{ categorytitle => 'Existing Parameter Settings for Resources',
items => [	items => [
{ linktext => 'Modify Resource Parameters - Overview Mode',	{ linktext => $linktext{'setoverview'},
url => '/adm/parmset?action=setoverview',	url => '/adm/parmset?action=setoverview',
permission => $parm_permission,	permission => $parm_permission->{'setoverview'},
linktitle =>'Set/Modify existing resource parameters in overview mode.' ,	linktitle => $linktitle{'setoverview'},
icon => 'preferences-desktop-wallpaper.png' ,	icon => 'preferences-desktop-wallpaper.png',
#help => 'Parameter_Overview',	#help => 'Parameter_Overview',
},	},
{ linktext => 'Change Log',	{ linktext => 'Change Log',
url => '/adm/parmset?action=parameterchangelog',	url => '/adm/parmset?action=parameterchangelog',
permission => $parm_permission,	permission => $parm_permission->{'parameterchangelog'},
linktitle =>"View parameter and $lc_crstype blog posting/user notification change log." ,	linktitle =>"View parameter and $lc_crstype blog posting/user notification change log." ,
icon => 'document-properties.png',	icon => 'document-properties.png',
}]}	}]}
);	);
$r->print(&Apache::lonhtmlcommon::generate_menu(@menu));	$r->print(&Apache::lonhtmlcommon::generate_menu(@menu));
	$r->print('</form>'.&Apache::loncommon::end_page());
return;	return;
}	}

Line 3843 sub order_meta_fields {	Line 4160 sub order_meta_fields {
foreach my $key (@fields_in_order) {	foreach my $key (@fields_in_order) {
$r->print('<tr><td>');	$r->print('<tr><td>');
$r->print('<form method="post" action="">');	$r->print('<form method="post" action="">');
$r->print('<select name="newpos" onChange="this.form.submit()">');	$r->print('<select name="newpos" onchange="this.form.submit()">');
for (my $i = 1;$i le $num_fields;$i ++) {	for (my $i = 1;$i le $num_fields;$i ++) {
if ($i eq $idx) {	if ($i eq $idx) {
$r->print('<option value="'.$i.'" SELECTED>('.$i.')</option>');	$r->print('<option value="'.$i.'" SELECTED>('.$i.')</option>');
Line 3914 sub addmetafield {	Line 4231 sub addmetafield {
$r->print('<input type="submit" name="undelete" value="Undelete" />');	$r->print('<input type="submit" name="undelete" value="Undelete" />');
$r->print('</form>');	$r->print('</form>');
}	}
$r->print('<hr /><strong>Or</strong> you may enter a new metadata field name.<form method="post" action="/adm/parmset?action=addmetadata"');	$r->print('<hr /><strong>Or</strong> you may enter a new metadata field name.<form method="post" action="/adm/parmset?action=addmetadata">');
$r->print('<input type="text" name="fieldname" /><br />');	$r->print('<input type="text" name="fieldname" /><br />');
$r->print('<input type="submit" value="Add Metadata Field" />');	$r->print('<input type="submit" value="Add Metadata Field" />');
}	}
Line 4048 sub defaultsetter {	Line 4365 sub defaultsetter {
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Parameter Setting Default Actions');	&Apache::loncommon::start_page('Parameter Setting Default Actions');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
$r->print(<<ENDDEFHEAD);	$r->print($start_page.$breadcrumbs);
$start_page	$r->print('<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">');
$breadcrumbs
<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">
ENDDEFHEAD

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'};
Line 4197 ENDYESNO	Line 4511 ENDYESNO
}	}
$r->print(&Apache::loncommon::end_data_table().	$r->print(&Apache::loncommon::end_data_table().
"\n".'<input type="submit" name="storerules" value="'.	"\n".'<input type="submit" name="storerules" value="'.
&mt('Save').'" /></form>'."\n".	&mt('Save').'" /></form>'."\n");
&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return;	return;
}	}

Line 4285 sub standard_parameter_types {	Line 4599 sub standard_parameter_types {
}	}

sub parm_change_log {	sub parm_change_log {
my ($r)=@_;	my ($r,$parm_permission)=@_;
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
text=>"Parameter Change Log"});	text=>"Parameter Change Log"});
$r->print(&Apache::loncommon::start_page('Parameter Change Log'));	my $js = '<script type="text/javascript">'."\n".
	'// <![CDATA['."\n".
	&Apache::loncommon::display_filter_js('parmslog')."\n".
	'// ]]>'."\n".
	'</script>'."\n";
	$r->print(&Apache::loncommon::start_page('Parameter Change Log',$js));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));

my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',	my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});

if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }	if ((keys(%parmlog))[0]=~/^error\:/) { undef(%parmlog); }

$r->print('<form action="/adm/parmset?action=parameterchangelog"	$r->print('<div class="LC_left_float">'.
	'<fieldset><legend>'.&mt('Display of Changes').'</legend>'.
	'<form action="/adm/parmset?action=parameterchangelog"
method="post" name="parameterlog">');	method="post" name="parameterlog">');

my %saveable_parameters = ('show' => 'scalar',);	my %saveable_parameters = ('show' => 'scalar',);
Line 4305 sub parm_change_log {	Line 4625 sub parm_change_log {
\%saveable_parameters);	\%saveable_parameters);
&Apache::loncommon::restore_course_settings('parameter_log',	&Apache::loncommon::restore_course_settings('parameter_log',
\%saveable_parameters);	\%saveable_parameters);
$r->print(&Apache::loncommon::display_filter().	$r->print(&Apache::loncommon::display_filter('parmslog').' '."\n".
'<label>'.&Apache::lonhtmlcommon::checkbox('includetypes',$env{'form.includetypes'},'1').	'<input type="submit" value="'.&mt('Display').'" />'.
' '.&mt('Include parameter types').'</label>'.	'</form></fieldset></div><br clear="all" />');
'<input type="submit" value="'.&mt('Display').'" /></form>');	my $readonly = 1;
	if ($parm_permission->{'edit'}) {
	undef($readonly);
	}
my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},	my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},
$env{'course.'.$env{'request.course.id'}.'.domain'});	$env{'course.'.$env{'request.course.id'}.'.domain'});
$r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().	$r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
'<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Extent').'</th><th>'.&mt('Users').'</th><th>'.	'<th>'.&mt('Time').'</th><th>'.&mt('User').'</th><th>'.&mt('Extent').'</th><th>'.&mt('Users').'</th><th>'.
&mt('Parameter').'</th><th>'.&mt('Part').'</th><th>'.&mt('New Value').'</th><th>'.&mt('Announce').'</th>'.	&mt('Parameter').'</th><th>'.&mt('Part').'</th><th>'.&mt('New Value').'</th>');
&Apache::loncommon::end_data_table_header_row());	unless ($readonly) {
	$r->print('<th>'.&mt('Announce').'</th>');
	}
	$r->print(&Apache::loncommon::end_data_table_header_row());
my $shown=0;	my $shown=0;
my $folder='';	my $folder='';
if ($env{'form.displayfilter'} eq 'currentfolder') {	if ($env{'form.displayfilter'} eq 'currentfolder') {
Line 4348 sub parm_change_log {	Line 4673 sub parm_change_log {
$parmlog{$id}{'exe_uname'},	$parmlog{$id}{'exe_uname'},
$parmlog{$id}{'exe_udom'});	$parmlog{$id}{'exe_udom'});
my $send_msg_link='';	my $send_msg_link='';
if ((($parmlog{$id}{'exe_uname'} ne $env{'user.name'})	if ((!$readonly) &&
	(($parmlog{$id}{'exe_uname'} ne $env{'user.name'})
\|\| ($parmlog{$id}{'exe_udom'} ne $env{'user.domain'}))) {	\|\| ($parmlog{$id}{'exe_udom'} ne $env{'user.domain'}))) {
$send_msg_link ='<br />'.	$send_msg_link ='<br />'.
&Apache::loncommon::messagewrapper(&mt('Send message'),	&Apache::loncommon::messagewrapper(&mt('Send message'),
Line 4418 sub parm_change_log {	Line 4744 sub parm_change_log {
}	}
}	}
}	}
$output .= '</td><td>';	$output .= '</td>';

if ($stillactive) {	unless ($readonly) {
my $parmitem = &standard_parameter_names($parmname);	$output .= '<td>';
$parmitem = &mt($parmitem);	if ($stillactive) {
my $title=&mt('Changed [_1]',$parmitem);	my $parmitem = &standard_parameter_names($parmname);
my $description=&mt('Changed [_1] for [_2] to [_3]',	$parmitem = &mt($parmitem);
$parmitem,$realmdescription,	my $title=&mt('Changed [_1]',$parmitem);
(&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value));	my $description=&mt('Changed [_1] for [_2] to [_3]',
if (($uname) && ($udom)) {	$parmitem,$realmdescription,
$output .=	(&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value));
&Apache::loncommon::messagewrapper('Notify User',	if (($uname) && ($udom)) {
$uname,$udom,$title,	$output .=
$description);	&Apache::loncommon::messagewrapper('Notify User',
} else {	$uname,$udom,$title,
$output .=	$description);
&Apache::lonrss::course_blog_link($id,$title,	} else {
$description);	$output .=
}	&Apache::lonrss::course_blog_link($id,$title,
}	$description);
$output .= '</td>'.&Apache::loncommon::end_data_table_row();	}
	}
	$output .= '</td>';
	}
	$output .= &Apache::loncommon::end_data_table_row();
}	}
if ($env{'form.displayfilter'} eq 'containing') {	if ($env{'form.displayfilter'} eq 'containing') {
my $wholeentry=$about_me_link.':'.	my $wholeentry=$about_me_link.':'.
Line 4505 sub update_slots {	Line 4835 sub update_slots {
action => 'reserve',	action => 'reserve',
context => 'parameter',	context => 'parameter',
);	);
&Apache::lonnet::instructor_log('slotreservationslog',\%storehash,	&Apache::lonnet::write_log('course','slotreservationslog',\%storehash,
'',$uname,$udom,$cnum,$cdom);	'',$uname,$udom,$cnum,$cdom);

&Apache::lonnet::instructor_log($cdom.'_'.$cnum.'_slotlog',\%storehash,	&Apache::lonnet::write_log('course',$cdom.'_'.$cnum.'_slotlog',\%storehash,
'',$uname,$udom,$uname,$udom);	'',$uname,$udom,$uname,$udom);
}	}
return $success;	return $success;
Line 4539 sub delete_slots {	Line 4869 sub delete_slots {
action => 'release',	action => 'release',
context => 'parameter',	context => 'parameter',
);	);
&Apache::lonnet::instructor_log('slotreservationslog',\%storehash,	&Apache::lonnet::write_log('course','slotreservationslog',\%storehash,
1,$uname,$udom,$cnum,$cdom);	1,$uname,$udom,$cnum,$cdom);
&Apache::lonnet::instructor_log($cdom.'_'.$cnum.'_slotlog',\%storehash,	&Apache::lonnet::write_log('course',$cdom.'_'.$cnum.'_slotlog',\%storehash,
1,$uname,$udom,$uname,$udom);	1,$uname,$udom,$uname,$udom);
}	}
}	}
Line 4555 sub check_for_course_info {	Line 4885 sub check_for_course_info {
return 0;	return 0;
}	}

	sub parameter_release_vars {
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
	my $chostname = &Apache::lonnet::hostname($chome);
	my ($cmajor,$cminor) =
	split(/\./,&Apache::lonnet::get_server_loncaparev($cdom,$chome));
	return ($chostname,$cmajor,$cminor);
	}

	sub parameter_releasecheck {
	my ($name,$value,$needsrelease,$cmajor,$cminor) = @_;
	my $needsnewer;
	my ($needsmajor,$needsminor) = split(/\./,$needsrelease);
	if (($cmajor < $needsmajor) \|\|
	($cmajor == $needsmajor && $cminor < $needsminor)) {
	$needsnewer = 1;
	} else {
	&Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:'.$name.':'.$value});
	}
	return $needsnewer;
	}

	sub oldversion_warning {
	my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;
	my $desc;
	my %stringtypes = (
	type => 'string_questiontype',
	lenient => 'string_lenient',
	retrypartial => 'string_yesno',
	discussvote => 'string_discussvote',
	examcode => 'string_examcode',
	);
	if (exists($stringtypes{$name})) {
	if ($name eq 'examcode') {
	$desc = $value;
	} elsif (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {
	foreach my $possibilities (@{ $strings{$stringtypes{$name}} }) {
	next unless (ref($possibilities) eq 'ARRAY');
	my ($parmval, $description) = @{ $possibilities };
	if ($parmval eq $value) {
	$desc = $description;
	last;
	}
	}
	}
	} elsif (($name eq 'printstartdate') \|\| ($name eq 'printenddate')) {
	my $now = time;
	if ($value =~ /^\d+$/) {
	if ($name eq 'printstartdate') {
	if ($value > $now) {
	$desc = &Apache::lonlocal::locallocaltime($value);
	}
	} elsif ($name eq 'printenddate') {
	if ($value < $now) {
	$desc = &Apache::lonlocal::locallocaltime($value);
	}
	}
	}
	}
	my $standard_name = &standard_parameter_names($name);
	return '<p class="LC_warning">'.
	&mt('[_1] was [_2]not[_3] set to [_4].',
	$standard_name,'<b>','</b>','"'.$desc.'"').'<br />'.
	&mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',
	$cmajor.'.'.$cminor,$chostname,
	$needsrelease).
	'</p>';
	}

	sub get_permission {
	my %permission;
	my $allowed = 0;
	return (\%permission,$allowed) unless ($env{'request.course.id'});
	if ((&Apache::lonnet::allowed('opa',$env{'request.course.id'})) \|\|
	(&Apache::lonnet::allowed('opa',$env{'request.course.id'}.'/'.
	$env{'request.course.sec'}))) {
	%permission= (
	'edit' => 1,
	'set' => 1,
	'setoverview' => 1,
	'addmetadata' => 1,
	'ordermetadata' => 1,
	'setrestrictmeta' => 1,
	'newoverview' => 1,
	'setdefaults' => 1,
	'settable' => 1,
	'parameterchangelog' => 1,
	'cleanparameters' => 1,
	'dateshift1' => 1,
	'dateshift2' => 1,
	'helper' => 1,
	);
	} elsif ((&Apache::lonnet::allowed('vpa',$env{'request.course.id'})) \|\|
	(&Apache::lonnet::allowed('vpa',$env{'request.course.id'}.'/'.
	$env{'request.course.sec'}))) {
	%permission = (
	'set' => 1,
	'settable' => 1,
	'newoverview' => 1,
	'setoverview' => 1,
	'parameterchangelog' => 1,
	);
	}
	foreach my $perm (values(%permission)) {
	if ($perm) { $allowed=1; last; }
	}
	return (\%permission,$allowed);
	}

sub handler {	sub handler {
my $r=shift;	my $r=shift;
Line 4570 sub handler {	Line 5008 sub handler {
'pres_marker',	'pres_marker',
'pres_value',	'pres_value',
'pres_type',	'pres_type',
	'filter','part',
'udom','uname','symb','serial','timebase']);	'udom','uname','symb','serial','timebase']);


&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",	&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",
text=>"Parameter Manager",	text=>"Content and Problem Settings",
faq=>10,	faq=>10,
bug=>'Instructor Interface',	bug=>'Instructor Interface',
help =>	help =>
'Parameter_Manager,Course_Environment,Parameter_Helper,Parameter_Overview,Table_Mode'});	'Parameter_Manager,Course_Environment,Parameter_Helper,Parameter_Overview,Table_Mode'});

# ----------------------------------------------------- Needs to be in a course	# ----------------------------------------------------- Needs to be in a course
my $parm_permission =	my ($parm_permission,$allowed) = &get_permission();
(&Apache::lonnet::allowed('opa',$env{'request.course.id'}) \|\|
&Apache::lonnet::allowed('opa',$env{'request.course.id'}.'/'.
$env{'request.course.sec'}));
my $exists = &check_for_course_info();	my $exists = &check_for_course_info();

if ($env{'request.course.id'} && $parm_permission && $exists) {	if ($env{'request.course.id'} && $allowed && $exists) {
#	#
# Main switch on form.action and form.state, as appropriate	# Main switch on form.action and form.state, as appropriate
#	#
# Check first if coming from someone else headed directly for	# Check first if coming from someone else headed directly for
# the table mode	# the table mode
if ((($env{'form.command'} eq 'set') && ($env{'form.url'})	if (($parm_permission->{'set'}) &&
&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {	((($env{'form.command'} eq 'set') && ($env{'form.url'})
&assessparms($r);	&& (!$env{'form.dis'})) \|\| ($env{'form.symb'}))) {
	&assessparms($r,$parm_permission);
} elsif (! exists($env{'form.action'})) {	} elsif (! exists($env{'form.action'})) {
&print_main_menu($r,$parm_permission);	&print_main_menu($r,$parm_permission);
	} elsif (!$parm_permission->{$env{'form.action'}}) {
	&print_main_menu($r,$parm_permission);
} elsif ($env{'form.action'} eq 'setoverview') {	} elsif ($env{'form.action'} eq 'setoverview') {
&overview($r);	&overview($r,$parm_permission);
} elsif ($env{'form.action'} eq 'addmetadata') {	} elsif ($env{'form.action'} eq 'addmetadata') {
&addmetafield($r);	&addmetafield($r);
} elsif ($env{'form.action'} eq 'ordermetadata') {	} elsif ($env{'form.action'} eq 'ordermetadata') {
&order_meta_fields($r);	&order_meta_fields($r);
} elsif ($env{'form.action'} eq 'setrestrictmeta') {	} elsif ($env{'form.action'} eq 'setrestrictmeta') {
&setrestrictmeta($r);	&setrestrictmeta($r);
} elsif ($env{'form.action'} eq 'newoverview') {	} elsif ($env{'form.action'} eq 'newoverview') {
&newoverview($r);	&newoverview($r,$parm_permission);
} elsif ($env{'form.action'} eq 'setdefaults') {	} elsif ($env{'form.action'} eq 'setdefaults') {
&defaultsetter($r);	&defaultsetter($r);
} elsif ($env{'form.action'} eq 'settable') {	} elsif ($env{'form.action'} eq 'settable') {
&assessparms($r);	&assessparms($r,$parm_permission);
} elsif ($env{'form.action'} eq 'parameterchangelog') {	} elsif ($env{'form.action'} eq 'parameterchangelog') {
&parm_change_log($r);	&parm_change_log($r,$parm_permission);
} elsif ($env{'form.action'} eq 'cleanparameters') {	} elsif ($env{'form.action'} eq 'cleanparameters') {
&clean_parameters($r);	&clean_parameters($r);
} elsif ($env{'form.action'} eq 'dateshift1') {	} elsif ($env{'form.action'} eq 'dateshift1') {
&date_shift_one($r);	&date_shift_one($r);
} elsif ($env{'form.action'} eq 'dateshift2') {	} elsif ($env{'form.action'} eq 'dateshift2') {
&date_shift_two($r);	&date_shift_two($r);
} elsif ($env{'form.action'} eq 'categorizecourse') {
&assign_course_categories($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>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.488
changed lines
	Added in v.1.522.2.23.4.1