loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.579 and 1.617

version 1.579, 2017/07/15 02:31:33	version 1.617, 2023/04/03 15:32:54
Line 138 javascript function 'pjump'.	Line 138 javascript function 'pjump'.

=item print_td()	=item print_td()

=item print_usergroups()	=item check_other_groups()

=item parm_control_group()	=item parm_control_group()

Line 329 use Apache::lonnavmaps;	Line 329 use Apache::lonnavmaps;
use Apache::longroup;	use Apache::longroup;
use Apache::lonrss;	use Apache::lonrss;
use HTML::Entities;	use HTML::Entities;
	use Text::Wrap();
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);


Line 976 sub storeparm_by_symb_inner {	Line 977 sub storeparm_by_symb_inner {
#	#
# @param {string} $value - the parameter value	# @param {string} $value - the parameter value
# @param {string} $type - the parameter type	# @param {string} $type - the parameter type
# @param {string} $name - the parameter name (unused)
# @param {boolean} $editable - Set to true to get an icon when no value is defined.	# @param {boolean} $editable - Set to true to get an icon when no value is defined.
sub valout {	sub valout {
my ($value,$type,$name,$editable)=@_;	my ($value,$type,$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') {
Line 1065 sub valout {	Line 1065 sub valout {
# @param {string} $marker - identifier for the parameter, "resource id&part_parameter name&level", will be passed as pres_marker when the user submits a change.	# @param {string} $marker - identifier for the parameter, "resource id&part_parameter name&level", will be passed as pres_marker when the user submits a change.
# @param {string} $return - prefix for the name of the form and field names that will be used to submit the form ('parmform.pres')	# @param {string} $return - prefix for the name of the form and field names that will be used to submit the form ('parmform.pres')
# @param {string} $call - javascript function to call to submit the form ('psub')	# @param {string} $call - javascript function to call to submit the form ('psub')
# @param {boolean} $recursive - true if link is for a map/folder where parameter is currently set to be recursive.	# @param {boolean} $recursive - true if link is for a map/folder where parameter is currently set to be recursive.
	# @param {string} $extra - optional additional information to send as tenth arg in call to javascript pjump function.
sub plink {	sub plink {
my ($type,$dis,$value,$marker,$return,$call,$recursive)=@_;	my ($type,$dis,$value,$marker,$return,$call,$recursive,$extra)=@_;
my $winvalue=$value;	my $winvalue=$value;
unless ($winvalue) {	unless ($winvalue) {
if (&isdateparm($type)) {	if (&isdateparm($type) \|\| (&is_specialstring($type))) {
$winvalue=$env{'form.recent_'.$type};	$winvalue=$env{'form.recent_'.$type};
	} elsif ($type eq 'string_yesno') {
	if ($env{'form.recent_string'} =~ /^(yes\|no)$/i) {
	$winvalue=$env{'form.recent_string'};
	}
} else {	} else {
$winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};	$winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
}	}
Line 1079 sub plink {	Line 1084 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,$parmname,1);	my $valout = &valout($value,$type,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, \$extra) {
$$item = &HTML::Entities::encode($$item,'"<>&');	$$item = &HTML::Entities::encode($$item,'"<>&');
$$item =~ s/\'/\\\'/g;	$$item =~ s/\'/\\\'/g;
}	}
return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$unencmarker.'" /></td></tr><tr><td align="center">'.	return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$unencmarker.'" /></td></tr><tr><td align="center">'.
'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
.$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.	.$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."','".$extra."'".');">'.
$valout.'</a></td></tr>'.($recursive?'<tr><td align="center" class="LC_parm_recursive">'.	$valout.'</a></td></tr>'.($recursive?'<tr><td align="center" class="LC_parm_recursive">'.
&mt('recursive').'</td></tr>' : '').'</table>';	&mt('recursive').'</td></tr>' : '').'</table>';

Line 1107 sub page_js {	Line 1112 sub page_js {
$pjump_def	$pjump_def

function psub() {	function psub() {
	var specstring = /^string_!(yesno\|any)/i;
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();
typedef=document.parmform.pres_type.value.split('_');	typedef=document.parmform.pres_type.value.split('_');
if (document.parmform.pres_type.value!='') {	if (document.parmform.pres_type.value!='') {
if (typedef[0]=='date') {	if ((typedef[0]=='date') \|\|
	(specstring.test(document.parmform.pres_type.value))) {
eval('document.parmform.recent_'+	eval('document.parmform.recent_'+
document.parmform.pres_type.value+	document.parmform.pres_type.value+
'.value=document.parmform.pres_value.value;');	'.value=document.parmform.pres_value.value;');
Line 1235 function validateParms() {	Line 1242 function validateParms() {
var tailLenient = /\.lenient$/;	var tailLenient = /\.lenient$/;
var patternRelWeight = /^\-?[\d.]+$/;	var patternRelWeight = /^\-?[\d.]+$/;
var patternLenientStd = /^(yes\|no\|default)$/;	var patternLenientStd = /^(yes\|no\|default)$/;
	var ipRegExp = /^setip/;
var ipallowRegExp = /^setipallow_/;	var ipallowRegExp = /^setipallow_/;
var ipdenyRegExp = /^setipdeny_/;	var ipdenyRegExp = /^setipdeny_/;
	var deeplinkRegExp = /^deeplink_/;
	var dlListScopeRegExp = /^deeplink_(state\|others\|listing\|scope)_/;
	var dlLinkProtectRegExp = /^deeplink_protect_/;
	var dlLtidRegExp = /^deeplink_ltid_/;
	var dlLticRegExp = /^deeplink_ltic_/;
	var dlKeyRegExp = /^deeplink_key_/;
	var dlMenusRegExp = /^deeplink_menus_/;
	var dlCollsRegExp = /^deeplink_colls_/;
	var dlTargetRegExp = /^deeplink_target_/;
	var dlExitRegExp = /^deeplink_exit_/;
	var dlExitTextRegExp = /^deeplink_exittext_/;
var patternIP = /[\[\]\*\.a-zA-Z\d\-]+/;	var patternIP = /[\[\]\*\.a-zA-Z\d\-]+/;
if ((document.parmform.elements.length != 'undefined') && (document.parmform.elements.length) != 'null') {	var numelements = document.parmform.elements.length;
if (document.parmform.elements.length) {	if ((typeof(numelements) != 'undefined') && (numelements != null)) {
for (i=0; i<document.parmform.elements.length; i++) {	if (numelements) {
	for (i=0; i<numelements; i++) {
var name=document.parmform.elements[i].name;	var name=document.parmform.elements[i].name;
if (textRegExp.test(name)) {	if (textRegExp.test(name)) {
var identifier = name.replace(textRegExp,'');	var identifier = name.replace(textRegExp,'');
if (tailLenient.test(identifier)) {	if (tailLenient.test(identifier)) {
if (document.parmform.elements['set_'+identifier].length) {	if (document.parmform.elements['set_'+identifier].length) {
Line 1265 function validateParms() {	Line 1285 function validateParms() {
}	}
}	}
}	}
} else {	} else if (ipRegExp.test(name)) {
if (ipallowRegExp.test(name)) {	if (ipallowRegExp.test(name)) {
var identifier = name.replace(ipallowRegExp,'');	var identifier = name.replace(ipallowRegExp,'');
var possallow = document.parmform.elements[i].value;	var possallow = document.parmform.elements[i].value;
Line 1274 function validateParms() {	Line 1294 function validateParms() {
if (document.parmform.elements['set_'+identifier].value) {	if (document.parmform.elements['set_'+identifier].value) {
possallow = ','+possallow;	possallow = ','+possallow;
}	}
document.parmform.elements['set_'+identifier].value += possallow;	document.parmform.elements['set_'+identifier].value += possallow;
}	}
} else {	} else if (ipdenyRegExp.test(name)) {
if (ipdenyRegExp.test(name)) {	var identifier = name.replace(ipdenyRegExp,'');
var identifier = name.replace(ipdenyRegExp,'');	var possdeny = document.parmform.elements[i].value;
var possdeny = document.parmform.elements[i].value;	possdeny = possdeny.replace(/^\s+\|\s+$/g,'');
possdeny = possdeny.replace(/^\s+\|\s+$/g,'');	if (patternIP.test(possdeny)) {
if (patternIP.test(possdeny)) {	possdeny = '!'+possdeny;
possdeny = '!'+possdeny;	if (document.parmform.elements['set_'+identifier].value) {
	possdeny = ','+possdeny;
	}
	document.parmform.elements['set_'+identifier].value += possdeny;
	}
	}
	} else if (deeplinkRegExp.test(name)) {
	if (dlListScopeRegExp.test(name)) {
	var identifier = name.replace(dlListScopeRegExp,'');
	var idx = document.parmform.elements[i].selectedIndex;
	if (idx > 0) {
	var possdeeplink = document.parmform.elements[i].options[idx].value
	possdeeplink = possdeeplink.replace(/^\s+\|\s+$/g,'');
	if (document.parmform.elements['set_'+identifier].value) {
	possdeeplink = ','+possdeeplink;
	}
	document.parmform.elements['set_'+identifier].value += possdeeplink;
	}
	} else if (dlLinkProtectRegExp.test(name)) {
	if (document.parmform.elements[i].checked) {
	var identifier = name.replace(dlLinkProtectRegExp,'');
	var posslinkurl = document.parmform.elements[i].value;
	posslinkurl = posslinkurl.replace(/^\s+\|\s+$/g,'');
	if (document.parmform.elements['set_'+identifier].value) {
	posslinkurl = ','+posslinkurl;
	}
	document.parmform.elements['set_'+identifier].value += posslinkurl;
	}
	} else if (dlLtidRegExp.test(name)) {
	var identifier = name.replace(dlLtidRegExp,'');
	if (isRadioSet('deeplink_protect_'+identifier,'ltid')) {
	var possltid = document.parmform.elements[i].value;
	possltid = possltid.replace(/\D+/g,'');
	if (possltid.length) {
	if (document.parmform.elements['set_'+identifier].value) {
	possltid = ':'+possltid;
	}
	document.parmform.elements['set_'+identifier].value += possltid;
	} else {
	document.parmform.elements['set_'+identifier].value = '';
	alert("A link type of 'domain LTI launch' was selected but no domain LTI launcher was selected.\nPlease select one, or choose a different supported link type.");
	return false;
	}
	}
	} else if (dlLticRegExp.test(name)) {
	var identifier = name.replace(dlLticRegExp,'');
	if (isRadioSet('deeplink_protect_'+identifier,'ltic')) {
	var possltic = document.parmform.elements[i].value;
	possltic = possltic.replace(/\D+/g,'');
	if (possltic.length) {
	if (document.parmform.elements['set_'+identifier].value) {
	possltic = ':'+possltic;
	}
	document.parmform.elements['set_'+identifier].value += possltic;
	} else {
	document.parmform.elements['set_'+identifier].value = '';
	alert("A link type of 'course LTI launch' was selected but no course LTI launcher was selected.\nPlease select one, or choose a different supported link type.");
	return false;
	}
	}
	} else if (dlKeyRegExp.test(name)) {
	var identifier = name.replace(dlKeyRegExp,'');
	if (isRadioSet('deeplink_protect_'+identifier,'key')) {
	var posskey = document.parmform.elements[i].value;
	posskey = posskey.replace(/^\s+\|\s+$/g,'');
	var origlength = posskey.length;
	posskey = posskey.replace(/[^a-zA-Z\d_.!@#$%^&*()+=-]/g,'');
	var newlength = posskey.length;
	if (newlength > 0) {
	var change = origlength - newlength;
	if (change) {
	alert(change+' disallowed character(s) removed from deeplink key');
	}
	if (document.parmform.elements['set_'+identifier].value) {
	posskey = ':'+posskey;
	}
	document.parmform.elements['set_'+identifier].value += posskey;
	} else {
	document.parmform.elements['set_'+identifier].value = '';
	if (newlength < origlength) {
	alert("A link type of 'deep with key' was selected but the key value was blank, after removing disallowed characters.\nPlease enter a key using one or more of: a-zA-Z0-9_.!@#$%^&*()+=-");
	} else {
	alert("A link type of 'deep with key' was selected but the key value was blank.\nPlease enter a key.");
	}
	return false;
	}
	}
	} else if (dlMenusRegExp.test(name)) {
	if (document.parmform.elements[i].checked) {
	var identifier = name.replace(dlMenusRegExp,'');
	var posslinkmenu = document.parmform.elements[i].value;
	posslinkmenu = posslinkmenu.replace(/^\s+\|\s+$/g,'');
	if (posslinkmenu == 'std') {
	posslinkmenu = '0';
if (document.parmform.elements['set_'+identifier].value) {	if (document.parmform.elements['set_'+identifier].value) {
possdeny = ','+possdeny;	posslinkmenu = ','+posslinkmenu;
	}
	document.parmform.elements['set_'+identifier].value += posslinkmenu;
	}
	}
	} else if (dlCollsRegExp.test(name)) {
	var identifier = name.replace(dlCollsRegExp,'');
	if (isRadioSet('deeplink_menus_'+identifier,'colls')) {
	var posslinkmenu = document.parmform.elements[i].value;
	if (document.parmform.elements['set_'+identifier].value) {
	posslinkmenu = ','+posslinkmenu;
	}
	document.parmform.elements['set_'+identifier].value += posslinkmenu;
	}
	} else if (dlTargetRegExp.test(name)) {
	var identifier = name.replace(dlTargetRegExp,'');
	var idx = document.parmform.elements[i].selectedIndex;
	if (idx > 0) {
	var linktarget = document.parmform.elements[i].options[idx].value
	linktarget = linktarget.replace(/^\s+\|\s+$/g,'');
	if (document.parmform.elements['set_'+identifier].value) {
	linktarget = ','+linktarget;
	}
	document.parmform.elements['set_'+identifier].value += linktarget;
	}
	} else if (dlExitRegExp.test(name)) {
	if (document.parmform.elements[i].checked) {
	var identifier = name.replace(dlExitRegExp,'');
	var posslinkexit = document.parmform.elements[i].value;
	posslinkexit = posslinkexit.replace(/^\s+\|\s+$/g,'');
	if (document.parmform.elements['set_'+identifier].value) {
	posslinkexit = ','+posslinkexit;
	}
	document.parmform.elements['set_'+identifier].value += posslinkexit;
	}
	} else if (dlExitTextRegExp.test(name)) {
	var identifier = name.replace(dlExitTextRegExp,'');
	if ((isRadioSet('deeplink_exit_'+identifier,'yes')) \|\|
	(isRadioSet('deeplink_exit_'+identifier,'url'))) {
	var posstext = document.parmform.elements[i].value;
	posstext = posstext.replace(/^\s+\|\s+$/g,'');
	var origlength = posstext.length;
	posstext = posstext.replace(/[:;'",]/g,'');
	var newlength = posstext.length;
	if (newlength > 0) {
	var change = origlength - newlength;
	if (change) {
	alert(change+' disallowed character(s) removed from Exit Button text');
	}
	if (posstext !== 'Exit Tool') {
	posstext = ':'+posstext;
	document.parmform.elements['set_'+identifier].value += posstext;
	}
	} else {
	document.parmform.elements['set_'+identifier].value = '';
	if (newlength < origlength) {
	alert("An exit link type of 'In use' was selected but the button text value was blank, after removing disallowed characters.\nDisallowed characters are ,\":;'");
	} else {
	alert("An exit link type of 'In use' was selected but the button text value was blank.\nPlease enter the text to use.");
}	}
document.parmform.elements['set_'+identifier].value += possdeny;	return false;
}	}
}	}
}	}
Line 1297 function validateParms() {	Line 1468 function validateParms() {
return true;	return true;
}	}

	function isRadioSet(name,expected) {
	var menuitems = document.getElementsByName(name);
	var radioLength = menuitems.length;
	result = false;
	if (radioLength > 1) {
	for (var j=0; j<radioLength; j++) {
	if (menuitems[j].checked) {
	if (menuitems[j].value == expected) {
	result = true;
	break;
	}
	}
	}
	}
	return result;
	}

ENDSCRIPT	ENDSCRIPT
}	}

Line 1327 END	Line 1515 END

# Javascript function toggleSecret, for overview mode.	# Javascript function toggleSecret, for overview mode.
sub done_proctor_js {	sub done_proctor_js {
	my $defaultdone = &mt('Done');
	&js_escape(\$defaultdone);
return <<"END";	return <<"END";
function toggleSecret(form,radio,key) {	function toggleSecret(form,radio,key) {
var radios = form[radio+key];	var radios = form[radio+key];
Line 1343 function toggleSecret(form,radio,key) {	Line 1533 function toggleSecret(form,radio,key) {
document.getElementById('done_'+key+'_proctorkey').value='';	document.getElementById('done_'+key+'_proctorkey').value='';
}	}
}	}
	if (document.getElementById('done_'+key+'_buttontext')) {
	if (radios[i].value == '') {
	document.getElementById('done_'+key+'_buttontext').value = '';
	} else {
	if (document.getElementById('done_'+key+'_buttontext').value == '') {
	document.getElementById('done_'+key+'_buttontext').value = '$defaultdone';
	}
	}
	}
	}
	}
	}
	}
	END

	}

	# Javascript function toggle
	sub deeplink_js {
	return <<"END";
	function toggleDeepLink(form,item,key) {
	var radios = form['deeplink_'+item+'_'+key];
	if (radios.length) {
	var keybox;
	if (document.getElementById('deeplink_key_'+item+'_'+key)) {
	keybox = document.getElementById('deeplink_key_'+item+'_'+key);
	}
	var divoptions = new Array();
	if (item == 'protect') {
	divoptions = ['ltic','ltid'];
	} else {
	if (item == 'menus') {
	divoptions = ['colls'];
	}
	}
	var seldivs = new Array();
	if ((item == 'protect') \|\| (item == 'menus')) {
	for (var i=0; i<divoptions.length; i++) {
	if (document.getElementById('deeplinkdiv_'+divoptions[i]+'_'+item+'_'+key)) {
	seldivs[i] = document.getElementById('deeplinkdiv_'+divoptions[i]+'_'+item+'_'+key);
	} else {
	seldivs[i] = '';
	}
	}
	}
	for (var i=0; i<radios.length; i++) {
	if (radios[i].checked) {
	if ((item == 'protect') \|\| (item == 'menus')) {
	for (var j=0; j<seldivs.length; j++) {
	if (radios[i].value == divoptions[j]) {
	if (seldivs[j] != '') {
	seldivs[j].style.display = 'inline-block';
	}
	if (item == 'protect') {
	keybox.type = 'hidden';
	keybox.value = '';
	}
	} else {
	if (seldivs[j] != '') {
	seldivs[j].style.display = 'none';
	form['deeplink_'+divoptions[j]+'_'+key].selectedIndex = 0;
	}
	}
	}
	if (item == 'protect') {
	if (radios[i].value == 'key') {
	keybox.type = 'text';
	} else {
	keybox.type = 'hidden';
	}
	}
	} else if (item == 'exit') {
	if (document.getElementById('deeplinkdiv_'+item+'_'+key)) {
	if (radios[i].value == 'no') {
	document.getElementById('deeplinkdiv_'+item+'_'+key).style.display = 'none';
	if (document.getElementById('deeplink_exittext_'+key)) {
	if (document.getElementById('deeplink_exittext_'+key).value != '') {
	document.getElementById('deeplink_exittext_'+key).value = '';
	}
	}
	} else {
	document.getElementById('deeplinkdiv_'+item+'_'+key).style.display = 'inline-block';
	if (document.getElementById('deeplink_exittext_'+key)) {
	if (document.getElementById('deeplink_exittext_'+key).value == '') {
	document.getElementById('deeplink_exittext_'+key).value = 'Exit Tool';
	}
	}
	}
	}
	}
}	}
}	}
}	}
Line 1426 ENDHEAD	Line 1706 ENDHEAD
# @param {string} $cgroup - group name	# @param {string} $cgroup - group name
# @param {array reference} $usersgroups - list of groups the user belongs to, if any	# @param {array reference} $usersgroups - list of groups the user belongs to, if any
# @param {boolean} $noeditgrp - true if no edit is allowed for group level parameters	# @param {boolean} $noeditgrp - true if no edit is allowed for group level parameters
# @param {boolean} $readonly - true if no editing allowed.	# @param {boolean} $readonly - true if no editing allowed.
	# @param {array reference} - $recurseup - list of maps containing current one, ending at top-level.
	# @param {hash reference} - $maptitles - - hash map id or src -> map title
	# @param {hash reference} - $allmaps_inverted - hash map src -> map pc
	# @param {scalar reference} - $reclinks - number of "parameter in effect" cells with link to map where recursive param was set
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,$noeditgrp,	$defbgtwo,$defbgthree,$parmlev,$uname,$udom,$csec,$cgroup,$usersgroups,$noeditgrp,
$readonly)=@_;	$readonly,$recurseup,$maptitles,$allmaps_inverted,$reclinks)=@_;
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);
	my $numlinks = 0;

# get the values for the parameter in cascading order	# get the values for the parameter in cascading order
# empty levels will remain empty	# empty levels will remain empty
Line 1470 sub print_row {	Line 1755 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],$thismarker);	my ($parmname)=($thismarker=~/\_([^\_]+)$/);
my ($othergrp,$grp_parm,$controlgrp,$effparm_rec);	my ($othergrp,$grp_parm,$controlgrp,$effective_parm,$effparm_rec,$effparm_level,
if ($result == 17 \|\| $result == 11 \|\| $result == 7 \|\| $result == 3) {	$eff_groupparm,$recurse_check,$recursinfo,$extra);
	if ((ref($recurseup) eq 'ARRAY') && (@{$recurseup} > 0)) {
	if ($result eq '') {
	$recurse_check = 1;
	} elsif (($uname ne '') && ($result > 3)) {
	$recurse_check = 1;
	} elsif (($cgroup ne '') && ($result > 7)) {
	$recurse_check = 1;
	} elsif (($csec ne '') && ($result > 11)) {
	$recurse_check = 1;
	} elsif ($result > 17) {
	$recurse_check = 1;
	}
	if ($recurse_check) {
	my $what = $$part{$which}.'.'.$$name{$which};
	my $prefix;
	if (($uname ne '') && ($udom ne '')) {
	my $useropt = &Apache::lonnet::get_userresdata($uname,$udom);
	$prefix = $env{'request.course.id'};
	$recursinfo = &get_recursive($recurseup,$useropt,$what,$prefix);
	if (ref($recursinfo) eq 'ARRAY') {
	$effparm_rec = 1;
	$effparm_level = &mt('user: [_1]',$uname);
	}
	}
	if (($cgroup ne '') && (!$effparm_rec)) {
	$prefix = $env{'request.course.id'}.'.['.$cgroup.']';
	$recursinfo = &get_recursive($recurseup,$courseopt,$what,$prefix);
	if (ref($recursinfo) eq 'ARRAY') {
	$effparm_rec = 1;
	$effparm_level = &mt('group: [_1]',$cgroup);
	}
	}
	if (($csec ne '') && (!$effparm_rec)) {
	$prefix = $env{'request.course.id'}.'.['.$csec.']';
	$recursinfo = &get_recursive($recurseup,$courseopt,$what,$prefix);
	if (ref($recursinfo) eq 'ARRAY') {
	$effparm_rec = 1;
	$effparm_level = &mt('section: [_1]',$csec);
	}
	}
	if (!$effparm_rec) {
	$prefix = $env{'request.course.id'};
	$recursinfo = &get_recursive($recurseup,$courseopt,$what,$prefix);
	if (ref($recursinfo) eq 'ARRAY') {
	$effparm_rec = 1;
	}
	}
	}
	}
	if ((!$effparm_rec) && ($result == 17 \|\| $result == 11 \|\| $result == 7 \|\| $result == 3)) {
$effparm_rec = 1;	$effparm_rec = 1;
}	}
	if ((!$effparm_rec) &&
	(($$name{$which} eq 'encrypturl') \|\| ($$name{$which} eq 'hiddenresource')) &&
	($result == 16 \|\| $result == 10 \|\| $result == 6 \|\| $result == 2)) {
	$effparm_rec = 1;
	}
	if ($parmname eq 'deeplink') {
	my ($domltistr,$crsltistr);
	my %lti =
	&Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},
	'linkprot');
	if (keys(%lti)) {
	foreach my $item (sort { $a <=> $b } (keys(%lti))) {
	if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) {
	$domltistr .= $item.':'.&escape(&escape($lti{$item}{'name'})).',';
	}
	}
	$domltistr =~ s/,$//;
	if ($domltistr) {
	$extra = 'ltid_'.$domltistr;
	}
	}
	my %courselti = &Apache::lonnet::get_course_lti($cnum,$cdom);
	if (keys(%courselti)) {
	foreach my $item (sort { $a <=> $b } keys(%courselti)) {
	if (($item =~ /^\d+$/) && (ref($courselti{$item}) eq 'HASH')) {
	$crsltistr .= $item.':'.&escape(&escape($courselti{$item}{'name'})).',';
	}
	}
	$crsltistr =~ s/,$//;
	if ($crsltistr) {
	if ($extra) {
	$extra .= '&';
	}
	$extra .= 'ltic_'.$crsltistr;
	}
	}
	if ($env{'course.'.$env{'request.course.id'}.'.menucollections'}) {
	my @colls;
	foreach my $item (split(/;/,$env{'course.'.$env{'request.course.id'}.'.menucollections'})) {
	my ($num,$value) = split(/\%/,$item);
	if ($num =~ /^\d+$/) {
	push(@colls,$num);
	}
	}
	if (@colls) {
	if ($extra) {
	$extra .= '&';
	}
	$extra .= 'menus_'.join(',',@colls);
	}
	}
	}
if ($parmlev eq 'general') {	if ($parmlev eq 'general') {
if ($uname) {	if ($uname) {
&print_td($r,4,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly);	&print_td($r,4,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
} elsif ($cgroup) {	} elsif ($cgroup) {
&print_td($r,8,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly);	&print_td($r,8,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly,'',$extra);
} elsif ($csec) {	} elsif ($csec) {
&print_td($r,12,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly);	&print_td($r,12,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
} else {	} else {
&print_td($r,18,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly);	&print_td($r,18,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
}	}
} elsif ($parmlev eq 'map') {	} elsif ($parmlev eq 'map') {
if ($uname) {	if ($uname) {
&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1);	&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
} elsif ($cgroup) {	} elsif ($cgroup) {
&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly,1);	&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly,1,$extra);
} elsif ($csec) {	} elsif ($csec) {
&print_td($r,10,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1);	&print_td($r,10,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
} else {	} else {
&print_td($r,16,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1);	&print_td($r,16,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
}	}
} else {	} else {
if ($uname) {	if ($uname) {
if (@{$usersgroups} > 1) {	if (@{$usersgroups} > 1) {
my ($coursereply,$grp_parm,$controlgrp);	(my $coursereply,$othergrp,$grp_parm,$controlgrp,my $grp_is_rec) =
($coursereply,$othergrp,$grp_parm,$controlgrp) =	&check_other_groups($$part{$which}.'.'.$$name{$which},
&print_usergroups($r,$$part{$which}.'.'.$$name{$which},
$rid,$cgroup,$defbgone,$usersgroups,$result,$courseopt);	$rid,$cgroup,$defbgone,$usersgroups,$result,$courseopt);
if ($coursereply && $result > 4) {	if (($coursereply) && ($result > 4)) {
if (defined($controlgrp)) {	if (defined($controlgrp)) {
if ($cgroup ne $controlgrp) {	if ($cgroup ne $controlgrp) {
$effective_parm = $grp_parm;	$eff_groupparm = $grp_parm;
$result = 0;	undef($result);
	undef($effparm_rec);
	if ($grp_is_rec) {
	$effparm_rec = 1;
	}
}	}
}	}
}	}
}	}
}	}

&print_td($r,18,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly);	&print_td($r,18,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
&print_td($r,16,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1);	&print_td($r,16,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
&print_td($r,15,'#FFDDDD',$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly);	&print_td($r,15,'#FFDDDD',$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
&print_td($r,14,'#FFDDDD',$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly);	&print_td($r,14,'#FFDDDD',$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
&print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly);	&print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);

if ($csec) {	if ($csec) {
&print_td($r,12,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly);	&print_td($r,12,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
&print_td($r,10,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1);	&print_td($r,10,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,1,$extra);
&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly);	&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,'',$readonly,'',$extra);
}	}

if ($cgroup) {	if ($cgroup) {
&print_td($r,8,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly);	&print_td($r,8,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly,'',$extra);
&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly,1);	&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp,$readonly,1,$extra);
&print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp.$readonly);	&print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp.$readonly,'',$extra);
}	}

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

} # end of $parmlev if/else	} # end of $parmlev if/else
$r->print('<td style="background-color:#CCCCFF;" align="center">'.$effective_parm.	if (ref($recursinfo) eq 'ARRAY') {
($effparm_rec?'<br /><span class="LC_parm_recursive">'.&mt('recursive').	my $rectitle = &mt('recursive');
'</span>':'').'</td>');	if ((ref($maptitles) eq 'HASH') && (exists($maptitles->{$recursinfo->[2]}))) {
	if ((ref($allmaps_inverted) eq 'HASH') && (exists($allmaps_inverted->{$recursinfo->[2]}))) {
	$rectitle = &mt('set in: [_1]','"'.
	'<a href="javascript:pjumprec('."'".$allmaps_inverted->{$recursinfo->[2]}."',".
	"'$parmname','$$part{$which}'".');">'.
	$maptitles->{$recursinfo->[2]}.'</a>"');

	$numlinks ++;
	}
	}
	my ($parmname)=($thismarker=~/\_([^\_]+)$/);
	$effective_parm = &valout($recursinfo->[0],$recursinfo->[1]);
	$r->print('<td style="background-color:#CCCCFF;" align="center">'.$effective_parm.
	'<br /><span class="LC_parm_recursive">'.$rectitle.' '.
	$effparm_level.'</span></td>');
	} else {
	if ($result) {
	$effective_parm = &valout($outpar[$result],$typeoutpar[$result]);
	}
	if ($eff_groupparm) {
	$effective_parm = $eff_groupparm;
	}
	$r->print('<td style="background-color:#CCCCFF;" align="center">'.$effective_parm.
	($effparm_rec?'<br /><span class="LC_parm_recursive">'.&mt('recursive').
	'</span>':'').'</td>');
	}
if ($parmlev eq 'full') {	if ($parmlev eq 'full') {
my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.	my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
'.'.$$name{$which},$$symbp{$rid});	'.'.$$name{$which},$$symbp{$rid});
Line 1553 sub print_row {	Line 1966 sub print_row {
$sessionvaltype=$$defaulttype{$which};	$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,$$name{$which}).' '.	&valout($sessionval,$sessionvaltype).' '.
'</font></td>');	'</font></td>');
}	}
$r->print('</tr>');	$r->print('</tr>');
$r->print("\n");	$r->print("\n");
	if (($numlinks) && (ref($reclinks))) {
	$$reclinks = $numlinks;
	}
}	}

# Prints a cell for table mode.	# Prints a cell for table mode.
Line 1577 sub print_row {	Line 1993 sub print_row {
# @param {hash reference} $display - parameter key -> full title for the parameter	# @param {hash reference} $display - parameter key -> full title for the parameter
# @param {boolean} $noeditgrp - true if no edit is allowed for group level parameters	# @param {boolean} $noeditgrp - true if no edit is allowed for group level parameters
# @param {boolean} $readonly -true if editing not allowed.	# @param {boolean} $readonly -true if editing not allowed.
# @param {boolean} $ismaplevel - true if level is for a map.	# @param {boolean} $ismaplevel - true if level is for a map.
	# @param {string} $extra - extra information to pass to plink.
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,$ismaplevel)=@_;	$noeditgrp,$readonly,$ismaplevel,$extra)=@_;
my ($ineffect,$recursive,$currval,$currtype,$currlevel);	my ($ineffect,$recursive,$currval,$currtype,$currlevel);
$ineffect = 0;	$ineffect = 0;
$currval = $$outpar[$which];	$currval = $$outpar[$which];
Line 1619 sub print_td {	Line 2036 sub print_td {
$nolink = 1;	$nolink = 1;
}	}
} elsif ($mprefix =~ /availablestudent\&$/) {	} elsif ($mprefix =~ /availablestudent\&$/) {
if ($which > 4) {	$nolink = 1;
$nolink = 1;
}
} elsif ($mprefix =~ /examcode\&$/) {	} elsif ($mprefix =~ /examcode\&$/) {
unless ($which == 2) {	unless ($which == 2) {
$nolink = 1;	$nolink = 1;
Line 1630 sub print_td {	Line 2045 sub print_td {
}	}
if ($nolink) {	if ($nolink) {
my ($parmname)=((split(/\&/,$mprefix))[1]=~/\_([^\_]+)$/);	my ($parmname)=((split(/\&/,$mprefix))[1]=~/\_([^\_]+)$/);
$r->print(&valout($currval,$currtype,$parmname));	$r->print(&valout($currval,$currtype));
} else {	} else {
$r->print(&plink($currtype,	$r->print(&plink($currtype,
$$display{$value},$currval,	$$display{$value},$currval,
$mprefix.$currlevel,'parmform.pres','psub',$recursive));	$mprefix.$currlevel,'parmform.pres','psub',$recursive,
	$extra));
}	}
$r->print('</td>'."\n");	$r->print('</td>'."\n");
}	}

# FIXME: Despite the name, this does not print anything, the $r parameter is unused.
# Returns HTML and other info for the cell added when a user is selected	# Returns HTML and other info for the cell added when a user is selected
# and that user is in several groups. This is the cell with the title "Control by other group".	# and that user is in several groups. This is the cell with the title "Control by other group".
#	#
# @param {Apache2::RequestRec} $r - the Apache request (unused)
# @param {string} $what - parameter part.'.'.parameter name	# @param {string} $what - parameter part.'.'.parameter name
# @param {string} $rid - resource id	# @param {string} $rid - resource id
# @param {string} $cgroup - group name	# @param {string} $cgroup - group name
Line 1651 sub print_td {	Line 2065 sub print_td {
# @param {array reference} $usersgroups - list of groups the user belongs to, if any	# @param {array reference} $usersgroups - list of groups the user belongs to, if any
# @param {integer} $result - level	# @param {integer} $result - level
# @param {hash reference} $courseopt - course parameters hash (result of lonnet::get_courseresdata, dump of course's resourcedata.db)	# @param {hash reference} $courseopt - course parameters hash (result of lonnet::get_courseresdata, dump of course's resourcedata.db)
# @returns {Array} - array (parameter value for the other group, HTML for the cell, HTML with the value, name of the other group)	# @returns {Array} - array (parameter value for the other group, HTML for the cell, HTML with the value, name of the other group, true if recursive)
sub print_usergroups {	sub check_other_groups {
my ($r,$what,$rid,$cgroup,$defbg,$usersgroups,$result,$courseopt) = @_;	my ($what,$rid,$cgroup,$defbg,$usersgroups,$result,$courseopt) = @_;
my $courseid = $env{'request.course.id'};	my $courseid = $env{'request.course.id'};
my $output;	my $output;
my $symb = &symbcache($rid);	my $symb = &symbcache($rid);
Line 1665 sub print_usergroups {	Line 2079 sub print_usergroups {
&parm_control_group($courseid,$usersgroups,$symbparm,$mapparm,	&parm_control_group($courseid,$usersgroups,$symbparm,$mapparm,
$recurseparm,$what,$courseopt);	$recurseparm,$what,$courseopt);
my $bgcolor = $defbg;	my $bgcolor = $defbg;
my $grp_parm;	my ($grp_parm,$grp_is_rec);
if (($coursereply) && ($cgroup ne $resultgroup)) {	if (($coursereply) && ($cgroup ne $resultgroup)) {
	my ($parmname) = ($what =~ /\.([^.]+)$/);
if ($result > 3) {	if ($result > 3) {
$bgcolor = '#AAFFAA';	$bgcolor = '#AAFFAA';
$grp_parm = &valout($coursereply,$resulttype,$what);
}	}
$grp_parm = &valout($coursereply,$resulttype,$what);	$grp_parm = &valout($coursereply,$resulttype);
$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;	if ($resultlevel eq 'recursive') {
	$resultlevel = 'map/folder';
	$grp_is_rec = 1;
	}
	$output .= '<small><b>'.$resultgroup.'</b> ('.$resultlevel.'): </small>'.$grp_parm.
	($grp_is_rec?'<span class="LC_parm_recursive">'.&mt('recursive').'</span>':'');

} else {	} else {
$output .= ' ';	$output .= ' ';
}	}
Line 1682 sub print_usergroups {	Line 2102 sub print_usergroups {
} else {	} else {
$output .= '<td style="background-color:'.$bgcolor.';"> </td>';	$output .= '<td style="background-color:'.$bgcolor.';"> </td>';
}	}
return ($coursereply,$output,$grp_parm,$resultgroup);	return ($coursereply,$output,$grp_parm,$resultgroup,$grp_is_rec);
}	}

# Looks for a group with a defined parameter for given user and parameter.	# Looks for a group with a defined parameter for given user and parameter.
# Used by print_usergroups.	# Used by check_other_groups.
#	#
# @param {string} $courseid - the course id	# @param {string} $courseid - the course id
# @param {array reference} $usersgroups - list of groups the user belongs to, if any	# @param {array reference} $usersgroups - list of groups the user belongs to, if any
Line 1737 sub parm_control_group {	Line 2157 sub parm_control_group {
# @param {hash reference} $uris - hash resource/map id -> resource src	# @param {hash reference} $uris - hash resource/map id -> resource src
# @param {hash reference} $keyorder - hash parameter key -> appearance rank for this parameter when looking through every resource and every parameter, starting at 100 (integer)	# @param {hash reference} $keyorder - hash parameter key -> appearance rank for this parameter when looking through every resource and every parameter, starting at 100 (integer)
# @param {hash reference} $defkeytype - hash parameter name -> parameter type	# @param {hash reference} $defkeytype - hash parameter name -> parameter type
	# @param {string} $pssymb - resource symb (when a single resource is selected)
sub extractResourceInformation {	sub extractResourceInformation {
my $ids = shift;	my $ids = shift;
my $typep = shift;	my $typep = shift;
Line 1750 sub extractResourceInformation {	Line 2171 sub extractResourceInformation {
my $uris=shift;	my $uris=shift;
my $keyorder=shift;	my $keyorder=shift;
my $defkeytype=shift;	my $defkeytype=shift;
	my $pssymb=shift;

my $keyordercnt=100;	my $keyordercnt=100;

my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my @allres=$navmap->retrieveResources(undef,undef,1,undef,1);	return unless(ref($navmap));
	my @allres;
	if ($pssymb ne '') {
	my $res = $navmap->getBySymb($pssymb);
	if (ref($res)) {
	@allres = ($res);
	}
	}
	if (!@allres) {
	@allres=$navmap->retrieveResources(undef,undef,1,undef,1);
	}
foreach my $resource (@allres) {	foreach my $resource (@allres) {
my $id=$resource->id();	my $id=$resource->id();
my ($mapid,$resid)=split(/\./,$id);	my ($mapid,$resid)=split(/\./,$id);
Line 1763 sub extractResourceInformation {	Line 2195 sub extractResourceInformation {
my $srcf=$resource->src();	my $srcf=$resource->src();
$srcf=~/\.(\w+)$/;	$srcf=~/\.(\w+)$/;
$$typep{$id}=$1;	$$typep{$id}=$1;
	my $toolsymb;
	if ($srcf =~ /ext\.tool$/) {
	$toolsymb = $resource->symb();
	}
$$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',$toolsymb))) {
next if ($key!~/^parameter_/);	next if ($key!~/^parameter_/);

# Hidden parameters	# Hidden parameters
next if (&Apache::lonnet::metadata($srcf,$key.'.hidden') eq 'parm');	next if (&Apache::lonnet::metadata($srcf,$key.'.hidden',$toolsymb) eq 'parm');
#	#
# allparms is a hash of parameter names	# allparms is a hash of parameter names
#	#
my $name=&Apache::lonnet::metadata($srcf,$key.'.name');	my $name=&Apache::lonnet::metadata($srcf,$key.'.name',$toolsymb);
if (!exists($$allparms{$name}) \|\| $$allparms{$name} =~ m/^\s*$/ ) {	if (!exists($$allparms{$name}) \|\| $$allparms{$name} =~ m/^\s*$/ ) {
my ($display,$parmdis);	my ($display,$parmdis);
$display = &standard_parameter_names($name);	$display = &standard_parameter_names($name);
if ($display eq '') {	if ($display eq '') {
$display= &Apache::lonnet::metadata($srcf,$key.'.display');	$display= &Apache::lonnet::metadata($srcf,$key.'.display',$toolsymb);
$parmdis = $display;	$parmdis = $display;
$parmdis =~ s/\s\[Part.$//g;	$parmdis =~ s/\s\[Part.$//g;
} else {	} else {
Line 1788 sub extractResourceInformation {	Line 2224 sub extractResourceInformation {
$$allparms{$name}=$parmdis;	$$allparms{$name}=$parmdis;
if (ref($defkeytype)) {	if (ref($defkeytype)) {
$$defkeytype{$name}=	$$defkeytype{$name}=
&Apache::lonnet::metadata($srcf,$key.'.type');	&Apache::lonnet::metadata($srcf,$key.'.type',$toolsymb);
}	}
}	}

#	#
# allparts is a hash of all parts	# allparts is a hash of all parts
#	#
my $part= &Apache::lonnet::metadata($srcf,$key.'.part');	my $part= &Apache::lonnet::metadata($srcf,$key.'.part',$toolsymb);
$$allparts{$part} = &mt('Part: [_1]',$part);	$$allparts{$part} = &mt('Part: [_1]',$part);
#	#
# Remember all keys going with this resource	# Remember all keys going with this resource
Line 1836 sub extractResourceInformation {	Line 2272 sub extractResourceInformation {
}	}
}	}

	sub get_recursive {
	my ($recurseup,$resdata,$what,$prefix) = @_;
	if ((ref($resdata) eq 'HASH') && (ref($recurseup) eq 'ARRAY')) {
	foreach my $item (@{$recurseup}) {
	my $norecursechk=$prefix.'.'.$item.'___(all).'.$what;
	if (defined($resdata->{$norecursechk})) {
	if ($what =~ /\.(encrypturl\|hiddenresource)$/) {
	my $type = $resdata->{$norecursechk.'.type'};
	return [$resdata->{$norecursechk},$type,$item];
	} else {
	last;
	}
	}
	my $recursechk=$prefix.'.'.$item.'___(rec).'.$what;
	if (defined($resdata->{$recursechk})) {
	my $type = $resdata->{$recursechk.'.type'};
	return [$resdata->{$recursechk},$type,$item];
	}
	}
	}
	return;
	}


# Tells if a parameter type is a date.	# Tells if a parameter type is a date.
#	#
Line 1846 sub isdateparm {	Line 2305 sub isdateparm {
return (($type=~/^date/) && (!($type eq 'date_interval')));	return (($type=~/^date/) && (!($type eq 'date_interval')));
}	}

	# Determine if parameter type is specialized string type (i.e.,
	# not just string or string_yesno.

	sub is_specialstring {
	my $type=shift;
	return (($type=~/^string_/) && ($type ne 'string_yesno'));
	}

# Prints the HTML and Javascript to select parameters, with various shortcuts.	# Prints the HTML and Javascript to select parameters, with various shortcuts.
# FIXME: remove unused parameters
#	#
# @param {Apache2::RequestRec} $r - the Apache request (unused)	# @param {Apache2::RequestRec} $r - the Apache request
# @param {hash reference} $allparms - hash parameter name -> parameter title
# @param {array reference} $pscat - list of selected parameter names (unused)
# @param {hash reference} $keyorder - hash parameter key -> appearance rank (unused)
sub parmmenu {	sub parmmenu {
my ($r,$allparms,$pscat,$keyorder)=@_;	my ($r)=@_;
my $tempkey;
$r->print(<<ENDSCRIPT);	$r->print(<<ENDSCRIPT);
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
Line 1932 sub parmmenu {	Line 2394 sub parmmenu {
ENDSCRIPT	ENDSCRIPT

$r->print('<hr />');	$r->print('<hr />');
&shortCuts($r,$allparms,$pscat,$keyorder);	&shortCuts($r);
$r->print('<hr />');	$r->print('<hr />');
}	}

Line 1986 sub lookUpTableParameter {	Line 2448 sub lookUpTableParameter {
'buttonshide' => 'hiding',	'buttonshide' => 'hiding',
'turnoffeditor' => 'hiding',	'turnoffeditor' => 'hiding',
'encrypturl' => 'hiding',	'encrypturl' => 'hiding',
	'deeplink' => 'hiding',
'randomorder' => 'high_level_randomization',	'randomorder' => 'high_level_randomization',
'randompick' => 'high_level_randomization',	'randompick' => 'high_level_randomization',
'available' => 'slots',	'available' => 'slots',
Line 2001 sub lookUpTableParameter {	Line 2464 sub lookUpTableParameter {
'lenient' => 'grading',	'lenient' => 'grading',
'retrypartial' => 'tries',	'retrypartial' => 'tries',
'discussvote' => 'misc',	'discussvote' => 'misc',
'examcode' => 'high_level_randomization',	'examcode' => 'high_level_randomization',
);	);
}	}

Line 2103 sub parmboxes {	Line 2566 sub parmboxes {
if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {	if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {
$r->print( ' checked="checked"');	$r->print( ' checked="checked"');
}	}
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}	$r->print(' />'.($$allparms{$tempkey}=~/\S/ ?
: $tempkey)	Text::Wrap::wrap('',' 'x4,$$allparms{$tempkey})
	: $tempkey)
.'</label></span><br />'."\n");	.'</label></span><br />'."\n");
}	}
$r->print('</div>');	$r->print('</div>');
Line 2113 sub parmboxes {	Line 2577 sub parmboxes {
}	}

# Prints HTML with shortcuts to select groups of parameters in one click, or deselect all.	# Prints HTML with shortcuts to select groups of parameters in one click, or deselect all.
# FIXME: remove unused parameters
#	#
# @param {Apache2::RequestRec} $r - the Apache request	# @param {Apache2::RequestRec} $r - the Apache request
# @param {hash reference} $allparms - hash parameter name -> parameter title (unused)
# @param {array reference} $pscat - list of selected parameter names (unused)
# @param {hash reference} $keyorder - hash parameter key -> appearance rank (unused)
sub shortCuts {	sub shortCuts {
my ($r,$allparms,$pscat,$keyorder)=@_;	my ($r)=@_;

# Parameter Selection	# Parameter Selection
$r->print(	$r->print(
Line 2199 sub partmenu {	Line 2659 sub partmenu {
sub usermenu {	sub usermenu {
my ($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,$usersgroups,$pssymb)=@_;	my ($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,$usersgroups,$pssymb)=@_;
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.	my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
&Apache::loncommon::selectstudent_link('parmform','uname','udom');	&Apache::loncommon::selectstudent_link('parmform','uname','udom','condition').
my $selscript=&Apache::loncommon::studentbrowser_javascript();	&Apache::lonhtmlcommon::scripttag(<<ENDJS);
	function setCourseadv(form,caller) {
	if (caller.value == 'st') {
	form.courseadv.value = 'none';
	} else {
	form.courseadv.value = '';
	}
	return;
	}
	ENDJS

	my (%chkroles,$stuonly,$courseadv);
	if ($env{'form.userroles'} eq 'any') {
	$chkroles{'any'} = ' checked="checked"';
	} else {
	$chkroles{'st'} = ' checked="checked"';
	$courseadv = 'none';
	}
	my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
	if ($crstype eq 'Community') {
	$stuonly = &mt('member only');
	} else {
	$stuonly = &mt('student only');
	}
	$chooseopt .= '<br /><span class="LC_cusr_subheading">'.
	&mt("User's role").': '.
	'<label><input type="radio" name="userroles" value="st"'.$chkroles{'st'}.' onclick="setCourseadv(this.form,this);" />'.
	$stuonly.'</label>  '.
	'<label><input type="radio" name="userroles" value="any"'.$chkroles{'any'}.' onclick="setCourseadv(this.form,this);" />'.
	&mt('any role').'</label><input type="hidden" id="courseadv" name="courseadv" value="'.$courseadv.'" /></span>';
my $sections='';	my $sections='';
my %sectionhash = &Apache::loncommon::get_sections();	my %sectionhash = &Apache::loncommon::get_sections();

Line 2210 sub usermenu {	Line 2698 sub usermenu {
if (($pssymb) \|\| &Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {	if (($pssymb) \|\| &Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
%grouphash = &Apache::longroup::coursegroups();	%grouphash = &Apache::longroup::coursegroups();
} elsif ($env{'request.course.groups'} ne '') {	} elsif ($env{'request.course.groups'} ne '') {
map { $grouphash{$_} = 1; } split(/,/,$env{'request.course.groups'});	map { $grouphash{$_} = 1; } split(/:/,$env{'request.course.groups'});
}	}

my $g_s_header='';	my $g_s_header='';
Line 2268 function group_or_section(caller) {	Line 2756 function group_or_section(caller) {
}	}

if (%grouphash) {	if (%grouphash) {
$groups=&mt('Group:').' <select name="cgroup"';	$groups=&mt('Group').': <select name="cgroup"';
if (%sectionhash && $env{'form.action'} eq 'settable' && $currsec eq '') {	if (%sectionhash && $env{'form.action'} eq 'settable' && $currsec eq '') {
$groups .= qq\| onchange="group_or_section('cgroup')" \|;	$groups .= qq\| onchange="group_or_section('cgroup')" \|;
}	}
Line 2313 function group_or_section(caller) {	Line 2801 function group_or_section(caller) {
# @param {Apache2::RequestRec} $r - the Apache request	# @param {Apache2::RequestRec} $r - the Apache request
# @param {hash reference} $allparms - hash parameter name -> parameter title	# @param {hash reference} $allparms - hash parameter name -> parameter title
# @param {array reference} $pscat - list of selected parameter names	# @param {array reference} $pscat - list of selected parameter names
# @param {array reference} $psprt - list of selected parameter parts (unused)
# @param {hash reference} $keyorder - hash parameter key -> appearance rank	# @param {hash reference} $keyorder - hash parameter key -> appearance rank
# @param {string} [$divid] - name used to give an id to the HTML element for the scroll box	# @param {string} [$divid] - name used to give an id to the HTML element for the scroll box
sub displaymenu {	sub displaymenu {
my ($r,$allparms,$pscat,$psprt,$keyorder,$divid)=@_;	my ($r,$allparms,$pscat,$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')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));

&parmmenu($r,$allparms,$pscat,$keyorder); # only $allparms is used by parmmenu	&parmmenu($r);
$r->print(&Apache::loncommon::start_scrollbox('480px','440px','200px',$divid));	$r->print(&Apache::loncommon::start_scrollbox('480px','440px','200px',$divid));
&parmboxes($r,$allparms,$pscat,$keyorder);	&parmboxes($r,$allparms,$pscat,$keyorder);
$r->print(&Apache::loncommon::end_scrollbox());	$r->print(&Apache::loncommon::end_scrollbox());
Line 2340 sub displaymenu {	Line 2827 sub displaymenu {
# @param {string} $pschp - selected map pc, or 'all'	# @param {string} $pschp - selected map pc, or 'all'
# @param {hash reference} $maptitles - hash map id or src -> map title	# @param {hash reference} $maptitles - hash map id or src -> map title
# @param {hash reference} $symbp - hash map pc or resource/map id -> map src.'___(all)' or resource symb	# @param {hash reference} $symbp - hash map pc or resource/map id -> map src.'___(all)' or resource symb
	# @param {string} $parmlev - parameter level (Resource:'full', Map:'map', Course:'general')
sub mapmenu {	sub mapmenu {
my ($r,$allmaps,$pschp,$maptitles,$symbp)=@_;	my ($r,$allmaps,$pschp,$maptitles,$symbp,$parmlev)=@_;
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=[];
Line 2389 sub mapmenu {	Line 2877 sub mapmenu {
}	}
}	}
# Show it ...	# Show it ...
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',' id="mapmenu"'));	my $rowattr = ' id="mapmenu"';
	if ($parmlev eq 'general') {
	$rowattr .= ' style="display:none"';
	}
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder'),'','',$rowattr));
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="" />';
my $whitespace =	my $whitespace =
Line 2555 sub groupmenu {	Line 3047 sub groupmenu {
if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
%grouphash = &Apache::longroup::coursegroups();	%grouphash = &Apache::longroup::coursegroups();
} elsif ($env{'request.course.groups'} ne '') {	} elsif ($env{'request.course.groups'} ne '') {
map { $grouphash{$_} = 1; } split(/,/,$env{'request.course.groups'});	map { $grouphash{$_} = 1; } split(/:/,$env{'request.course.groups'});
}	}
return '' if (!%grouphash);	return '' if (!%grouphash);

Line 2631 sub keysindisplayorder {	Line 3123 sub keysindisplayorder {
#	#
# @param {Apache2::RequestRec} $r - the Apache request	# @param {Apache2::RequestRec} $r - the Apache request
# @param {string} $sortorder - realmstudent\|studentrealm	# @param {string} $sortorder - realmstudent\|studentrealm
	# @param {string} $context - newoverview\|overview
sub sortmenu {	sub sortmenu {
my ($r,$sortorder)=@_;	my ($r,$sortorder,$context)=@_;
$r->print('<br /><label><input type="radio" name="sortorder" value="realmstudent"');	my %text;
if ($sortorder eq 'realmstudent') {	if ($context eq 'newoverview') {
$r->print(' checked="checked"');	%text = &Apache::lonlocal::texthash (
	realmstudent => 'Sort by location in course first, then student (group/section)',
	studentrealm => 'Sort by student (group/section) first, then location in course',
	);
	} else {
	%text = &Apache::lonlocal::texthash (
	realmstudent => 'Sort by realm first, then student (group/section)',
	studentrealm => 'Sort by student (group/section) first, then realm',
	);
}	}
$r->print(' />'.&mt('Sort by realm first, then student (group/section)'));	my %sortchecked = (
$r->print('</label><br /><label><input type="radio" name="sortorder" value="studentrealm"');	realmstudent => ' checked="checked"',
	studentrealm => '',
	);
if ($sortorder eq 'studentrealm') {	if ($sortorder eq 'studentrealm') {
$r->print(' checked="checked"');	$sortchecked{'studentrealm'} = $sortchecked{'realmstudent'};
	$sortchecked{'realmstudent'} = '';
	}
	foreach my $sorttype ('realmstudent','studentrealm') {
	$r->print('<br /><label><input type="radio" name="sortorder" value="'.$sorttype.'"'.$sortchecked{$sorttype}.' />'.
	$text{$sorttype}.'</label>');
}	}
$r->print(' />'.&mt('Sort by student (group/section) first, then realm').
'</label>');
}	}

# Returns a hash parameter key -> order (integer) giving the order for some parameters.	# Returns a hash parameter key -> order (integer) giving the order for some parameters.
Line 2721 sub assessparms {	Line 3227 sub assessparms {
my %uris=(); # hash resource/map id -> resource src	my %uris=(); # hash resource/map id -> resource src
my %maptitles=(); # hash map pc or src -> map title	my %maptitles=(); # hash map pc or src -> map title
my %allmaps=(); # hash map pc -> map src	my %allmaps=(); # hash map pc -> map src
	my %allmaps_inverted=(); # hash map src -> map pc
my %alllevs=(); # hash English level title -> value	my %alllevs=(); # hash English level title -> value

my $uname; # selected user name	my $uname; # selected user name
Line 2729 sub assessparms {	Line 3236 sub assessparms {
my $csec; # selected section name	my $csec; # selected section name
my $cgroup; # selected group name	my $cgroup; # selected group name
my @usersgroups = (); # list of the user groups	my @usersgroups = (); # list of the user groups
	my $numreclinks = 0;

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

Line 2762 sub assessparms {	Line 3270 sub assessparms {
if ($cgroup ne '') {	if ($cgroup ne '') {
unless (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {	unless (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
if (($env{'request.course.groups'} eq '') \|\|	if (($env{'request.course.groups'} eq '') \|\|
(!grep(/^\Q$cgroup\E$/,split(/,/,$env{'request.course.groups'})))) {	(!grep(/^\Q$cgroup\E$/,split(/:/,$env{'request.course.groups'})))) {
$noeditgrp = 1;	$noeditgrp = 1;
}	}
}	}
Line 2842 sub assessparms {	Line 3350 sub assessparms {
$csec=&Apache::lonnet::getsection($udom,$uname,	$csec=&Apache::lonnet::getsection($udom,$uname,
$env{'request.course.id'});	$env{'request.course.id'});
if ($csec eq '-1') {	if ($csec eq '-1') {
$message=	my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
'<p class="LC_warning">'.	if ($env{'form.userroles'} eq 'any') {
&mt('User [_1] at domain [_2] not in this course',	if (($env{'user.name'} eq $uname) && ($env{'user.domain'} eq $udom)) {
"'".$uname."'","'".$udom."'").	$csec = $env{'request.course.sec'};
'</p>';	$message = '<span class="LC_info">';
$uname='';	if ($crstype eq 'Community') {
$csec=$env{'form.csec'};	$message .= &mt('User [_1] at domain [_2] has a non-member role in this community',
	$uname,$udom);
	} else {
	$message .= &mt('User [_1] at domain [_2] has a non-student role in this course',
	$uname,$udom);
	}
	$message .= '</span>';
	} else {
	my @possroles = ('in','ep','ta','cr');
	if ($crstype eq 'Community') {
	unshift(@possroles,'co');
	} else {
	unshift(@possroles,'cc');
	}
	my %not_student_roles =
	&Apache::lonnet::get_my_roles($uname,$udom,'userroles',['active'],
	\@possroles,[$udom],1,1);
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my %sections_by_role;
	foreach my $role (keys(%not_student_roles)) {
	if ($role =~ /^\Q$cnum:$cdom:\E([^:]+):(\|[^:]+)$/) {
	my ($rolename,$sec) = ($1,$2);
	if ($rolename =~ m{^cr/}) {
	$rolename = 'cr';
	}
	push(@{$sections_by_role{$rolename}},$sec);
	}
	}
	my $numroles = scalar(keys(%sections_by_role));
	if ($numroles) {
	foreach my $role (@possroles) {
	if (ref($sections_by_role{$role}) eq 'ARRAY') {
	my @secs = sort { $a <=> $b } @{$sections_by_role{$role}};
	$csec = $secs[0];
	last;
	}
	}
	}
	if ($csec eq '-1') {
	$message = '<span class="LC_warning">';
	if ($crstype eq 'Community') {
	$message .= &mt('User [_1] at domain [_2] does not have a role in this community',
	$uname,$udom);
	} else {
	$message .= &mt('User [_1] at domain [_2] does not have a role in this course',
	$uname,$udom);
	}
	$message .= '</span>';
	$uname='';
	if ($env{'request.course.sec'} ne '') {
	$csec=$env{'request.course.sec'};
	} else {
	$csec=$env{'form.csec'};
	}
	$cgroup=$env{'form.cgroup'};
	} else {
	$message = '<span class="LC_info">';
	if ($crstype eq 'Community') {
	$message .= &mt('User [_1] at domain [_2] has a non-member role in this community',
	$uname,$udom);
	} else {
	$message .= &mt('User [_1] at domain [_2] has a non-student role in this course',
	$uname,$udom);
	}
	$message .= '</span>';
	}
	}
	} else {
	$message = '<span class="LC_warning">';
	if ($crstype eq 'Community') {
	$message .= &mt('User [_1] at domain [_2] does not have a member role in this community',
	$uname,$udom);
	} else {
	$message .= &mt('User [_1] at domain [_2] does not have a student role in this course',
	$uname,$udom);
	}
	$message .= '</span>';
	$uname='';
	if ($env{'request.course.sec'} ne '') {
	$csec=$env{'request.course.sec'};
	} else {
	$csec=$env{'form.csec'};
	}
	$cgroup=$env{'form.cgroup'};
	}
	} elsif ($env{'request.course.sec'} ne '') {
	if ($csec ne $env{'request.course.sec'}) {
	$message='<span class="LC_warning">'.
	&mt("User '[_1]' at domain '[_2]' not in section '[_3]'",
	$uname,$udom,$env{'request.course.sec'}).
	'</span>';
	$uname='';
	$csec=$env{'request.course.sec'};
	}
$cgroup=$env{'form.cgroup'};	$cgroup=$env{'form.cgroup'};
} else {	}
	if ($uname ne '') {
my %name=&Apache::lonnet::userenvironment($udom,$uname,	my %name=&Apache::lonnet::userenvironment($udom,$uname,
('firstname','middlename','lastname','generation','id'));	('firstname','middlename','lastname','generation','id'));
$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('Student/Employee 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'});	if (@usersgroups > 0) {
if (@usersgroups > 0) {	unless (grep(/^\Q$cgroup\E$/,@usersgroups)) {
unless (grep(/^\Q$cgroup\E$/,@usersgroups)) {	$cgroup = $usersgroups[0];
$cgroup = $usersgroups[0];	}
	} else {
	$cgroup = '';
}	}
}	}
}	}
Line 2874 sub assessparms {	Line 3479 sub assessparms {
# --------------------------------------------------------- Get all assessments	# --------------------------------------------------------- Get all assessments
&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,	&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
\%mapp, \%symbp,\%maptitles,\%uris,	\%mapp, \%symbp,\%maptitles,\%uris,
\%keyorder);	\%keyorder,undef,$pssymb);

	%allmaps_inverted = reverse(%allmaps);

$mapp{'0.0'} = '';	$mapp{'0.0'} = '';
$symbp{'0.0'} = '';	$symbp{'0.0'} = '';
Line 2889 sub assessparms {	Line 3496 sub assessparms {
my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};	my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
my ($got_chostname,$chostname,$cmajor,$cminor);	my ($got_chostname,$chostname,$cmajor,$cminor);
my $totalstored = 0;	my $totalstored = 0;
	my $totalskippeduser = 0;
my $now = time;	my $now = time;
for (my $i=0;$i<=$#markers;$i++) {	for (my $i=0;$i<=$#markers;$i++) {
my ($needsrelease,$needsnewer,$name,$namematch);	my ($needsrelease,$needsnewer,$name,$namematch);
Line 2897 sub assessparms {	Line 3505 sub assessparms {
}	}
if ($markers[$i] =~ /\&(8\|7\|6\|5)$/) {	if ($markers[$i] =~ /\&(8\|7\|6\|5)$/) {
next if ($noeditgrp);	next if ($noeditgrp);
	} elsif ($markers[$i] =~ /\&(4\|3\|2\|1)$/) {
	if ($uname eq '') {
	$totalskippeduser ++;
	next;
	}
}	}
if ($markers[$i] =~ /\&(17\|11\|7\|3)$/) {	if ($markers[$i] =~ /\&(17\|11\|7\|3)$/) {
$namematch = 'maplevelrecurse';	$namematch = 'maplevelrecurse';
Line 3035 sub assessparms {	Line 3648 sub assessparms {
# ---------------------------------------------------------------- Done storing	# ---------------------------------------------------------------- Done storing
if ($totalstored) {	if ($totalstored) {
$message.='<p class="LC_warning">'	$message.='<p class="LC_warning">'
	.&mt('Changes for [quant,_1,parameter] saved.',$totalstored)
	.'<br />'
.&mt('Changes can take up to 10 minutes before being active for all students.')	.&mt('Changes can take up to 10 minutes before being active for all students.')
.&Apache::loncommon::help_open_topic('Caching')	.&Apache::loncommon::help_open_topic('Caching')
.'</p>';	.'</p>';
	} else {
	$message.='<p class="LC_info">'.&mt('No parameter changes saved.').'</p>';
	}
	if ($totalskippeduser) {
	$message .= '<p class="LC_warning">';
	if ($uhome eq 'no_host') {
	$message .= &mt('Changes for [quant,_1,user-specific parameter] not saved because the username or ID was invalid.',
	$totalskippeduser);
	} elsif ($env{'form.userroles'} eq 'any') {
	$message .= &mt('Changes for [quant,_1,user-specific parameter] not saved because the user does not have a course role.',
	$totalskippeduser);
	} else {
	$message .= &mt('Changes for [quant,_1,user-specific parameter] not saved because the user is not a student.',
	$totalskippeduser);
	}
	$message .= '</p>';
}	}
}	}

#----------------------------------------------- if all selected, fill in array	#----------------------------------------------- if all selected, fill in array
if ($pscat[0] eq "all") {	if ($pscat[0] eq "all") {
@pscat = (keys(%allparms));	@pscat = (keys(%allparms));
Line 3056 sub assessparms {	Line 3688 sub assessparms {
&startpage($r,$pssymb,$crstype);	&startpage($r,$pssymb,$crstype);

foreach my $item ('tolerance','date_default','date_start','date_end',	foreach my $item ('tolerance','date_default','date_start','date_end',
'date_interval','int','float','string') {	'date_interval','int','float','string','string_lenient',
	'string_examcode','string_deeplink','string_discussvote',
	'string_useslots','string_problemstatus','string_ip',
	'string_questiontype') {
$r->print('<input type="hidden" value="'.	$r->print('<input type="hidden" value="'.
&HTML::Entities::encode($env{'form.recent_'.$item},'"&<>').	&HTML::Entities::encode($env{'form.recent_'.$item},'"&<>').
'" name="recent_'.$item.'" />');	'" name="recent_'.$item.'" />');
Line 3064 sub assessparms {	Line 3699 sub assessparms {

# ----- Start Parameter Selection	# ----- Start Parameter Selection

# Hide parm selection?	# Hide parm selection and possibly table?
	my ($tablejs,$tabledivsty);
	if (((($env{'form.uname'} ne '') \|\| ($env{'form.id'} ne '')) && ($uname eq '')) &&
	($env{'form.dis'}) && ($pssymb eq '')) {
	$tablejs = 'document.getElementById('."'parmtable'".').style.display = "";';
	$tabledivsty = ' style="display:none"';
	}
$r->print(<<ENDPARMSELSCRIPT);	$r->print(<<ENDPARMSELSCRIPT);
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
function parmsel_show() {	function parmsel_show() {
document.getElementById('parmsel').style.display = "";	document.getElementById('parmsel').style.display = "";
document.getElementById('parmsellink').style.display = "none";	document.getElementById('parmsellink').style.display = "none";
	$tablejs
}	}
// ]]>	// ]]>
</script>	</script>
Line 3097 ENDPARMSELSCRIPT	Line 3739 ENDPARMSELSCRIPT
$r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));	$r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure());
&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);	&mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp,$parmlev);
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
&partmenu($r,\%allparts,\@psprt);	&partmenu($r,\%allparts,\@psprt);
Line 3106 ENDPARMSELSCRIPT	Line 3748 ENDPARMSELSCRIPT

# Step 2	# Step 2
$r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification'),'parmstep2'));	$r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification'),'parmstep2'));
&displaymenu($r,\%allparms,\@pscat,\@psprt,\%keyorder,'parmmenuscroll');	&displaymenu($r,\%allparms,\@pscat,\%keyorder,'parmmenuscroll');

# Step 3	# Step 3
$r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)'),'parmstep3'));	$r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)'),'parmstep3'));
Line 3177 ENDPARMSELSCRIPT	Line 3819 ENDPARMSELSCRIPT
if ($parm_permission->{'edit'}) {	if ($parm_permission->{'edit'}) {
undef($readonly);	undef($readonly);
}	}
	$r->print('<div id="parmtable"'.$tabledivsty.'>');

if ($parmlev eq 'full') {	if ($parmlev eq 'full') {
#	#
Line 3265 ENDTABLEHEADFOUR	Line 3908 ENDTABLEHEADFOUR
foreach my $rid (@ids) {	foreach my $rid (@ids) {

my ($inmapid)=($rid=~/\.(\d+)$/);	my ($inmapid)=($rid=~/\.(\d+)$/);

if ((!$pssymb &&	if ((!$pssymb &&
(($pschp eq 'all') \|\| ($allmaps{$pschp} eq $mapp{$rid})))	(($pschp eq 'all') \|\| ($allmaps{$pschp} eq $mapp{$rid})))
\|\|	\|\|
Line 3295 ENDTABLEHEADFOUR	Line 3937 ENDTABLEHEADFOUR
my %type= ();	my %type= ();
my %default=();	my %default=();
my $uri=&Apache::lonnet::declutter($uris{$rid});	my $uri=&Apache::lonnet::declutter($uris{$rid});
	my $toolsymb;
	if ($uri =~ /ext\.tool$/) {
	$toolsymb = $symbp{$rid};
	}

my $filter=$env{'form.filter'};	my $filter=$env{'form.filter'};
foreach my $tempkeyp (&keysplit($keyp{$rid})) {	foreach my $tempkeyp (&keysplit($keyp{$rid})) {
if (grep $_ eq $tempkeyp, @catmarker) {	if (grep $_ eq $tempkeyp, @catmarker) {
my $parmname=&Apache::lonnet::metadata($uri,$tempkeyp.'.name');	my $parmname=&Apache::lonnet::metadata($uri,$tempkeyp.'.name',$toolsymb);
# We may only want certain parameters listed	# We may only want certain parameters listed
if ($filter) {	if ($filter) {
unless ($filter=~/\Q$parmname\E/) { next; }	unless ($filter=~/\Q$parmname\E/) { next; }
}	}
$name{$tempkeyp}=$parmname;	$name{$tempkeyp}=$parmname;
$part{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp.'.part');	$part{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp.'.part',$toolsymb);

my $parmdis=&Apache::lonnet::metadata($uri,$tempkeyp.'.display');	my $parmdis=&Apache::lonnet::metadata($uri,$tempkeyp.'.display',$toolsymb);
if ($allparms{$name{$tempkeyp}} ne '') {	if ($allparms{$name{$tempkeyp}} ne '') {
my $identifier;	my $identifier;
if ($parmdis =~ /(\s\[Part.)$/) {	if ($parmdis =~ /(\s\[Part.)$/) {
Line 3319 ENDTABLEHEADFOUR	Line 3965 ENDTABLEHEADFOUR
}	}
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }	unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';	$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp);	$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp,$toolsymb);
$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp.'.type');	$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp.'.type',$toolsymb);
$thistitle=&Apache::lonnet::metadata($uri,$tempkeyp.'.title');	$thistitle=&Apache::lonnet::metadata($uri,$tempkeyp.'.title',$toolsymb);
}	}
}	}
my $totalparms=scalar(keys(%name));	my $totalparms=scalar(keys(%name));
if ($totalparms>0) {	if ($totalparms>0) {
my $firstrow=1;	my $firstrow=1;
my $title=&Apache::lonnet::gettitle($symbp{$rid});	my $title=&Apache::lonnet::gettitle($symbp{$rid});
	my $navmap = Apache::lonnavmaps::navmap->new();
	my @recurseup;
	if (ref($navmap) && $mapp{$rid}) {
	@recurseup = $navmap->recurseup_maps($mapp{$rid});
	}
$r->print('<tr><td style="background-color:'.$defbgone.';"'.	$r->print('<tr><td style="background-color:'.$defbgone.';"'.
' rowspan='.$totalparms.	' rowspan='.$totalparms.
'><tt><font size="-1">'.	'><tt><font size="-1">'.
Line 3359 ENDTABLEHEADFOUR	Line 4010 ENDTABLEHEADFOUR
&print_row($r,$item,\%part,\%name,\%symbp,$rid,\%default,	&print_row($r,$item,\%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,$noeditgrp,$readonly);	$cgroup,\@usersgroups,$noeditgrp,$readonly,
	\@recurseup,\%maptitles,\%allmaps_inverted,
	\$numreclinks);
}	}
}	}
}	}
Line 3383 ENDTABLEHEADFOUR	Line 4036 ENDTABLEHEADFOUR

#-------------------------------------------- for each map, gather information	#-------------------------------------------- for each map, gather information
my $mapid;	my $mapid;
foreach $mapid (sort {$maplist{$a} cmp $maplist{$b}} keys(%maplist)) {	foreach $mapid (sort { $a <=> $b } keys(%maplist)) {
my $maptitle = $maplist{$mapid};	my $maptitle = $maplist{$mapid};

#----------------------- loop through ids and get all parameter types for map	#----------------------- loop through ids and get all parameter types for map
Line 3405 ENDTABLEHEADFOUR	Line 4058 ENDTABLEHEADFOUR

if ($map eq $mapid) {	if ($map eq $mapid) {
my $uri=&Apache::lonnet::declutter($uris{$rid});	my $uri=&Apache::lonnet::declutter($uris{$rid});
	my $toolsymb;
	if ($uri =~ /ext\.tool$/) {
	$toolsymb = $symbp{$rid};
	}

# $r->print("Keys: $keyp{$rid} <br />\n");	# $r->print("Keys: $keyp{$rid} <br />\n");

#--------------------------------------------------------------------	#--------------------------------------------------------------------
Line 3420 ENDTABLEHEADFOUR	Line 4078 ENDTABLEHEADFOUR

if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {	if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
$part{$tempkeyp}="0";	$part{$tempkeyp}="0";
$name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');	$name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name',$toolsymb);
my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');	my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display',$toolsymb);
if ($allparms{$name{$tempkeyp}} ne '') {	if ($allparms{$name{$tempkeyp}} ne '') {
my $identifier;	my $identifier;
if ($parmdis =~ /(\s\[Part.)$/) {	if ($parmdis =~ /(\s\[Part.)$/) {
Line 3434 ENDTABLEHEADFOUR	Line 4092 ENDTABLEHEADFOUR
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }	unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';	$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
$display{$tempkeyp} =~ s/_\w+_/_0_/;	$display{$tempkeyp} =~ s/_\w+_/_0_/;
$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);	$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp,$toolsymb);
$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');	$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type',$toolsymb);
}	}
} # end loop through keys	} # end loop through keys
}	}
Line 3477 ENDTABLEHEADFOUR	Line 4135 ENDTABLEHEADFOUR
.&Apache::loncommon::end_data_table_header_row()	.&Apache::loncommon::end_data_table_header_row()
);	);

	my $navmap = Apache::lonnavmaps::navmap->new();
	my @recurseup;
	if (ref($navmap)) {
	my $mapres = $navmap->getByMapPc($mapid);
	if (ref($mapres)) {
	@recurseup = $navmap->recurseup_maps($mapres->src());
	}
	}


foreach my $item (&keysinorder(\%name,\%keyorder)) {	foreach my $item (&keysinorder(\%name,\%keyorder)) {
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
&print_row($r,$item,\%part,\%name,\%symbp,$mapid,\%default,	&print_row($r,$item,\%part,\%name,\%symbp,$mapid,\%default,
\%type,\%display,$defbgone,$defbgtwo,$defbgthree,	\%type,\%display,$defbgone,$defbgtwo,$defbgthree,
$parmlev,$uname,$udom,$csec,$cgroup,'',$noeditgrp,	$parmlev,$uname,$udom,$csec,$cgroup,'',$noeditgrp,
$readonly);	$readonly,\@recurseup,\%maptitles,\%allmaps_inverted,
	\$numreclinks);
}	}
$r->print(&Apache::loncommon::end_data_table().'</p>'	$r->print(&Apache::loncommon::end_data_table().'</p>'
.'</div>'	.'</div>'
Line 3509 ENDTABLEHEADFOUR	Line 4178 ENDTABLEHEADFOUR
my $rid = $id;	my $rid = $id;

my $uri=&Apache::lonnet::declutter($uris{$rid});	my $uri=&Apache::lonnet::declutter($uris{$rid});
	my $toolsymb;
	if ($uri =~ /ext\.tool$/) {
	$toolsymb = $symbp{$rid};
	}

#--------------------------------------------------------------------	#--------------------------------------------------------------------
# @catmarker contains list of all possible parameters including part #s	# @catmarker contains list of all possible parameters including part #s
Line 3522 ENDTABLEHEADFOUR	Line 4195 ENDTABLEHEADFOUR
$tempkeyp =~ s/_\w+_/_0_/;	$tempkeyp =~ s/_\w+_/_0_/;
if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {	if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
$part{$tempkeyp}="0";	$part{$tempkeyp}="0";
$name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');	$name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name',$toolsymb);
my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display');	my $parmdis=&Apache::lonnet::metadata($uri,$fullkeyp.'.display',$toolsymb);
if ($allparms{$name{$tempkeyp}} ne '') {	if ($allparms{$name{$tempkeyp}} ne '') {
my $identifier;	my $identifier;
if ($parmdis =~ /(\s\[Part.)$/) {	if ($parmdis =~ /(\s\[Part.)$/) {
Line 3536 ENDTABLEHEADFOUR	Line 4209 ENDTABLEHEADFOUR
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }	unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';	$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
$display{$tempkeyp} =~ s/_\w+_/_0_/;	$display{$tempkeyp} =~ s/_\w+_/_0_/;
$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);	$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp,$toolsymb);
$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');	$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type',$toolsymb);
}	}
} # end loop through keys	} # end loop through keys
} # end loop through ids	} # end loop through ids
Line 3580 ENDMAPONE	Line 4253 ENDMAPONE
.'</center>'	.'</center>'
);	);
} # end of $parmlev eq general	} # end of $parmlev eq general
	$r->print('</div>');
}	}
$r->print('</form>');	$r->print('</form>');
	if ($numreclinks) {
	$r->print(<<"END");
	<form name="recurseform" action="/adm/parmset?action=settable" method="post">
	<input type="hidden" name="pschp" />
	<input type="hidden" name="pscat" />
	<input type="hidden" name="psprt" />
	<input type="hidden" name="hideparmsel" value="hidden" />
	</form>
	<script type="text/javascript">
	function pjumprec(rid,name,part) {
	document.forms.recurseform.pschp.value = rid;
	document.forms.recurseform.pscat.value = name;
	document.forms.recurseform.psprt.value = part;
	document.forms.recurseform.submit();
	return false;
	}
	</script>
	END
	}
&endSettingsScreen($r);	&endSettingsScreen($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
} # end sub assessparms	} # end sub assessparms
Line 3667 sub readdata {	Line 4360 sub readdata {
# Stores parameter data, using form parameters directly.	# Stores parameter data, using form parameters directly.
#	#
# Uses the following form parameters. The variable part in the names is a resourcedata key (except for a modification for user data).	# Uses the following form parameters. The variable part in the names is a resourcedata key (except for a modification for user data).
# set_* (except settext, setipallow, setipdeny) - set a parameter value	# set_* (except settext, setipallow, setipdeny, setdeeplink) - set a parameter value
# del_* - remove a parameter	# del_* - remove a parameter
# datepointer_* - set a date parameter (value is key_* refering to a set of other form parameters)	# datepointer_* - set a date parameter (value is key_* refering to a set of other form parameters)
# dateinterval_* - set a date interval parameter (value refers to more form parameters)	# dateinterval_* - set a date interval parameter (value refers to more form parameters)
Line 3700 sub storedata {	Line 4393 sub storedata {
my $cmd=$1;	my $cmd=$1;
my $thiskey=$2;	my $thiskey=$2;
my ($altkey,$recursive,$tkey,$tkeyrec,$tkeynonrec);	my ($altkey,$recursive,$tkey,$tkeyrec,$tkeynonrec);
next if ($cmd eq 'rec' \|\| $cmd eq 'settext' \|\| $cmd eq 'setipallow' \|\| $cmd eq 'setipdeny');	next if ($cmd eq 'rec' \|\| $cmd eq 'settext' \|\| $cmd eq 'setipallow' \|\| $cmd eq 'setipdeny' \|\| $cmd eq 'setdeeplink');
if ((($cmd eq 'set') \|\| ($cmd eq 'datepointer') \|\| ($cmd eq 'dateinterval') \|\| ($cmd eq 'del')) &&	if ((($cmd eq 'set') \|\| ($cmd eq 'datepointer') \|\| ($cmd eq 'dateinterval') \|\| ($cmd eq 'del')) &&
($thiskey =~ /(?:sequence\|page)\Q___(all)\E/)) {	($thiskey =~ /(?:sequence\|page)\Q___(all)\E/)) {
unless ($thiskey =~ /(encrypturl\|hiddenresource)$/) {	unless ($thiskey =~ /(encrypturl\|hiddenresource)$/) {
Line 3731 sub storedata {	Line 4424 sub storedata {
$text = &mt('Saved modified parameter for');	$text = &mt('Saved modified parameter for');
if ($typeof eq 'string_questiontype') {	if ($typeof eq 'string_questiontype') {
$name = 'type';	$name = 'type';
} elsif ($typeof eq 'string_lenient') {	} elsif (($typeof eq 'string_lenient') \|\| ($typeof eq 'string_deeplink')) {
$name = 'lenient';	($name) = ($typeof =~ /^string_(lenient\|deeplink)$/);
my $stringmatch = &standard_string_matches($typeof);	my $stringmatch = &standard_string_matches($typeof);
if (ref($stringmatch) eq 'ARRAY') {	if (ref($stringmatch) eq 'ARRAY') {
foreach my $item (@{$stringmatch}) {	foreach my $item (@{$stringmatch}) {
Line 4098 sub parse_listdata_key {	Line 4791 sub parse_listdata_key {
# @param {string} $caller - name of the calling sub (overview\|newoverview)	# @param {string} $caller - name of the calling sub (overview\|newoverview)
# @param {hash reference} $classlist - from loncoursedata::get_classlist	# @param {hash reference} $classlist - from loncoursedata::get_classlist
# @param {boolean} $readonly - true if editing not allowed	# @param {boolean} $readonly - true if editing not allowed
	# @param {string} $parmlev - full\|map
	# @param {hash reference} $hash_for_realm - keys: realm, values: numeric order
	# @param {string} $pschp - selected map pc, or 'all'
# @returns{integer} - number of $listdata parameters processed	# @returns{integer} - number of $listdata parameters processed
sub listdata {	sub listdata {
my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist,$readonly)=@_;	my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist,$readonly,$parmlev,$hash_for_realm,$pschp)=@_;

# Start list output	# Start list output

Line 4111 sub listdata {	Line 4807 sub listdata {
$tableopen=0;	$tableopen=0;
my $foundkeys=0;	my $foundkeys=0;
my %keyorder=&standardkeyorder();	my %keyorder=&standardkeyorder();
	my $readonlyall = $readonly;

my ($secidx,%grouphash);	my ($secidx,%grouphash);
if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {	if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
Line 4118 sub listdata {	Line 4815 sub listdata {
if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {	if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
%grouphash = &Apache::longroup::coursegroups();	%grouphash = &Apache::longroup::coursegroups();
} elsif ($env{'request.course.groups'} ne '') {	} elsif ($env{'request.course.groups'} ne '') {
map { $grouphash{$_} = 1; } split(/,/,$env{'request.course.groups'});	map { $grouphash{$_} = 1; } split(/:/,$env{'request.course.groups'});
}	}
}	}

foreach my $key (sort {	foreach my $key (sort {
my ($astudent,$ares,$apart,$aparm) = &parse_listdata_key($a,$listdata);	my ($astudent,$ares,$apart,$aparm) = &parse_listdata_key($a,$listdata);
my ($bstudent,$bres,$bpart,$bparm) = &parse_listdata_key($b,$listdata);	my ($bstudent,$bres,$bpart,$bparm) = &parse_listdata_key($b,$listdata);
	my ($aid,$bid);
	if ($caller eq 'newoverview') {
	if (ref($hash_for_realm) eq 'HASH') {
	if (($parmlev eq 'map') && ($pschp eq 'all')) {
	my ($aurl) = ($ares =~ /^(.+\.(?:sequence\|page))___$all$$/);
	my ($burl) = ($bres =~ /^(.+\.(?:sequence\|page))___$all$$/);
	$aid = $hash_for_realm->{$aurl};
	$bid = $hash_for_realm->{$burl};
	} elsif ($parmlev eq 'full') {
	$aid = $hash_for_realm->{$ares};
	$bid = $hash_for_realm->{$bres};
	}
	}
	}

# get the numerical order for the param	# get the numerical order for the param
$aparm=$keyorder{'parameter_0_'.$aparm};	$aparm=$keyorder{'parameter_0_'.$aparm};
Line 4134 sub listdata {	Line 4845 sub listdata {

if ($sortorder eq 'realmstudent') {	if ($sortorder eq 'realmstudent') {
if ($ares ne $bres ) {	if ($ares ne $bres ) {
$result = ($ares cmp $bres);	if ($caller eq 'newoverview') {
	if (ref($hash_for_realm) eq 'HASH') {
	if (($parmlev eq 'map') && ($pschp eq 'all')) {
	$result = ($aid <=> $bid);
	} elsif ($parmlev eq 'full') {
	$result = ($aid <=> $bid);
	} else {
	$result = ($ares cmp $bres);
	}
	} else {
	$result = ($ares cmp $bres);
	}
	} else {
	$result = ($ares cmp $bres);
	}
} elsif ($astudent ne $bstudent) {	} elsif ($astudent ne $bstudent) {
$result = ($astudent cmp $bstudent);	$result = ($astudent cmp $bstudent);
} elsif ($apart ne $bpart ) {	} elsif ($apart ne $bpart ) {
Line 4144 sub listdata {	Line 4869 sub listdata {
if ($astudent ne $bstudent) {	if ($astudent ne $bstudent) {
$result = ($astudent cmp $bstudent);	$result = ($astudent cmp $bstudent);
} elsif ($ares ne $bres ) {	} elsif ($ares ne $bres ) {
$result = ($ares cmp $bres);	if ($caller eq 'newoverview') {
	if (ref($hash_for_realm) eq 'HASH') {
	if (($parmlev eq 'map') && ($pschp eq 'all')) {
	$result = ($aid <=> $bid);
	} elsif ($parmlev eq 'full') {
	$result = ($aid <=> $bid);
	} else {
	$result = ($ares cmp $bres);
	}
	} else {
	$result = ($ares cmp $bres);
	}
	} else {
	$result = ($ares cmp $bres);
	}
} elsif ($apart ne $bpart ) {	} elsif ($apart ne $bpart ) {
$result = ($apart cmp $bpart);	$result = ($apart cmp $bpart);
}	}
Line 4172 sub listdata {	Line 4911 sub listdata {
my ($middle,$part,$name)=	my ($middle,$part,$name)=
($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s\-]+)\.(\w+)$/);	($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s\-]+)\.(\w+)$/);
my $section=&mt('All Students');	my $section=&mt('All Students');
	$readonly = $readonlyall;
	my $userscope;
my $showval = $$resourcedata{$thiskey};	my $showval = $$resourcedata{$thiskey};
if ($middle=~/^\[(.*)\]/) {	if ($middle=~/^\[(.*)\]/) {
my $issection=$1;	my $issection=$1;
Line 4185 sub listdata {	Line 4926 sub listdata {
}	}
}	}
$section=&mt('User').": ".&Apache::loncommon::plainname($stuname,$studom);	$section=&mt('User').": ".&Apache::loncommon::plainname($stuname,$studom);
	$userscope = 1;
} else {	} else {
if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {	if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
if (exists($grouphash{$issection})) {	if (exists($grouphash{$issection})) {
Line 4221 sub listdata {	Line 4963 sub listdata {
}	}
if ($is_map) {	if ($is_map) {
my $leveltitle = &mt('Folder/Map');	my $leveltitle = &mt('Folder/Map');
	my $title = &Apache::lonnet::gettitle($mapurl);
	if (ref($hash_for_realm) eq 'HASH') {
	if ($hash_for_realm->{$mapurl} eq '1') {
	$title = &mt('Main Content');
	}
	}
unless (($name eq 'hiddenresource') \|\| ($name eq 'encrypturl')) {	unless (($name eq 'hiddenresource') \|\| ($name eq 'encrypturl')) {
if ($caller eq 'newoverview') {	if ($caller eq 'newoverview') {
my $altkey = $thiskey;	my $altkey = $thiskey;
Line 4237 sub listdata {	Line 4985 sub listdata {
$is_recursive = 1;	$is_recursive = 1;
}	}
}	}
$realm='<span class="LC_parm_scope_folder">'.$leveltitle.': '.&Apache::lonnet::gettitle($mapurl).' <br /><span class="LC_parm_folder">('.$mapurl.')</span></span>';	$realm='<span class="LC_parm_scope_folder">'.$leveltitle.': '.$title.' <br /><span class="LC_parm_folder">('.$mapurl.')</span></span>';
} elsif ($middle) {	} elsif ($middle) {
my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);	my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
	next if (($url =~ /\.(page\|sequence)$/) && ($parmlev eq 'full') && ($caller eq 'newoverview'));
$realm='<span class="LC_parm_scope_resource">'.&mt('Resource').	$realm='<span class="LC_parm_scope_resource">'.&mt('Resource').
': '.&Apache::lonnet::gettitle($middle).	': '.&Apache::lonnet::gettitle($middle).
' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.	' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.
Line 4282 sub listdata {	Line 5031 sub listdata {
'<td><b>'.&mt($parmitem).	'<td><b>'.&mt($parmitem).
'</b></td>');	'</b></td>');
unless ($readonly) {	unless ($readonly) {
	my $disabled;
	if (($name eq 'availablestudent') &&
	(($showval eq '') \|\| ($userscope))) {
	$disabled = ' disabled="disabled"';
	}
$r->print('<td><input type="checkbox" name="del_'.	$r->print('<td><input type="checkbox" name="del_'.
$thiskey.'" /></td>');	$thiskey.'"'.$disabled.' /></td>');
}	}
$r->print('<td>');	$r->print('<td>');
$foundkeys++;	$foundkeys++;
Line 4311 sub listdata {	Line 5065 sub listdata {
$r->print(&date_interval_selector($thiskey,$name,	$r->print(&date_interval_selector($thiskey,$name,
$showval,$readonly));	$showval,$readonly));
} elsif ($thistype =~ m/^string/) {	} elsif ($thistype =~ m/^string/) {
	if ($name eq 'availablestudent') {
	$readonly = 1;
	}
$r->print(&string_selector($thistype,$thiskey,	$r->print(&string_selector($thistype,$thiskey,
$showval,$name,$readonly));	$showval,$name,$readonly));
} else {	} else {
Line 4353 sub listdata {	Line 5110 sub listdata {
sub get_date_interval_from_form {	sub get_date_interval_from_form {
my ($key) = @_;	my ($key) = @_;
my $seconds = 0;	my $seconds = 0;
	my $numnotnull = 0;
foreach my $which (['days', 86400],	foreach my $which (['days', 86400],
['hours', 3600],	['hours', 3600],
['minutes', 60],	['minutes', 60],
['seconds', 1]) {	['seconds', 1]) {
my ($name, $factor) = @{ $which };	my ($name, $factor) = @{ $which };
if (defined($env{'form.'.$name.'_'.$key})) {	if (defined($env{'form.'.$name.'_'.$key})) {
$seconds += $env{'form.'.$name.'_'.$key} * $factor;	unless ($env{'form.'.$name.'_'.$key} eq '') {
	$numnotnull ++;
	$seconds += $env{'form.'.$name.'_'.$key} * $factor;
	}
}	}
}	}
if (($key =~ /\.interval$/) &&	if (($key =~ /\.interval$/) &&
Line 4378 sub get_date_interval_from_form {	Line 5139 sub get_date_interval_from_form {
$seconds .= '_'.$env{'form.done_'.$key.'_proctorkey'};	$seconds .= '_'.$env{'form.done_'.$key.'_proctorkey'};
}	}
}	}
	return if (!$numnotnull);
return $seconds;	return $seconds;
}	}

Line 4463 sub string_ip_selector {	Line 5225 sub string_ip_selector {
return $output;	return $output;
}	}

	sub string_deeplink_selector {
	my ($thiskey, $showval, $readonly) = @_;
	my (@tables,%values,@current,%titles,%options,%optiontext,%defaults,
	%selectnull,%domlti,%crslti,@possmenus,%components);
	@tables = ('upper','lower');
	%components = (
	upper => ['state','others','listing','scope'],
	lower => ['protect','menus','target','exit'],
	);
	%titles = &Apache::lonlocal::texthash (
	state => 'Access status',
	others => 'Hide other resources',
	listing => 'In Contents and/or Gradebook',
	scope => 'Access scope for link',
	protect => 'Link protection',
	menus => 'Menu Items Displayed',
	target => 'Embedded?',
	exit => 'Exit Tool Button?',
	);
	%options = (
	state => ['only','off','both'],
	others => ['hide','unhide'],
	listing => ['full','absent','grades','details','datestatus'],
	scope => ['res','map','rec'],
	protect => ['none','key','ltid','ltic'],
	menus => ['std','colls'],
	target => ['_self','_top'],
	exit => ['no','yes','url'],
	);
	%optiontext = &Apache::lonlocal::texthash (
	only => 'deep only',
	off => 'deeplink off',
	both => 'regular + deep',
	hide => 'Hidden',
	unhide => 'Unhidden',
	full => 'Listed (linked) in both',
	absent => 'Not listed',
	grades => 'Listed in grades only',
	details => 'Listed (unlinked) in both',
	datestatus => 'Listed (unlinked) inc. status in both',
	res => 'resource only',
	map => 'enclosing map/folder',
	rec => 'recursive map/folder',
	none => 'not in use',
	key => 'key access',
	ltic => 'LTI access (course)',
	ltid => 'LTI access (domain)' ,
	std => 'Standard (all menus)',
	colls => 'Numbered collection',
	_self => 'Embedded',
	_top => 'Not embedded',
	no => 'Not in use',
	yes => 'In use, no URL redirect',
	url => 'In use, redirect to URL',
	);
	%selectnull = &Apache::lonlocal::texthash (
	ltic => 'Select Launcher',
	ltid => 'Select Launcher',
	colls => 'Select',
	);
	if ($showval =~ /,/) {
	%values=();
	@current = split(/,/,$showval);
	($values{'state'}) = ($current[0] =~ /^(only\|off\|both)$/);
	($values{'others'}) = ($current[1] =~ /^(hide\|unhide)$/);
	($values{'listing'}) = ($current[2] =~ /^(full\|absent\|grades\|details\|datestatus)$/);
	($values{'scope'}) = ($current[3] =~ /^(res\|map\|rec)$/);
	($values{'protect'}) = ($current[4] =~ /^(key:[a-zA-Z\d_.!\@#\$%^&*()+=-]+\|ltic:\d+\|ltid:\d+)$/);
	($values{'menus'}) = ($current[5] =~ /^(\d+)$/);
	($values{'target'}) = ($current[6] =~ /^(_self\|_top)$/);
	($values{'exit'}) = ($current[7] =~ /^((?:(?:yes\|url)(?:\|\:[^:;"',]+))\|no)$/);
	} else {
	$defaults{'state'} = 'off',
	$defaults{'others'} = 'unhide',
	$defaults{'listing'} = 'full';
	$defaults{'scope'} = 'res';
	$defaults{'protect'} = 'none';
	$defaults{'menus'} = '0';
	$defaults{'target'} = '_top';
	$defaults{'exit'} = 'yes';
	}
	my $disabled;
	if ($readonly) {
	$disabled=' disabled="disabled"';
	}
	my %courselti =
	&Apache::lonnet::get_course_lti($env{'course.'.$env{'request.course.id'}.'.num'},
	$env{'course.'.$env{'request.course.id'}.'.domain'});
	foreach my $item (keys(%courselti)) {
	if (ref($courselti{$item}) eq 'HASH') {
	$crslti{$item} = $courselti{$item}{'name'};
	}
	}
	my %lti =
	&Apache::lonnet::get_domain_lti($env{'course.'.$env{'request.course.id'}.'.domain'},
	'linkprot');
	foreach my $item (keys(%lti)) {
	if (($item =~ /^\d+$/) && (ref($lti{$item}) eq 'HASH')) {
	$domlti{$item} = $lti{$item}{'name'};
	}
	}
	if ($env{'course.'.$env{'request.course.id'}.'.menucollections'}) {
	foreach my $item (split(/;/,$env{'course.'.$env{'request.course.id'}.'.menucollections'})) {
	my ($num,$value) = split(/\%/,$item);
	if ($num =~ /^\d+$/) {
	push(@possmenus,$num);
	}
	}
	}

	my $output = '<input type="hidden" name="set_'.$thiskey.'" />';
	foreach my $table ('upper','lower') {
	next unless (ref($components{$table}) eq 'ARRAY');
	$output .= '<table width="100%"><tr>';
	foreach my $item (@{$components{$table}}) {
	$output .= '<th>'.$titles{$item}.'</th>';
	}
	$output .= '</tr><tr>';
	foreach my $item (@{$components{$table}}) {
	$output .= '<td>';
	if (($item eq 'protect') \|\| ($item eq 'menus') \|\| ($item eq 'exit')) {
	my $selected = $values{$item};
	foreach my $option (@{$options{$item}}) {
	if ($item eq 'protect') {
	if ($option eq 'ltid') {
	next unless (keys(%domlti));
	} elsif ($option eq 'ltic') {
	next unless (keys(%crslti));
	}
	} elsif (($item eq 'menus') && ($option eq 'colls')) {
	next unless (@possmenus);
	}
	my $checked;
	if ($item eq 'menus') {
	if (($selected =~ /^\d+$/) && (@possmenus) &&
	(grep(/^\Q$selected\E$/,@possmenus))) {
	if ($option eq 'colls') {
	$checked = ' checked="checked"';
	}
	} elsif (($option eq 'std') && ($selected == 0) && ($selected ne '')) {
	$checked = ' checked="checked"';
	}
	} elsif ($selected =~ /^\Q$option\E/) {
	$checked = ' checked="checked"';
	}
	my $onclick;
	unless ($readonly) {
	my $esc_key = &js_escape($thiskey);
	$onclick = ' onclick="toggleDeepLink(this.form,'."'$item','$esc_key'".');"';
	}
	$output .= '<span class="LC_nobreak"><label>'.
	'<input type="radio" name="deeplink_'.$item.'_'.$thiskey.'" value="'.$option.'"'.$onclick.$disabled.$checked.' />'."\n".
	$optiontext{$option}.'</label>';
	if (($item eq 'protect') && ($option eq 'key')) {
	my $visibility="hidden";
	my $currkey;
	if ($checked) {
	$visibility = "text";
	$currkey = (split(/\:/,$values{$item}))[1];
	}
	$output .= ' '.
	'<input type="'.$visibility.'" name="deeplink_'.$option.'_'.$thiskey.'" id="deeplink_'.$option.'_'.$item.'_'.$thiskey.'" value="'.$currkey.'" size="10"'.$disabled.' />';
	} elsif (($option eq 'ltic') \|\| ($option eq 'ltid') \|\| ($option eq 'colls')) {
	my $display="none";
	my ($current,$blankcheck,@possibles);
	if ($checked) {
	$display = 'inline-block';
	if (($option eq 'ltic') \|\| ($option eq 'ltid')) {
	$current = (split(/\:/,$selected))[1];
	} else {
	$current = $selected;
	}
	} else {
	$blankcheck = ' selected="selected"';
	}
	if ($option eq 'ltid') {
	@possibles = keys(%domlti);
	} elsif ($option eq 'ltic') {
	@possibles = keys(%crslti);
	} else {
	@possibles = @possmenus;
	}
	$output .= '<div id="deeplinkdiv_'.$option.'_'.$item.'_'.$thiskey.'"'.
	' style="display: '.$display.'"> <select name="'.
	'deeplink_'.$option.'_'.$thiskey.'"'.$disabled.'>';
	if (@possibles > 1) {
	$output .= '<option value=""'.$blankcheck.'>'.$selectnull{$option}.
	'</option>'."\n";
	}
	foreach my $poss (sort { $a <=> $b } @possibles) {
	my $selected;
	if (($poss == $current) \|\| (scalar(@possibles) ==1)) {
	$selected = ' selected="selected"';
	}
	my $shown = $poss;
	if ($option eq 'ltid') {
	$shown = $domlti{$poss};
	} elsif ($option eq 'ltic') {
	$shown = $crslti{$poss};
	}
	$output .= '<option value="'.$poss.'"'.$selected.'>'.$shown.'</option>';
	}
	$output .= '</select></div>';
	}
	$output .= '</span> ';
	}
	if ($item eq 'exit') {
	my $exitsty = 'none';
	my $displayval;
	if ($values{$item} =~ /^(yes\|url)/) {
	$exitsty = 'inline-block';
	my $currval = (split(/\:/,$values{$item}))[1];
	if ($currval eq '') {
	$displayval = 'Exit Tool';
	} else {
	$displayval = $currval;
	}
	}
	$output .= '<div id="deeplinkdiv_'.$item.'_'.$thiskey.'"'.
	' style="display: '.$exitsty.'"><br />'.&mt('Button text').': '.
	'<input type="text" name="deeplink_exittext_'.$thiskey.'"'.
	' id="deeplink_exittext_'.$thiskey.'" value="'.$displayval.'"'.
	' size="10"'.$disabled.' /></div>';
	}
	} else {
	my $selected = $values{$item};
	my $defsel;
	if ($selected eq '') {
	$defsel = ' selected="selected"';
	}
	$output .= '<select name="deeplink_'.$item.'_'.$thiskey.'"'.$disabled.'>'."\n".
	'<option value=""'.$defsel.'>'.&mt('Please select').'</option>'."\n";
	foreach my $option (@{$options{$item}}) {
	$output .= '<option value="'.$option.'"';
	if ($option eq $selected) {
	$output .= ' selected="selected"';
	}
	$output .= '>'.$optiontext{$option}.'</option>';
	}
	$output .= '</select>';
	}
	$output .= '</td>';
	}
	$output .= '</tr></table>'."\n";
	if ($table eq 'upper') {
	$output .= '<br />';
	}
	}
	return $output;
	}


{ # block using some constants related to parameter types (overview mode)	{ # block using some constants related to parameter types (overview mode)

Line 4496 my %strings =	Line 5509 my %strings =
['no','No']],	['no','No']],
'string_ip'	'string_ip'
=> [['_allowfrom_','Hostname(s), or IP(s) from which access is allowed'],	=> [['_allowfrom_','Hostname(s), or IP(s) from which access is allowed'],
['_denyfrom_',], 'Hostname(s) or IP(s) from which access is disallowed'],	['_denyfrom_','Hostname(s) or IP(s) from which access is disallowed']],
);	'string_deeplink'
	=> [['on','Set choices for link protection, resource listing, access scope, shown menu items, embedding, and exit link']],
	);


my %stringmatches = (	my %stringmatches = (
'string_lenient'	'string_lenient'
Line 4505 my %stringmatches = (	Line 5521 my %stringmatches = (
'string_ip'	'string_ip'
=> [['_allowfrom_','[^\!]+'],	=> [['_allowfrom_','[^\!]+'],
['_denyfrom_','\!']],	['_denyfrom_','\!']],
	'string_deeplink'
	=> [['on','^(only\|off\|both)\,(hide\|unhide)\,(full\|absent\|grades\|details\|datestatus)\,(res\|map\|rec)\,(none\|key\:\w+\|ltic\:\d+\|ltid\:\d+)\,(\d+\|)\,_(self\|top),(yes\|url\|no)(\|:[^:;\'",]+)$']],
);	);

my %stringtypes = (	my %stringtypes = (
Line 4514 my %stringtypes = (	Line 5532 my %stringtypes = (
discussvote => 'string_discussvote',	discussvote => 'string_discussvote',
examcode => 'string_examcode',	examcode => 'string_examcode',
acc => 'string_ip',	acc => 'string_ip',
	deeplink => 'string_deeplink',
);	);

# Returns the possible values and titles for a given string type, or undef if there are none.	# Returns the possible values and titles for a given string type, or undef if there are none.
Line 4573 sub string_selector {	Line 5592 sub string_selector {
($thistype eq 'string_lenient') \|\|	($thistype eq 'string_lenient') \|\|
($thistype eq 'string_discussvote') \|\|	($thistype eq 'string_discussvote') \|\|
($thistype eq 'string_ip') \|\|	($thistype eq 'string_ip') \|\|
	($thistype eq 'string_deeplink') \|\|
($name eq 'retrypartial')) {	($name eq 'retrypartial')) {
my ($got_chostname,$chostname,$cmajor,$cminor);	my ($got_chostname,$chostname,$cmajor,$cminor);
foreach my $possibilities (@{ $strings{$thistype} }) {	foreach my $possibilities (@{ $strings{$thistype} }) {
Line 4611 sub string_selector {	Line 5631 sub string_selector {

if ($thistype eq 'string_ip') {	if ($thistype eq 'string_ip') {
return &string_ip_selector($thiskey,$showval,$readonly);	return &string_ip_selector($thiskey,$showval,$readonly);
	} elsif ($thistype eq 'string_deeplink') {
	return &string_deeplink_selector($thiskey,$showval,$readonly);
}	}

my ($result,$disabled);	my ($result,$disabled);
Line 4820 sub date_interval_selector {	Line 5842 sub date_interval_selector {
$showval %= $factor;	$showval %= $factor;
my %select = ((map {$_ => $_} (0..$max)),	my %select = ((map {$_ => $_} (0..$max)),
'select_form_order' => [0..$max]);	'select_form_order' => [0..$max]);
	if ($currval eq '') {
	unshift(@{$select{'select_form_order'}},'');
	$select{''} = '';
	$amount = '';
	}
$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,	$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,
\%select,'',$readonly);	\%select,'',$readonly);
$result .= ' '.&mt($name);	$result .= ' '.&mt($name);
Line 4827 sub date_interval_selector {	Line 5854 sub date_interval_selector {
if ($name eq 'interval') {	if ($name eq 'interval') {
unless ($skipval{'done'}) {	unless ($skipval{'done'}) {
my $checkedon = '';	my $checkedon = '';
	my $checkedoff = '';
my $checkedproc = '';	my $checkedproc = '';
my $currproctorkey = '';	my $currproctorkey = '';
my $currprocdisplay = 'hidden';	my $currprocdisplay = 'hidden';
my $currdonetext = &mt('Done');	my $currdonetext = &mt('Done');
my $checkedoff = ' checked="checked"';
if ($currval =~ /^(?:\d+)_done$/) {	if ($currval =~ /^(?:\d+)_done$/) {
$checkedon = ' checked="checked"';	$checkedon = ' checked="checked"';
$checkedoff = '';
} elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:$/) {	} elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:$/) {
$currdonetext = $1;	$currdonetext = $1;
$checkedon = ' checked="checked"';	$checkedon = ' checked="checked"';
$checkedoff = '';
} elsif ($currval =~ /^(?:\d+)_done_proctor_(.+)$/) {	} elsif ($currval =~ /^(?:\d+)_done_proctor_(.+)$/) {
$currproctorkey = $1;	$currproctorkey = $1;
$checkedproc = ' checked="checked"';	$checkedproc = ' checked="checked"';
$checkedoff = '';
$currprocdisplay = 'text';	$currprocdisplay = 'text';
} elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:_proctor_(.+)$/) {	} elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:_proctor_(.+)$/) {
$currdonetext = $1;	$currdonetext = $1;
$currproctorkey = $2;	$currproctorkey = $2;
$checkedproc = ' checked="checked"';	$checkedproc = ' checked="checked"';
$checkedoff = '';
$currprocdisplay = 'text';	$currprocdisplay = 'text';
	} elsif ($currval ne '') {
	$checkedoff = ' checked="checked"';
	} else {
	$currdonetext = '';
}	}
my $onclick = ' onclick="toggleSecret(this.form,'."'done_','$thiskey'".');"';	my $onclick = ' onclick="toggleSecret(this.form,'."'done_','$thiskey'".');"';
my $disabled;	my $disabled;
Line 4866 sub date_interval_selector {	Line 5893 sub date_interval_selector {
'<input type="'.$currprocdisplay.'" id="done_'.$thiskey.'_proctorkey" '.	'<input type="'.$currprocdisplay.'" id="done_'.$thiskey.'_proctorkey" '.
'name="done_'.$thiskey.'_proctorkey" value="'.&HTML::Entities::encode($currproctorkey,'"<>&').'"'.$disabled.' /></span><br />'.	'name="done_'.$thiskey.'_proctorkey" value="'.&HTML::Entities::encode($currproctorkey,'"<>&').'"'.$disabled.' /></span><br />'.
'<span class="LC_nobreak">'.&mt('Button text').': '.	'<span class="LC_nobreak">'.&mt('Button text').': '.
'<input type="text" name="done_'.$thiskey.'_buttontext" value="'.&HTML::Entities::encode($currdonetext,'"<>&').'"'.$disabled.' /></span>';	'<input type="text" name="done_'.$thiskey.'_buttontext" id="done_'.$thiskey.'_buttontext" value="'.
	&HTML::Entities::encode($currdonetext,'"<>&').'"'.$disabled.' /></span>';
}	}
}	}
unless ($readonly) {	unless ($readonly) {
Line 4966 sub oldversion_warning {	Line 5994 sub oldversion_warning {
# @param {integer} $shift - time to shift, in seconds	# @param {integer} $shift - time to shift, in seconds
# @returns {string} - error name or 'ok'	# @returns {string} - error name or 'ok'
sub dateshift {	sub dateshift {
my ($shift)=@_;	my ($shift,$numchanges)=@_;
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 $sec = $env{'request.course.sec'};
	my $secgrpregex;
	if ($sec ne '') {
	my @groups;
	if ($env{'request.course.groups'} ne '') {
	@groups = split(/:/,$env{'request.course.groups'});
	}
	if (@groups) {
	$secgrpregex = '(?:'.join('\|',($sec,@groups)).')';
	} else {
	$secgrpregex = $sec;
	}
	}
my %data=&Apache::lonnet::dump('resourcedata',$dom,$crs);	my %data=&Apache::lonnet::dump('resourcedata',$dom,$crs);
# ugly retro fix for broken version of types	# ugly retro fix for broken version of types
foreach my $key (keys(%data)) {	foreach my $key (keys(%data)) {
Line 4983 sub dateshift {	Line 6024 sub dateshift {
# go through all parameters and look for dates	# go through all parameters and look for dates
foreach my $key (keys(%data)) {	foreach my $key (keys(%data)) {
if ($data{$key.'.type'}=~/^date_(start\|end)$/) {	if ($data{$key.'.type'}=~/^date_(start\|end)$/) {
	if ($sec ne '') {
	next unless ($key =~ /^$env{'request.course.id'}\.\[$secgrpregex\]\./);
	}
my $newdate=$data{$key}+$shift;	my $newdate=$data{$key}+$shift;
	$$numchanges ++;
$storecontent{$key}=$newdate;	$storecontent{$key}=$newdate;
}	}
}	}
Line 5025 sub newoverview {	Line 6070 sub newoverview {
&validateparms_js()."\n".	&validateparms_js()."\n".
&ipacc_boxes_js()."\n".	&ipacc_boxes_js()."\n".
&done_proctor_js()."\n".	&done_proctor_js()."\n".
	&deeplink_js()."\n".
'// ]]>	'// ]]>
</script>	</script>
';	';
Line 5089 ENDOVER	Line 6135 ENDOVER

&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,	&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
\%mapp, \%symbp,\%maptitles,\%uris,	\%mapp, \%symbp,\%maptitles,\%uris,
\%keyorder,\%defkeytype);	\%keyorder,\%defkeytype,$pssymb);

if (grep {$_ eq 'all'} (@psprt)) {	if (grep {$_ eq 'all'} (@psprt)) {
@psprt = keys(%allparts);	@psprt = keys(%allparts);
Line 5101 ENDOVER	Line 6147 ENDOVER
$r->print('<div>');	$r->print('<div>');
$r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));	$r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
if ($parmlev ne 'general') {	$r->print(&Apache::lonhtmlcommon::row_closure());
$r->print(&Apache::lonhtmlcommon::row_closure());	&mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp,$parmlev);
&mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp);
}
$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('</div></div>');	$r->print('</div></div>');

$r->print('<div class="LC_Box">');	$r->print('<div class="LC_Box">');
$r->print('<div>');	$r->print('<div>');
&displaymenu($r,\%allparms,\@pscat,\%keyorder); # FIXME: wrong parameters, could make keysindisplayorderCategory crash because $keyorder is undefined	&displaymenu($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')));
my $sectionselector = &sectionmenu(\@selected_sections);	my $sectionselector = &sectionmenu(\@selected_sections);
Line 5142 ENDOVER	Line 6186 ENDOVER
$r->print('<div>');	$r->print('<div>');
my $sortorder=$env{'form.sortorder'};	my $sortorder=$env{'form.sortorder'};
unless ($sortorder) { $sortorder='realmstudent'; }	unless ($sortorder) { $sortorder='realmstudent'; }
&sortmenu($r,$sortorder);	&sortmenu($r,$sortorder,'newoverview');
$r->print('</div></div>');	$r->print('</div></div>');

$r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');	$r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');
Line 5167 ENDOVER	Line 6211 ENDOVER

# List data	# List data

&listdata($r,$resourcedata,$listdata,$sortorder,'newoverview',undef,$readonly);	my $hash_for_realm;
	if (($parmlev eq 'map') && (keys(%allmaps))) {
	%{$hash_for_realm} = reverse(%allmaps);
	} elsif (($parmlev eq 'full') && (keys(%symbp))) {
	for (my $i=0; $i<@ids; $i++) {
	$hash_for_realm->{$symbp{$ids[$i]}} = $i;
	}
	}
	&listdata($r,$resourcedata,$listdata,$sortorder,'newoverview',undef,$readonly,$parmlev,$hash_for_realm,$pschp);
}	}
$r->print(&tableend());	$r->print(&tableend());
unless ($readonly) {	unless ($readonly) {
Line 5246 sub overview {	Line 6298 sub overview {
&validateparms_js()."\n".	&validateparms_js()."\n".
&ipacc_boxes_js()."\n".	&ipacc_boxes_js()."\n".
&done_proctor_js()."\n".	&done_proctor_js()."\n".
	&deeplink_js()."\n".
'// ]]>'."\n".	'// ]]>'."\n".
'</script>'."\n";	'</script>'."\n";
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
Line 5273 sub overview {	Line 6326 sub overview {

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

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

Line 5357 ENDOVER	Line 6410 ENDOVER
$r->print(&mt('All users'));	$r->print(&mt('All users'));
} elsif ($data{'scope_type'} eq 'user') {	} elsif ($data{'scope_type'} eq 'user') {
$r->print(&mt('User: [_1]',join(':',@{$data{'scope'}})));	$r->print(&mt('User: [_1]',join(':',@{$data{'scope'}})));
} elsif ($data{'scope_type'} eq 'section') {	} elsif ($data{'scope_type'} eq 'secgroup') {
$r->print(&mt('Section: [_1]',$data{'scope'}));	$r->print(&mt('Group/Section: [_1]',$data{'scope'}));
} elsif ($data{'scope_type'} eq 'group') {
$r->print(&mt('Group: [_1]',$data{'scope'}));
}	}
$r->print('<br />');	$r->print('<br />');
if ($data{'realm_type'} eq 'all') {	if ($data{'realm_type'} eq 'all') {
Line 5395 sub date_shift_one {	Line 6446 sub date_shift_one {
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 $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
	my $sec = $env{'request.course.sec'};
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=dateshift1&timebase='.$env{'form.timebase'},	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=dateshift1&timebase='.$env{'form.timebase'},
text=>"Shifting Dates"});	text=>"Shifting Dates"});
	my $submit_text = &mt('Shift all dates accordingly');
	if ($sec ne '') {
	my @groups;
	if ($env{'request.course.groups'} ne '') {
	@groups = split(/:/,$env{'request.course.groups'});
	}
	if (@groups) {
	$submit_text = &mt("Shift dates set just for your section/group(s), accordingly");
	} else {
	$submit_text = &mt("Shift dates set just for your section, accordingly");
	}
	}
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($start_page.$breadcrumbs);	$r->print($start_page.$breadcrumbs);
Line 5413 sub date_shift_one {	Line 6476 sub date_shift_one {
'</td></tr></table>'.	'</td></tr></table>'.
'<input type="hidden" name="action" value="dateshift2" />'.	'<input type="hidden" name="action" value="dateshift2" />'.
'<input type="hidden" name="timebase" value="'.$env{'form.timebase'}.'" />'.	'<input type="hidden" name="timebase" value="'.$env{'form.timebase'}.'" />'.
'<input type="submit" value="'.&mt('Shift all dates accordingly').'" /></form>');	'<input type="submit" value="'.$submit_text.'" /></form>');
&endSettingsScreen($r);	&endSettingsScreen($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}
Line 5425 sub date_shift_two {	Line 6488 sub date_shift_two {
my ($r) = @_;	my ($r) = @_;
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 $sec = $env{'request.course.sec'};
my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};	my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=dateshift1&timebase='.$env{'form.timebase'},	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=dateshift1&timebase='.$env{'form.timebase'},
text=>"Shifting Dates"});	text=>"Shifting Dates"});
Line 5433 sub date_shift_two {	Line 6497 sub date_shift_two {
$r->print($start_page.$breadcrumbs);	$r->print($start_page.$breadcrumbs);
&startSettingsScreen($r,'parmset',$crstype);	&startSettingsScreen($r,'parmset',$crstype);
my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');	my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');
$r->print('<h2>'.&mt('Shift Dates').'</h2>'.	$r->print('<h2>'.&mt('Shift Dates').'</h2>');
'<p>'.&mt('Shifting all dates such that [_1] becomes [_2]',	if ($sec ne '') {
&Apache::lonlocal::locallocaltime($env{'form.timebase'}),	my @groups;
&Apache::lonlocal::locallocaltime($timeshifted)).'</p>');	if ($env{'request.course.groups'} ne '') {
	@groups = split(/:/,$env{'request.course.groups'});
	}
	if (@groups) {
	$r->print('<p>'.
	&mt("Shift dates set just for your section/group(s), such that [_1] becomes [_2]",
	&Apache::lonlocal::locallocaltime($env{'form.timebase'}),
	&Apache::lonlocal::locallocaltime($timeshifted)).
	'</p>');
	} else {
	$r->print('<p>'.
	&mt("Shift dates set just for your section, such that [_1] becomes [_2]",
	&Apache::lonlocal::locallocaltime($env{'form.timebase'}),
	&Apache::lonlocal::locallocaltime($timeshifted)).
	'</p>');
	}
	} else {
	$r->print('<p>'.&mt('Shifting all dates such that [_1] becomes [_2]',
	&Apache::lonlocal::locallocaltime($env{'form.timebase'}),
	&Apache::lonlocal::locallocaltime($timeshifted)).
	'</p>');
	}
my $delta=$timeshifted-$env{'form.timebase'};	my $delta=$timeshifted-$env{'form.timebase'};
&dateshift($delta);	my $numchanges = 0;
	my $result = &dateshift($delta,\$numchanges);
	if ($result eq 'ok') {
	$r->print(
	&Apache::lonhtmlcommon::confirm_success(&mt('Completed shifting of [quant,_1,date setting]',
	$numchanges)));
	} elsif ($result eq 'con_delayed') {
	$r->print(
	&Apache::lonhtmlcommon::confirm_success(&mt('Queued shifting of [quant,_1,date setting]',
	$numchanges)));
	} else {
	$r->print(
	&Apache::lonhtmlcommon::confirm_success(&mt('An error occurred attempting to shift dates'),1));
	}
$r->print(	$r->print(
&Apache::lonhtmlcommon::confirm_success(&mt('Done')).
'<br /><br />'.	'<br /><br />'.
&Apache::lonhtmlcommon::actionbox(	&Apache::lonhtmlcommon::actionbox(
['<a href="/adm/parmset">'.&mt('Content and Problem Settings').'</a>']));	['<a href="/adm/parmset">'.&mt('Content and Problem Settings').'</a>']));
Line 5467 sub parse_key {	Line 6564 sub parse_key {
$data{'scope_type'} = 'user';	$data{'scope_type'} = 'user';
$data{'scope'} = [$1,$2];	$data{'scope'} = [$1,$2];
} else {	} else {
#FIXME check for group scope	$data{'scope_type'} = 'secgroup';
$data{'scope_type'} = 'section';
}	}
$middle=~s/^\[(.*)\]//;	$middle=~s/^\[(.*)\]//;
}	}
Line 5814 sub continue {	Line 6910 sub continue {
my $output;	my $output;
$output .= '<form action="" method="post">';	$output .= '<form action="" method="post">';
$output .= '<input type="hidden" name="action" value="setrestrictmeta" />';	$output .= '<input type="hidden" name="action" value="setrestrictmeta" />';
$output .= '<input type="submit" value="Continue" />';	$output .= '<input type="submit" value="'.&mt('Continue').'" />';
return ($output);	return ($output);
}	}

Line 5842 sub addmetafield {	Line 6938 sub addmetafield {
my $put_result = &Apache::lonnet::put('environment',	my $put_result = &Apache::lonnet::put('environment',
{'metadata.'.$meta_field.'.options'=>$options},$dom,$crs);	{'metadata.'.$meta_field.'.options'=>$options},$dom,$crs);

$r->print('Undeleted Metadata Field <strong>'.$env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.added'}."</strong> with result ".$put_result.'<br />');	$r->print(&mt('Undeleted Metadata Field [_1] with result [_2]',
	'<strong>'.$env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.added'}.
	'</strong>',$put_result).
	'<br />');
}	}
$r->print(&continue());	$r->print(&continue());
} elsif (exists($env{'form.fieldname'})) {	} elsif (exists($env{'form.fieldname'})) {
Line 5854 sub addmetafield {	Line 6953 sub addmetafield {
{'metadata.'.$meta_field.'.values'=>"",	{'metadata.'.$meta_field.'.values'=>"",
'metadata.'.$meta_field.'.added'=>"$display_field",	'metadata.'.$meta_field.'.added'=>"$display_field",
'metadata.'.$meta_field.'.options'=>""},$dom,$crs);	'metadata.'.$meta_field.'.options'=>""},$dom,$crs);
$r->print('Added new Metadata Field <strong>'.$env{'form.fieldname'}."</strong> with result ".$put_result.'<br />');	$r->print(&mt('Added new Metadata Field [_1] with result [_2]',
	'<strong>'.$env{'form.fieldname'}.'</strong>',$put_result).
	'<br />');
$r->print(&continue());	$r->print(&continue());
} else {	} else {
my $fields = &get_deleted_meta_fieldnames($env{'request.course.id'});	my $fields = &get_deleted_meta_fieldnames($env{'request.course.id'});
if ($fields) {	if ($fields) {
$r->print('You may undelete previously deleted fields.<br />Check those you wish to undelete and click Undelete.<br />');	$r->print(&mt('You may undelete previously deleted fields.').
	'<br />'.
	&mt('Check those you wish to undelete and click Undelete.').
	'<br />');
$r->print('<form method="post" action="">');	$r->print('<form method="post" action="">');
foreach my $key(keys(%$fields)) {	foreach my $key(keys(%$fields)) {
$r->print('<input type="checkbox" name="undeletefield" value="'.$key.'" />'.$$fields{$key}.'<br /');	$r->print('<label><input type="checkbox" name="undeletefield" value="'.$key.'" />'.$$fields{$key}.'</label><br /');
}	}
$r->print('<input type="submit" name="undelete" value="Undelete" />');	$r->print('<input type="submit" name="undelete" value="'.&mt('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 />'.
	&mt('[_1]Or[_2] you may enter a new metadata field name.',
	'<strong>','</strong>').
	'<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="'.&mt('Add Metadata Field').'" />');
	$r->print('</form>');
}	}
$r->print('</form>');
&endSettingsScreen($r);	&endSettingsScreen($r);
}	}

Line 5896 sub setrestrictmeta {	Line 7003 sub setrestrictmeta {
&startSettingsScreen($r,'parmset',$crstype);	&startSettingsScreen($r,'parmset',$crstype);
my $key_base = $env{'course.'.$env{'request.course.id'}.'.'};	my $key_base = $env{'course.'.$env{'request.course.id'}.'.'};
my $save_field = '';	my $save_field = '';
	my %lt = &Apache::lonlocal::texthash(
	addm => 'Add Metadata Field',
	ordm => 'Order Metadata Fields',
	save => 'Save',
	);
if ($env{'form.restrictmeta'}) {	if ($env{'form.restrictmeta'}) {
foreach my $field (sort(keys(%env))) {	foreach my $field (sort(keys(%env))) {
if ($field=~m/^form.(.+)_(.+)$/) {	if ($field=~m/^form.(.+)_(.+)$/) {
Line 5934 sub setrestrictmeta {	Line 7046 sub setrestrictmeta {
my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');	my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');
# Now get possible added metadata fields	# Now get possible added metadata fields
my $added_metadata_fields = &get_added_meta_fieldnames($env{'request.course.id'});	my $added_metadata_fields = &get_added_meta_fieldnames($env{'request.course.id'});
my $row_alt = 1;
$output .= &Apache::loncommon::start_data_table();	$output .= &Apache::loncommon::start_data_table();
foreach my $field (sort(keys(%metadata_fields))) {	foreach my $field (sort(keys(%metadata_fields))) {
if ($field ne 'courserestricted') {	if ($field ne 'courserestricted') {
$row_alt = $row_alt ? 0 : 1;	$output.= &output_row($r,$field,$metadata_fields{$field});
$output.= &output_row($r, $field, $metadata_fields{$field});
}	}
}	}
my $buttons = (<<ENDButtons);	my $buttons = (<<ENDButtons);
<input type="submit" name="restrictmeta" value="Save" />	<input type="submit" name="restrictmeta" value="$lt{'save'}" />
</form><br />	</form><br />
<form method="post" action="/adm/parmset?action=addmetadata" name="form1">	<form method="post" action="/adm/parmset?action=addmetadata" name="form1">
<input type="submit" name="restrictmeta" value="Add a Metadata Field" />	<input type="submit" name="restrictmeta" value="$lt{'addm'}" />
</form>	</form>
<br />	<br />
<form method="post" action="/adm/parmset?action=ordermetadata" name="form2">	<form method="post" action="/adm/parmset?action=ordermetadata" name="form2">
<input type="submit" name="restrictmeta" value="Order Metadata Fields" />	<input type="submit" name="restrictmeta" value="$lt{'ordm'}" />
ENDButtons	ENDButtons
my $added_flag = 1;	my $added_flag = 1;
foreach my $field (sort(keys(%$added_metadata_fields))) {	foreach my $field (sort(keys(%$added_metadata_fields))) {
$row_alt = $row_alt ? 0 : 1;	$output.= &output_row($r,$field,$$added_metadata_fields{$field},$added_flag);
$output.= &output_row($r, $field, $$added_metadata_fields{$field},$added_flag, $row_alt); # FIXME: wrong parameters
}	}
$output .= &Apache::loncommon::end_data_table();	$output .= &Apache::loncommon::end_data_table();
$r->print(<<ENDenv);	$r->print(<<ENDenv);
Line 6194 ENDYESNO	Line 7303 ENDYESNO
# $issection - section or group name	# $issection - section or group name
# $realmdescription - title for the parameter level and resource (without using HTML)	# $realmdescription - title for the parameter level and resource (without using HTML)
#	#
# FIXME: remove unused fields.
#
# @param {string} $key - parameter log key	# @param {string} $key - parameter log key
# @param {string} $uname - user name	# @param {string} $uname - user name
# @param {string} $udom - user domain	# @param {string} $udom - user domain
# @param {string} $exeuser - unused
# @param {string} $exedomain - unused
# @param {boolean} $typeflag - .type log entry	# @param {boolean} $typeflag - .type log entry
# @returns {Array}	# @returns {Array}
sub components {	sub components {
my ($key,$uname,$udom,$exeuser,$exedomain,$typeflag)=@_;	my ($key,$uname,$udom,$typeflag)=@_;

if ($typeflag) {	if ($typeflag) {
$key=~s/\.type$//;	$key=~s/\.type$//;
Line 6256 my %standard_parms_types; # hash paramet	Line 7361 my %standard_parms_types; # hash paramet

# Reads parameter info from packages.tab into %standard_parms.	# Reads parameter info from packages.tab into %standard_parms.
sub load_parameter_names {	sub load_parameter_names {
open(my $config,"<$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");	open(my $config,"<","$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");
while (my $configline=<$config>) {	while (my $configline=<$config>) {
if ($configline !~ /\S/ \|\| $configline=~/^\#/) { next; }	if ($configline !~ /\S/ \|\| $configline=~/^\#/) { next; }
chomp($configline);	chomp($configline);
Line 6382 sub parm_change_log {	Line 7487 sub parm_change_log {
}	}
if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); }	if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); }
}	}
	my $numgroups = 0;
	my @groups;
	if ($env{'request.course.groups'} ne '') {
	@groups = split(/:/,$env{'request.course.groups'});
	$numgroups = scalar(@groups);
	}
foreach my $id (sort {	foreach my $id (sort {
if ($parmlog{$b}{'exe_time'} ne $parmlog{$a}{'exe_time'}) {	if ($parmlog{$b}{'exe_time'} ne $parmlog{$a}{'exe_time'}) {
return $parmlog{$b}{'exe_time'} <=>$parmlog{$a}{'exe_time'}	return $parmlog{$b}{'exe_time'} <=>$parmlog{$a}{'exe_time'}
Line 6419 sub parm_change_log {	Line 7530 sub parm_change_log {
my $typeflag = ($changed =~/\.type$/ &&	my $typeflag = ($changed =~/\.type$/ &&
!exists($parmlog{$id}{'logentry'}{$changed.'.type'}));	!exists($parmlog{$id}{'logentry'}{$changed.'.type'}));
my ($realm,$section,$parmname,$part,$what,$middle,$uname,$udom,$issection,$realmdescription)=	my ($realm,$section,$parmname,$part,$what,$middle,$uname,$udom,$issection,$realmdescription)=
&components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'},undef,undef,$typeflag);	&components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'},$typeflag);
if ($env{'request.course.sec'} ne '') {	if ($env{'request.course.sec'} ne '') {
next if (($issection ne '') && ($issection ne $env{'request.course.sec'}));	next if (($issection ne '') && (!(($issection eq $env{'request.course.sec'}) \|\|
	($numgroups && (grep(/^\Q$issection\E$/,@groups))))));
if ($uname ne '') {	if ($uname ne '') {
my $stusection = &Apache::lonnet::getsection($uname,$udom,$env{'request.course.id'});	my $stusection = &Apache::lonnet::getsection($uname,$udom,$env{'request.course.id'});
next if (($stusection ne '-1') && ($stusection ne $env{'request.course.sec'}));	next if (($stusection ne '-1') && ($stusection ne $env{'request.course.sec'}));
Line 6455 sub parm_change_log {	Line 7567 sub parm_change_log {
$parmitem = &mt($parmitem);	$parmitem = &mt($parmitem);
$output .= &mt('Type: [_1]',$parmitem);	$output .= &mt('Type: [_1]',$parmitem);
} else {	} else {
	my $toolsymb;
	if ($middle =~ /ext\.tool$/) {
	$toolsymb = $middle;
	}
my ($level,@all)=&parmval_by_symb($what,$middle,	my ($level,@all)=&parmval_by_symb($what,$middle,
&Apache::lonnet::metadata($middle,$what),	&Apache::lonnet::metadata($middle,$what,$toolsymb),
$uname,$udom,$issection,$issection,$courseopt);	$uname,$udom,$issection,$issection,$courseopt);
my $showvalue = $value;	my $showvalue = $value;
if ($istype{$parmname} eq '') {	if ($istype{$parmname} eq '') {

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

Removed from v.1.579
changed lines
	Added in v.1.617