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.474 and 1.518

version 1.474, 2009/10/23 18:49:10	version 1.518, 2011/12/08 21:37:46
Line 137 javascript function 'pjump'.	Line 137 javascript function 'pjump'.

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

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

Input: See list below:	Input: See list below:

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

=item * B<typep> : hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.	=item * B<env{'user.domain'}> : Domain of current user.

=item * B<keyp> : hash, id->key list, will contain a comma separated list of the meta-data keys available for the given id	=item * b<env{"request.course.fn"} : Course

=item * B<allparms> : hash, name of parameter->display value (what is the display value?)	Outputs: See list below:

=item * B<allparts> : hash, part identification->text representation of part, where the text representation is "[Part $part]"	=item * B<ids> (out) : An array that will contain all of the ids in the course.

=item * B<allkeys> : hash, full key to part->display value (what's display value?)	=item * B<typep>(out) : hash, id->type, where "type" contains the extension of the file, thus, I<problem exam quiz assess survey form>.

=item * B<allmaps> : hash, ???	=item * B<keyp> (out) : hash, id->key list, will contain a comma separated list of the meta-data keys available for the given id

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

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

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

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

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

	=item * B<maptitles>

	=item * B<uris>

	=item * B<keyorder>

	=item * B<defkeytype>

=item isdateparm()	=item isdateparm()

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

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

Returns: nothing	Returns: nothing

Variables used (guessed by Jeremy):	Variables used (guessed by Jeremy):
Line 248 Variables used (guessed by Jeremy):	Line 256 Variables used (guessed by Jeremy):

=item parse_key()	=item parse_key()

=item check_cloners() :

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

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

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

=item change_clone() :

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

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


=item check_cloners()

=item change_clone()

=item header()	=item header()

Output html header for page	Output html header for page
Line 333 use Apache::lonlocal;	Line 310 use Apache::lonlocal;
use Apache::lonnavmaps;	use Apache::lonnavmaps;
use Apache::longroup;	use Apache::longroup;
use Apache::lonrss;	use Apache::lonrss;
	use HTML::Entities;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);


	sub startSettingsScreen {
	my ($r,$mode)=@_;

	$r->print("\n".'<ul class="LC_TabContentBigger" id="main">');
	$r->print("\n".'<li'.($mode eq 'coursepref'?' class="active"':'').'><a href="/adm/courseprefs"><b>    '.
	&mt('Course Settings').
	'    </b></a></li>');

	$r->print("\n".'<li'.($mode eq 'parmset'?' class="active"':'').'><a href="/adm/parmset"><b>'.
	&mt('Content and Problem Settings').'</b></a></li>');
	$r->print("\n".'</ul>'."\n");
	$r->print('<div class="LC_Box" style="clear:both;margin:0;"><div id="maincoursedoc" style="margin:0 0;padding:0 0;"><div class="LC_ContentBox" id="mainCourseDocuments" style="display: block;">');
	}

	sub endSettingsScreen {
	my ($r)=@_;
	$r->print('</div></div></div>');
	}



sub parmval {	sub parmval {
my ($what,$id,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;	my ($what,$id,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;
return &parmval_by_symb($what,&symbcache($id),$def,$uname,$udom,$csec,	return &parmval_by_symb($what,&symbcache($id),$def,$uname,$udom,$csec,
Line 814 sub valout {	Line 813 sub valout {
&date_sanity_info($value);	&date_sanity_info($value);
} else {	} else {
$result = $value;	$result = $value;
	$result=~s/\,/\, /gs;
$result = &HTML::Entities::encode($result,'"<>&');	$result = &HTML::Entities::encode($result,'"<>&');
}	}
}	}
Line 855 sub page_js {	Line 855 sub page_js {
return(<<ENDJS);	return(<<ENDJS);
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
function pclose() {
parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
"height=350,width=350,scrollbars=no,menubar=no");
parmwin.close();
}

$pjump_def	$pjump_def

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

}	}

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

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

if ((($env{'form.command'} eq 'set') && ($env{'form.url'})	if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {	&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {
Line 922 sub startpage {	Line 919 sub startpage {
{'add_entries' => \%loaditems,});	{'add_entries' => \%loaditems,});
my $breadcrumbs =	my $breadcrumbs =
&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');	&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');
	my $escfilter=&Apache::lonhtmlcommon::entity_encode($env{'form.filter'});
	my $escpart=&Apache::lonhtmlcommon::entity_encode($env{'form.part'});
	$r->print($start_page.$breadcrumbs);
	&startSettingsScreen($r,'parmset');
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
$start_page
$breadcrumbs
<form method="post" action="/adm/parmset?action=settable" name="parmform">	<form method="post" action="/adm/parmset?action=settable" name="parmform">
<input type="hidden" value="" name="pres_value" />	<input type="hidden" value="" name="pres_value" />
<input type="hidden" value="" name="pres_type" />	<input type="hidden" value="" name="pres_type" />
<input type="hidden" value="" name="pres_marker" />	<input type="hidden" value="" name="pres_marker" />
<input type="hidden" value="1" name="prevvisit" />	<input type="hidden" value="1" name="prevvisit" />
	<input type="hidden" value="$escfilter" name="filter" />
	<input type="hidden" value="$escpart" name="part" />
ENDHEAD	ENDHEAD
}	}

Line 962 sub print_row {	Line 963 sub print_row {

if ($parmlev eq 'full') {	if ($parmlev eq 'full') {
$r->print('<td style="background-color:'.$defbgtwo.';" align="center">'	$r->print('<td style="background-color:'.$defbgtwo.';" align="center">'
.$$part{$which}.'</td>');	.($$part{$which} eq '0'?'0 ('.&mt('default').')':$$part{$which}).'</td>');
} else {	} else {
$parm=~s\|\[.*\]\s\|\|g;	$parm=~s\|\[.*\]\s\|\|g;
}	}
Line 1161 sub extractResourceInformation {	Line 1162 sub extractResourceInformation {
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
my @allres=$navmap->retrieveResources(undef,undef,1,undef,1);	my @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);
if ($mapid eq '0') { next; }	if ($mapid eq '0') { next; }
$$ids[$#$ids+1]=$id;	$$ids[$#$ids+1]=$id;
my $srcf=$resource->src();	my $srcf=$resource->src();
$srcf=~/\.(\w+)$/;	$srcf=~/\.(\w+)$/;
$$typep{$id}=$1;	$$typep{$id}=$1;
$$keyp{$id}='';	$$keyp{$id}='';
$$uris{$id}=$srcf;	$$uris{$id}=$srcf;
foreach my $key (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
next if ($key!~/^parameter_/);	foreach my $key (split(/\,/,&Apache::lonnet::metadata($srcf,'allpossiblekeys'))) {
	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') 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');
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');
$parmdis = $display;	$parmdis = $display;
$parmdis =~ s/\s\[Part.$//g;	$parmdis =~ s/\s\[Part.$//g;
} else {	} else {
$parmdis = &mt($display);	$parmdis = &mt($display);
}	}
$$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');
}	}
}	}

#	#
# 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');
$$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
#	#
if ($$keyp{$id}) {	if ($$keyp{$id}) {
$$keyp{$id}.=','.$key;	$$keyp{$id}.=','.$key;
} else {	} else {
$$keyp{$id}=$key;	$$keyp{$id}=$key;
}	}
#	#
# Put in order	# Put in order
#	#
unless ($$keyorder{$key}) {	unless ($$keyorder{$key}) {
$$keyorder{$key}=$keyordercnt;	$$keyorder{$key}=$keyordercnt;
$keyordercnt++;	$keyordercnt++;
	}
}	}
}


if (!exists($$mapp{$mapid})) {	if (!exists($$mapp{$mapid})) {
$$mapp{$id}=	$$mapp{$id}=
&Apache::lonnet::declutter($resource->enclosing_map_src());	&Apache::lonnet::declutter($resource->enclosing_map_src());
$$mapp{$mapid}=$$mapp{$id};	$$mapp{$mapid}=$$mapp{$id};
$$allmaps{$mapid}=$$mapp{$id};	$$allmaps{$mapid}=$$mapp{$id};
if ($mapid eq '1') {	if ($mapid eq '1') {
$$maptitles{$mapid}=&mt('Main Course Documents');	$$maptitles{$mapid}=&mt('Main Course Documents');
	} else {
	$$maptitles{$mapid}=&Apache::lonnet::gettitle($$mapp{$id});
	}
	$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
	$$symbp{$mapid}=$$mapp{$id}.'___(all)';
} else {	} else {
$$maptitles{$mapid}=	$$mapp{$id} = $$mapp{$mapid};
&Apache::lonnet::gettitle($$mapp{$id});
}	}
$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};	$$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf);
$$symbp{$mapid}=$$mapp{$id}.'___(all)';
} else {
$$mapp{$id} = $$mapp{$mapid};
}
$$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf);
}	}
}	}

Line 1247 sub isdateparm {	Line 1248 sub isdateparm {
}	}

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

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

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

for (i=0; i<document.forms.parmform.elements.length; i++) {	for (i=0; i<document.forms.parmform.elements.length; i++) {
ele = document.forms.parmform.elements[i];	ele = document.forms.parmform.elements[i];
Line 1323 sub parmmenu {	Line 1323 sub parmmenu {
checkdates();	checkdates();
checkthis('weight','pscat');	checkthis('weight','pscat');
checkthis('maxtries','pscat');	checkthis('maxtries','pscat');
	checkthis('type','pscat');
	checkthis('problemstatus','pscat');
}	}

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

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

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

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

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

	$r->print('<hr />');
&shortCuts($r,$allparms,$pscat,$keyorder);	&shortCuts($r,$allparms,$pscat,$keyorder);
	$r->print('<hr />');
$r->print(&Apache::lonhtmlcommon::row_closure(1));
}	}
# return a hash	# return a hash
sub categories {	sub categories {
Line 1398 sub lookUpTableParameter {	Line 1360 sub lookUpTableParameter {
'contentopen' => 'time_settings',	'contentopen' => 'time_settings',
'contentclose' => 'time_settings',	'contentclose' => 'time_settings',
'discussend' => 'time_settings',	'discussend' => 'time_settings',
	'printopendate' => 'time_settings',
	'printclosedate' => 'time_settings',
'weight' => 'grading',	'weight' => 'grading',
'handgrade' => 'grading',	'handgrade' => 'grading',
'maxtries' => 'tries',	'maxtries' => 'tries',
'hinttries' => 'tries',	'hinttries' => 'tries',
	'randomizeontries' => 'tries',
'type' => 'problem_appearance',	'type' => 'problem_appearance',
'problemstatus' => 'problem_appearance',	'problemstatus' => 'problem_appearance',
'display' => 'problem_appearance',	'display' => 'problem_appearance',
Line 1428 sub lookUpTableParameter {	Line 1393 sub lookUpTableParameter {
'acc' => 'misc',	'acc' => 'misc',
'maxcollaborators' => 'misc',	'maxcollaborators' => 'misc',
'scoreformat' => 'misc',	'scoreformat' => 'misc',
	'lenient' => 'grading',

);	);
}	}
Line 1495 sub parmboxes {	Line 1461 sub parmboxes {
'slots' => [],	'slots' => [],
'file_submission' => [],	'file_submission' => [],
'misc' => [],	'misc' => [],
);	);

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

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

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

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

sub partmenu {	sub partmenu {
Line 1708 function group_or_section(caller) {	Line 1654 function group_or_section(caller) {
# This function shows on table Mode the available Parameters for the selected Resources	# This function shows on table Mode the available Parameters for the selected Resources
#	#
sub displaymenu {	sub displaymenu {
my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;	my ($r,$allparms,$pscat,$psprt,$keyorder)=@_;
$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));

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

}	}

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

	# Display row: "All Maps or Folders"
	$r->print(
	&Apache::loncommon::start_data_table_row()
	.'<td>'
	.'<label>'
	.'<input type="radio" name="pschp"'
	);
	$r->print(' checked="checked"') if ($pschp eq 'all' \|\| !$pschp);
	$r->print(
	' value="all" /> '.$icon.' '
	.&mt('All Maps or Folders')
	.'</label>'
	.'<hr /></td>'
	.&Apache::loncommon::end_data_table_row()
	);

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

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

$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
	$r->print(&Apache::loncommon::end_scrollbox());
}	}
}	}

	# Build up the select Box to choose if your parameter specification should work for the resource, map/folder or the course level
	# The value of default selection in the select box is set by the value that is given by the argument in $parmlev.
sub levelmenu {	sub levelmenu {
my ($r,$alllevs,$parmlev)=@_;	my ($r,$alllevs,$parmlev)=@_;

Line 1958 sub standardkeyorder {	Line 1942 sub standardkeyorder {
'parameter_0_sig' => 17,	'parameter_0_sig' => 17,
'parameter_0_turnoffunit' => 18,	'parameter_0_turnoffunit' => 18,
'parameter_0_discussend' => 19,	'parameter_0_discussend' => 19,
'parameter_0_discusshide' => 20);	'parameter_0_discusshide' => 20,
	'parameter_0_printopendate' => 21,
	'parameter_0_printclosedate' => 22);
}	}


Line 1966 sub assessparms {	Line 1952 sub assessparms {

my $r=shift;	my $r=shift;



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

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

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

Line 1994 sub assessparms {	Line 1980 sub assessparms {

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

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

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

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

Line 2018 sub assessparms {	Line 2006 sub assessparms {

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


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

my $pssymb='';	my $pssymb='';
my $parmlev='';	my $parmlev='';
Line 2087 sub assessparms {	Line 2078 sub assessparms {
$message="\n<p>\n".&mt("Full Name").": ".	$message="\n<p>\n".&mt("Full Name").": ".
$name{'firstname'}.' '.$name{'middlename'}.' '	$name{'firstname'}.' '.$name{'middlename'}.' '
.$name{'lastname'}.' '.$name{'generation'}.	.$name{'lastname'}.' '.$name{'generation'}.
"<br />\n".&mt('ID').": ".$name{'id'}.'<p>';	"<br />\n".&mt('Student/Employee ID').": ".$name{'id'}.'<p>';
}	}
@usersgroups = &Apache::lonnet::get_users_groups(	@usersgroups = &Apache::lonnet::get_users_groups(
$udom,$uname,$env{'request.course.id'});	$udom,$uname,$env{'request.course.id'});
Line 2115 sub assessparms {	Line 2106 sub assessparms {
my @markers=split(/\&\&\&/,$env{'form.pres_marker'});	my @markers=split(/\&\&\&/,$env{'form.pres_marker'});
my @values=split(/\&\&\&/,$env{'form.pres_value'});	my @values=split(/\&\&\&/,$env{'form.pres_value'});
my @types=split(/\&\&\&/,$env{'form.pres_type'});	my @types=split(/\&\&\&/,$env{'form.pres_type'});
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
	my ($got_chostname,$chostname,$cmajor,$cminor);
	my $totalstored = 0;


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

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

foreach ('tolerance','date_default','date_start','date_end',	foreach ('tolerance','date_default','date_start','date_end',
'date_interval','int','float','string') {	'date_interval','int','float','string') {
Line 2188 function parmsel_show() {	Line 2207 function parmsel_show() {
// ]]>	// ]]>
</script>	</script>
ENDPARMSELSCRIPT	ENDPARMSELSCRIPT
my $parmselhiddenstyle=' style="display:none"';
if($env{'form.hideparmsel'} eq 'hidden') {
$r->print('<div id="parmsel"'.$parmselhiddenstyle.'>');
} else {
$r->print('<div id="parmsel">');
}


# Display Unit 1 "General Parameters"
if (!$pssymb) {	if (!$pssymb) {
$r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('General Parameters')));	my $parmselhiddenstyle=' style="display:none"';
	if($env{'form.hideparmsel'} eq 'hidden') {
	$r->print('<div id="parmsel"'.$parmselhiddenstyle.'>');
	} else {
	$r->print('<div id="parmsel">');
	}

	# Step 1
	$r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification')));
$r->print(<<COURSECONTENTSCRIPT);	$r->print(<<COURSECONTENTSCRIPT);
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA[
Line 2220 COURSECONTENTSCRIPT	Line 2239 COURSECONTENTSCRIPT

$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
	$r->print(&Apache::lonhtmlcommon::row_closure());
	&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);
	$r->print(&Apache::lonhtmlcommon::row_closure());
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
	&partmenu($r,\%allparts,\@psprt);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print('<div id="mapmenu">');
	# Step 2
	$r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification')));
	&displaymenu($r,\%allparms,\@pscat,\@psprt,\%keyorder);

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

	# Update Display Button
	$r->print('<p>'
	.'<input type="submit" name="dis"'
	.' value="'.&mt('Update Display').'" />'
	.'<input type="hidden" name="hideparmsel" value="hidden" />'
	.'</p>');
$r->print('</div>');	$r->print('</div>');
#Display Unit 2 "Select Parameter"
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);	# Offer link to display parameter selection again
	$r->print('<p id="parmsellink"');
	if ($env{'form.hideparmsel'} ne 'hidden') {
	$r->print($parmselhiddenstyle);
	}
	$r->print('>'
	.'<a href="javascript:parmsel_show()">'
	.&mt('Change Parameter Selection')
	.'</a>'
	.'</p>');
} else {	} else {
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);	$r->print();
	# parameter screen for a single resource.
	my ($map,$iid,$resource)=&Apache::lonnet::decode_symb($pssymb);
my $title = &Apache::lonnet::gettitle($pssymb);	my $title = &Apache::lonnet::gettitle($pssymb);
$r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource).	$r->print(&mt('Specific Resource: [_1] ([_2])',
	$title,'<span class="LC_filename">'.$resource.'</span>').
'<input type="hidden" value="'.$pssymb.'" name="symb" />'.	'<input type="hidden" value="'.$pssymb.'" name="symb" />'.
'<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.	'<br />');
($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');	$r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('Additional Display Specification (optional)')));
}	$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Selection')));	&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::row_closure(1));
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);	$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print('<p>'
$r->print(&Apache::lonhtmlcommon::end_pick_box());

# parm selection is shown: display parm update button
$r->print('<p>'
.'<input type="submit" name="dis"'	.'<input type="submit" name="dis"'
.' value="'.&mt('Update Parameter Display').'" />'	.' value="'.&mt('Update Display').'" />'
.'<input type="hidden" name="hideparmsel" value="hidden" />'	.'<input type="hidden" name="hideparmsel" value="hidden" />'
.'</p>'	.'</p>');
);

$r->print('</div>');
# ----- End Parameter Selection

# Offer link to display parameter selection again
$r->print('<p id="parmsellink"');
if($env{'form.hideparmsel'} ne 'hidden') {
$r->print($parmselhiddenstyle);
}	}
$r->print('>'
.'<a href="javascript:parmsel_show()">'	# ----- End Parameter Selection
.&mt('Change Parameter Selection')
.'</a>'
.'</p>'
);

# Display Messages	# Display Messages
$r->print('<div>'.$message.'</div>');	$r->print('<div>'.$message.'</div>');
Line 2286 COURSECONTENTSCRIPT	Line 2318 COURSECONTENTSCRIPT
my $csudom=$env{'user.domain'};	my $csudom=$env{'user.domain'};

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

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

Line 2357 ENDTABLEHEADFOUR	Line 2394 ENDTABLEHEADFOUR
}	}

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

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

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

unless ($firstrow) {	unless ($firstrow) {
$r->print('<tr>');	$r->print('<tr>');
} else {	} else {
Line 2461 ENDTABLEHEADFOUR	Line 2507 ENDTABLEHEADFOUR
}	}
} # end foreach ids	} # end foreach ids
# -------------------------------------------------- End entry for one resource	# -------------------------------------------------- End entry for one resource
$r->print('</table>');	$r->print(&Apache::loncommon::end_data_table);
} # end of full	} # end of full
#--------------------------------------------------- Entry for parm level map	#--------------------------------------------------- Entry for parm level map
if ($parmlev eq 'map') {	if ($parmlev eq 'map') {
Line 2677 ENDMAPONE	Line 2723 ENDMAPONE
);	);
} # end of $parmlev eq general	} # end of $parmlev eq general
}	}
$r->print('</form>'.&Apache::loncommon::end_page());	$r->print('</form>');
	&endSettingsScreen($r);
	$r->print(&Apache::loncommon::end_page());
} # end sub assessparms	} # end sub assessparms

##################################################	##################################################
Line 2739 sub storedata {	Line 2787 sub storedata {
undef %newdata;	undef %newdata;
my @deldata=();	my @deldata=();
undef @deldata;	undef @deldata;
foreach (keys %env) {	my ($got_chostname,$chostname,$cmajor,$cminor);
if ($_=~/^form\.([a-z]+)\_(.+)$/) {	foreach my $key (keys(%env)) {
	if ($key =~ /^form\.([a-z]+)\_(.+)$/) {
my $cmd=$1;	my $cmd=$1;
my $thiskey=$2;	my $thiskey=$2;
my ($tuname,$tudom)=&extractuser($thiskey);	my ($tuname,$tudom)=&extractuser($thiskey);
Line 2749 sub storedata {	Line 2798 sub storedata {
$tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;	$tkey=~s/\.\[useropt\:$tuname\:$tudom\]\./\./;
}	}
if ($cmd eq 'set' \|\| $cmd eq 'datepointer' \|\| $cmd eq 'dateinterval') {	if ($cmd eq 'set' \|\| $cmd eq 'datepointer' \|\| $cmd eq 'dateinterval') {
my ($data, $typeof, $text);	my ($data, $typeof, $text, $name);
if ($cmd eq 'set') {	if ($cmd eq 'set') {
$data=$env{$_};	$data=$env{$key};
$typeof=$env{'form.typeof_'.$thiskey};	$typeof=$env{'form.typeof_'.$thiskey};
$text = &mt('Saved modified parameter for');	$text = &mt('Saved modified parameter for');
	if ($typeof eq 'string_questiontype') {
	$name = 'type';
	} elsif ($typeof eq 'string_lenient') {
	$name = 'lenient';
	}
	if ($name ne '') {
	my ($needsrelease,$needsnewer);
	$needsrelease = $Apache::lonnet::needsrelease{"parameter:$name:$data"};
	if ($needsrelease) {
	unless ($got_chostname) {
	($chostname,$cmajor,$cminor)=&parameter_release_vars();
	$got_chostname = 1;
	}
	$needsnewer = &parameter_releasecheck($name,$data,
	$needsrelease,
	$chostname,$cmajor,
	$cminor);
	}
	if ($needsnewer) {
	$r->print('<br />'.&oldversion_warning($name,$data,
	$chostname,$cmajor,
	$cminor,$needsrelease));
	next;
	}
	}
} elsif ($cmd eq 'datepointer') {	} elsif ($cmd eq 'datepointer') {
$data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});	$data=&Apache::lonhtmlcommon::get_date_from_form($env{$key});
$typeof=$env{'form.typeof_'.$thiskey};	$typeof=$env{'form.typeof_'.$thiskey};
$text = &mt('Saved modified date for');	$text = &mt('Saved modified date for');
} elsif ($cmd eq 'dateinterval') {	} elsif ($cmd eq 'dateinterval') {
Line 2984 sub listdata {	Line 3058 sub listdata {
$$resourcedata{$thiskey}));	$$resourcedata{$thiskey}));
} elsif ($thistype =~ m/^string/) {	} elsif ($thistype =~ m/^string/) {
$r->print(&string_selector($thistype,$thiskey,	$r->print(&string_selector($thistype,$thiskey,
$$resourcedata{$thiskey}));	$$resourcedata{$thiskey},$name));
} else {	} else {
$r->print(&default_selector($thiskey,$$resourcedata{$thiskey}));	$r->print(&default_selector($thiskey,$$resourcedata{$thiskey}));
}	}
Line 3010 sub date_interval_selector {	Line 3084 sub date_interval_selector {
my %select = ((map {$_ => $_} (0..$max)),	my %select = ((map {$_ => $_} (0..$max)),
'select_form_order' => [0..$max]);	'select_form_order' => [0..$max]);
$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,	$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,
%select);	\%select);
$result .= ' '.&mt($name);	$result .= ' '.&mt($name);
}	}
$result .= '<input type="hidden" name="dateinterval_'.$thiskey.'" />';	$result .= '<input type="hidden" name="dateinterval_'.$thiskey.'" />';
Line 3049 my %strings =	Line 3123 my %strings =
[ 'answer', 'Yes, and show correct answer if they exceed the maximum number of tries.' ],	[ 'answer', 'Yes, and show correct answer if they exceed the maximum number of tries.' ],
[ 'no', 'No, don\'t show correct/incorrect feedback.' ],	[ 'no', 'No, don\'t show correct/incorrect feedback.' ],
[ 'no_feedback_ever', 'No, show no feedback at all.' ]],	[ 'no_feedback_ever', 'No, show no feedback at all.' ]],
	'string_questiontype'
	=> [[ 'problem', 'Standard Problem'],
	[ 'survey', 'Survey'],
	[ 'anonsurveycred', 'Anonymous Survey (credit for submission)'],
	[ 'exam', 'Exam'],
	[ 'anonsurvey', 'Anonymous Survey'],
	[ 'randomizetry', 'New Randomization Each N Tries (default N=1)'],
	[ 'practice', 'Practice'],
	[ 'surveycred', 'Survey (credit for submission)']],
	'string_lenient'
	=> [['yes', 'Yes' ],
	[ 'no', 'No' ],
	[ 'default', 'Default - only bubblesheet grading is lenient' ]]
);	);

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

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

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

	my %skiptype;
	if (($thistype eq 'string_questiontype') \|\|
	($thistype eq 'string_lenient')) {
	my ($got_chostname,$chostname,$cmajor,$cminor);
	foreach my $possibilities (@{ $strings{$thistype} }) {
	next unless (ref($possibilities) eq 'ARRAY');
	my ($parmval, $description) = @{ $possibilities };
	my $needsrelease=$Apache::lonnet::needsrelease{"parameter:$name:$parmval"};
	if ($needsrelease) {
	unless ($got_chostname) {
	($chostname,$cmajor,$cminor)=&parameter_release_vars();
	$got_chostname = 1;
	}
	my $needsnewer=&parameter_releasecheck($name,$parmval,$needsrelease,
	$chostname,$cmajor,
	$cminor);
	if ($needsnewer) {
	$skiptype{$parmval} = 1;
	}
	}
	}
	}


my $result;	my $result;
foreach my $possibilities (@{ $strings{$thistype} }) {	my $numinrow = 3;
my ($name, $description) = @{ $possibilities };	if ($thistype eq 'string_problemstatus') {
$result .= '<label><input type="radio" name="set_'.$thiskey.	$numinrow = 2;
'" value="'.$name.'"';	} elsif ($thistype eq 'string_questiontype') {
if ($showval eq $name) {	if (keys(%skiptype) > 0) {
$result .= ' checked="checked"';	$numinrow = 4;
	}
	}
	my $rem;
	if (ref($strings{$thistype}) eq 'ARRAY') {
	my $i=0;
	foreach my $possibilities (@{ $strings{$thistype} }) {
	next unless (ref($possibilities) eq 'ARRAY');
	my ($name, $description) = @{ $possibilities };
	next if ($skiptype{$name});
	$rem = $i%($numinrow);
	if ($rem == 0) {
	if ($i > 0) {
	$result .= '</tr>';
	}
	$result .= '<tr>';
	}
	$result .= '<td class="LC_left_item">'.
	'<span class="LC_nobreak"><label>'.
	'<input type="radio" name="set_'.$thiskey.
	'" value="'.$name.'"';
	if ($showval eq $name) {
	$result .= ' checked="checked"';
	}
	$result .= ' />'.&mt($description).'</label></span></td>';
	$i++;
	}
	$rem = @{ $strings{$thistype} }%($numinrow);
	my $colsleft = $numinrow - $rem;
	if ($colsleft > 1 ) {
	$result .= '<td colspan="'.$colsleft.'" class="LC_left_item">'.
	' </td>';
	} elsif ($colsleft == 1) {
	$result .= '<td class="LC_left_item"> </td>';
	}
	$result .= '</tr>';
}	}
$result .= ' />'.&mt($description).'</label> ';	if ($result) {
	$result = '<table border="0">'.$result.'</table>';
}	}
return $result;	return $result;
}	}
Line 3116 sub newoverview {	Line 3270 sub newoverview {
text=>"Overview Mode"});	text=>"Overview Mode"});
my $start_page = &Apache::loncommon::start_page('Set Parameters');	my $start_page = &Apache::loncommon::start_page('Set Parameters');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
	$r->print($start_page.$breadcrumbs);
	&startSettingsScreen($r,'parmset');
$r->print(<<ENDOVER);	$r->print(<<ENDOVER);
$start_page
$breadcrumbs
<form method="post" action="/adm/parmset?action=newoverview" name="parmform">	<form method="post" action="/adm/parmset?action=newoverview" name="parmform">
ENDOVER	ENDOVER
my @ids=();	my @ids=();
Line 3144 ENDOVER	Line 3298 ENDOVER

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

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

my @selected_sections =	my @selected_sections =
&Apache::loncommon::get_env_multiple('form.Section');	&Apache::loncommon::get_env_multiple('form.Section');
Line 3172 ENDOVER	Line 3327 ENDOVER
\%keyorder,\%defkeytype);	\%keyorder,\%defkeytype);

if (grep {$_ eq 'all'} (@psprt)) {	if (grep {$_ eq 'all'} (@psprt)) {
@psprt = keys(%allparts);	@psprt = keys(%allparts);
}	}
# Menu to select levels, etc	# Menu to select levels, etc

#$r->print('<table id="LC_parm_overview_scope">
# <tr><td class="LC_parm_overview_level_menu">');
$r->print('<div class="LC_Box">');	$r->print('<div class="LC_Box">');
#$r->print('<h2 class="LC_hcell">Step 1</h2>');	#$r->print('<h2 class="LC_hcell">Step 1</h2>');
$r->print('<div>');	$r->print('<div>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
if ($parmlev ne 'general') {	if ($parmlev ne 'general') {
#$r->print('<td class="LC_parm_overview_map_menu">');
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure());
&mapmenu($r,\%allmaps,$pschp,\%maptitles);	&mapmenu($r,\%allmaps,$pschp,\%maptitles,\%symbp);
#$r->print('</td>');
}	}
$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('</td></tr></table>');

#$r->print('<table id="LC_parm_overview_controls">
# <tr><td class="LC_parm_overview_parm_selectors">');
$r->print('<div class="LC_Box">');	$r->print('<div class="LC_Box">');
$r->print('<div>');	$r->print('<div>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	&displaymenu($r,\%allparms,\@pscat,\%keyorder);
&parmmenu($r,\%allparms,\@pscat,\%keyorder);
$r->print(&Apache::lonhtmlcommon::end_pick_box());
&parmboxes($r,\%allparms,\@pscat,\%keyorder);
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
#$r->print('</td><td class="LC_parm_overview_restrictions">'.	$r->print('<table>'.
$r->print('<table>'.
'<tr><th>'.&mt('Parts').'</th><th>'.&mt('Section(s)').	'<tr><th>'.&mt('Parts').'</th><th>'.&mt('Section(s)').
'</th><th>'.&mt('Group(s)').'</th></tr><tr><td>');	'</th><th>'.&mt('Group(s)').'</th></tr><tr><td>');
&partmenu($r,\%allparts,\@psprt);	&partmenu($r,\%allparts,\@psprt);
Line 3240 ENDOVER	Line 3384 ENDOVER

if (($env{'form.store'}) \|\| ($env{'form.dis'})) {	if (($env{'form.store'}) \|\| ($env{'form.dis'})) {

if ($env{'form.store'}) { &storedata($r,$crs,$dom); }	if ($env{'form.store'}) { &storedata($r,$crs,$dom); }

# Read modified data	# Read modified data

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

# List data	# List data

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

sub secgroup_lister {	sub secgroup_lister {
Line 3299 sub overview {	Line 3445 sub overview {
text=>"Overview Mode"});	text=>"Overview Mode"});
my $start_page=&Apache::loncommon::start_page('Modify Parameters');	my $start_page=&Apache::loncommon::start_page('Modify Parameters');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
$r->print(<<ENDOVER);	$r->print($start_page.$breadcrumbs);
$start_page	&startSettingsScreen($r,'parmset');
$breadcrumbs	$r->print('<form method="post" action="/adm/parmset?action=setoverview" name="parmform">');
<form method="post" action="/adm/parmset?action=setoverview" name="parmform">
ENDOVER
# Store modified	# Store modified

&storedata($r,$crs,$dom);	&storedata($r,$crs,$dom);
Line 3408 ENDOVER	Line 3553 ENDOVER
}	}
$r->print(&Apache::loncommon::end_data_table().'<p>'.	$r->print(&Apache::loncommon::end_data_table().'<p>'.
'<input type="submit" value="'.&mt('Delete Selected').'" />'.	'<input type="submit" value="'.&mt('Delete Selected').'" />'.
'</p></form>'.	'</p></form>');
&Apache::loncommon::end_page());	&endSettingsScreen($r);
	$r->print(&Apache::loncommon::end_page());
}	}

sub date_shift_one {	sub date_shift_one {
Line 3421 sub date_shift_one {	Line 3567 sub date_shift_one {
text=>"Shifting Dates"});	text=>"Shifting Dates"});
my $start_page=&Apache::loncommon::start_page('Shift Dates');	my $start_page=&Apache::loncommon::start_page('Shift Dates');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
$r->print(<<ENDOVER);	$r->print($start_page.$breadcrumbs);
$start_page	&startSettingsScreen($r,'parmset');
$breadcrumbs
ENDOVER
$r->print('<form name="shiftform" method="post">'.	$r->print('<form name="shiftform" method="post">'.
'<table><tr><td>'.&mt('Currently set date:').'</td><td>'.	'<table><tr><td>'.&mt('Currently set date:').'</td><td>'.
&Apache::lonlocal::locallocaltime($env{'form.timebase'}).'</td></tr>'.	&Apache::lonlocal::locallocaltime($env{'form.timebase'}).'</td></tr>'.
'<tr><td>'.&mt('Shifted date:').'</td><td>'.	'<tr><td>'.&mt('Shifted date:').'</td><td>'.
&Apache::lonhtmlcommon::date_setter('shiftform',	&Apache::lonhtmlcommon::dshowerfuck.net
	ate_setter('shiftform',
'timeshifted',	'timeshifted',
$env{'form.timebase'},,	$env{'form.timebase'},,
'').	'').
Line 3437 ENDOVER	Line 3582 ENDOVER
'<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="'.&mt('Shift all dates accordingly').'" /></form>');
	&endSettingsScreen($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

Line 3448 sub date_shift_two {	Line 3594 sub date_shift_two {
text=>"Shifting Dates"});	text=>"Shifting Dates"});
my $start_page=&Apache::loncommon::start_page('Shift Dates');	my $start_page=&Apache::loncommon::start_page('Shift Dates');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
$r->print(<<ENDOVER);	$r->print($start_page.$breadcrumbs);
$start_page	&startSettingsScreen($r,'parmset');
$breadcrumbs
ENDOVER
my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');	my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');
$r->print(&mt('Shifting all dates such that [_1] becomes [_2]',	$r->print(&mt('Shifting all dates such that [_1] becomes [_2]',
&Apache::lonlocal::locallocaltime($env{'form.timebase'}),	&Apache::lonlocal::locallocaltime($env{'form.timebase'}),
&Apache::lonlocal::locallocaltime($timeshifted)));	&Apache::lonlocal::locallocaltime($timeshifted)));
my $delta=$timeshifted-$env{'form.timebase'};	my $delta=$timeshifted-$env{'form.timebase'};
&dateshift($delta);	&dateshift($delta);
	&endSettingsScreen($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

Line 3501 sub parse_key {	Line 3646 sub parse_key {
}	}



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

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

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

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



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


Line 3628 sub print_main_menu {	Line 3656 sub print_main_menu {
my ($r,$parm_permission)=@_;	my ($r,$parm_permission)=@_;
#	#
$r->print(&header());	$r->print(&header());
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Manager'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Content and Problem Settings'));
	&startSettingsScreen($r,'parmset');
$r->print(<<ENDMAINFORMHEAD);	$r->print(<<ENDMAINFORMHEAD);
<form method="post" enctype="multipart/form-data"	<form method="post" enctype="multipart/form-data"
action="/adm/parmset" name="studentform">	action="/adm/parmset" name="studentform">
Line 3639 ENDMAINFORMHEAD	Line 3668 ENDMAINFORMHEAD
my $vgr = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});	my $vgr = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
my $mgr = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});	my $mgr = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});

	my $crstype = &Apache::loncommon::course_type();
	my $lc_crstype = lc($crstype);

my @menu =	my @menu =
( { categorytitle=>'Settings for this Course',	( { categorytitle=>"Content Settings for this $crstype",
items => [	items => [
{ linktext => 'Course Configuration',
url => '/adm/courseprefs?origin=params',
permission => $parm_permission,
linktitle =>'Edit course configuration.' ,
icon => 'preferences-desktop-remote-desktop.png' ,
#help => 'Course_Environment',
},
{ linktext => 'Portfolio Metadata',	{ linktext => 'Portfolio Metadata',
url => '/adm/parmset?action=setrestrictmeta',	url => '/adm/parmset?action=setrestrictmeta',
permission => $parm_permission,	permission => $parm_permission,
linktitle => 'Restrict metadata for this course.' ,	linktitle => "Restrict metadata for this $lc_crstype." ,
icon =>'contact-new.png' ,	icon =>'contact-new.png' ,
},	},
{ linktext => 'Manage Course Slots',
url => '/adm/slotrequest?command=showslots',
permission => $vgr,
linktitle =>'Manage slots for this course.' ,
icon => 'format-justify-fill.png' ,
},
{ linktext => 'Reset Student Access Times',	{ linktext => 'Reset Student Access Times',
url => '/adm/helper/resettimes.helper',	url => '/adm/helper/resettimes.helper',
permission => $mgr,	permission => $mgr,
linktitle =>'Reset access times for folders/maps, resources or the course.' ,	linktitle => "Reset access times for folders/maps, resources or the $lc_crstype." ,
icon => 'start-here.png' ,	icon => 'start-here.png' ,
},	},

Line 3710 ENDMAINFORMHEAD	Line 3728 ENDMAINFORMHEAD
{ linktext => 'Change Log',	{ linktext => 'Change Log',
url => '/adm/parmset?action=parameterchangelog',	url => '/adm/parmset?action=parameterchangelog',
permission => $parm_permission,	permission => $parm_permission,
linktitle =>'View parameter and course blog posting/user notification change log.' ,	linktitle =>"View parameter and $lc_crstype blog posting/user notification change log." ,
icon => 'emblem-system.png' ,	icon => 'document-properties.png',
}]}	}]}
);	);
$r->print(&Apache::lonhtmlcommon::generate_menu(@menu));	$r->print(&Apache::lonhtmlcommon::generate_menu(@menu));
	&endSettingsScreen($r);
return;	return;
}	}

Line 3790 sub order_meta_fields {	Line 3809 sub order_meta_fields {
text=>"Restrict Metadata"},	text=>"Restrict Metadata"},
{text=>"Order Metadata"});	{text=>"Order Metadata"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Order Metadata'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Order Metadata'));
	&startSettingsScreen($r,'parmset');
if ($env{'form.storeorder'}) {	if ($env{'form.storeorder'}) {
my $newpos = $env{'form.newpos'} - 1;	my $newpos = $env{'form.newpos'} - 1;
my $currentpos = $env{'form.currentpos'} - 1;	my $currentpos = $env{'form.currentpos'} - 1;
Line 3859 sub order_meta_fields {	Line 3879 sub order_meta_fields {
$idx ++;	$idx ++;
}	}
$r->print('</table>');	$r->print('</table>');
	&endSettingsScreen($r);
return 'ok';	return 'ok';
}	}

Line 3878 sub addmetafield {	Line 3899 sub addmetafield {
text=>"Add Metadata Field"});	text=>"Add Metadata Field"});
$r->print(&Apache::loncommon::start_page('Add Metadata Field'));	$r->print(&Apache::loncommon::start_page('Add Metadata Field'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Add Metadata Field'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Add Metadata Field'));
	&startSettingsScreen($r,'parmset');
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'};
if (exists($env{'form.undelete'})) {	if (exists($env{'form.undelete'})) {
Line 3919 sub addmetafield {	Line 3941 sub addmetafield {
$r->print('<input type="submit" value="Add Metadata Field" />');	$r->print('<input type="submit" value="Add Metadata Field" />');
}	}
$r->print('</form>');	$r->print('</form>');
	&endSettingsScreen($r);
}	}


Line 3933 sub setrestrictmeta {	Line 3956 sub setrestrictmeta {
text=>"Restrict Metadata"});	text=>"Restrict Metadata"});
$r->print(&Apache::loncommon::start_page('Restrict Metadata'));	$r->print(&Apache::loncommon::start_page('Restrict Metadata'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));
	&startSettingsScreen($r,'parmset');
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 $key_base = $env{'course.'.$env{'request.course.id'}.'.'};	my $key_base = $env{'course.'.$env{'request.course.id'}.'.'};
Line 4005 ENDButtons	Line 4029 ENDButtons
$buttons	$buttons
</form>	</form>
ENDenv	ENDenv
	&endSettingsScreen($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return 'ok';	return 'ok';
}	}
Line 4048 sub defaultsetter {	Line 4073 sub defaultsetter {
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Parameter Setting Default Actions');	&Apache::loncommon::start_page('Parameter Setting Default Actions');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
$r->print(<<ENDDEFHEAD);	$r->print($start_page.$breadcrumbs);
$start_page	&startSettingsScreen($r,'parmset');
$breadcrumbs	$r->print('<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">');
<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">
ENDDEFHEAD

my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};	my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 4197 ENDYESNO	Line 4220 ENDYESNO
}	}
$r->print(&Apache::loncommon::end_data_table().	$r->print(&Apache::loncommon::end_data_table().
"\n".'<input type="submit" name="storerules" value="'.	"\n".'<input type="submit" name="storerules" value="'.
&mt('Save').'" /></form>'."\n".	&mt('Save').'" /></form>'."\n");
&Apache::loncommon::end_page());	&endSettingsScreen($r);
	$r->print(&Apache::loncommon::end_page());
return;	return;
}	}

Line 4290 sub parm_change_log {	Line 4314 sub parm_change_log {
text=>"Parameter Change Log"});	text=>"Parameter Change Log"});
$r->print(&Apache::loncommon::start_page('Parameter Change Log'));	$r->print(&Apache::loncommon::start_page('Parameter Change Log'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Parameter Change Log'));
	&startSettingsScreen($r,'parmset');
my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',	my %parmlog=&Apache::lonnet::dump('nohist_parameterlog',
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});
Line 4458 sub parm_change_log {	Line 4482 sub parm_change_log {
\|\| $shown<=$env{'form.show'})) { last; }	\|\| $shown<=$env{'form.show'})) { last; }
}	}
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
	&endSettingsScreen($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

Line 4555 sub check_for_course_info {	Line 4580 sub check_for_course_info {
return 0;	return 0;
}	}

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

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

	sub oldversion_warning {
	my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;
	my $desc;
	my %stringtypes = (
	type => 'string_questiontype',
	lenient => 'string_lenient'
	);
	if (exists($stringtypes{$name})) {
	if (ref($strings{$stringtypes{$name}}) eq 'ARRAY') {
	foreach my $possibilities (@{ $strings{$stringtypes{$name}} }) {
	next unless (ref($possibilities) eq 'ARRAY');
	my ($parmval, $description) = @{ $possibilities };
	if ($parmval eq $value) {
	$desc = $description;
	last;
	}
	}
	}
	}
	my $standard_name = &standard_parameter_names($name);
	return '<p class="LC_warning">'.
	&mt('[_1] was [_2]not[_3] set to [_4].',
	$standard_name,'<b>','</b>','"'.$desc.'"').'<br />'.
	&mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',
	$cmajor.'.'.$cminor,$chostname,
	$needsrelease).
	'</p>';
	}

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


&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",	&Apache::lonhtmlcommon::add_breadcrumb({href=>"/adm/parmset",
text=>"Parameter Manager",	text=>"Content and Problem Settings",
faq=>10,	faq=>10,
bug=>'Instructor Interface',	bug=>'Instructor Interface',
help =>	help =>
Line 4621 sub handler {	Line 4697 sub handler {
&date_shift_one($r);	&date_shift_one($r);
} elsif ($env{'form.action'} eq 'dateshift2') {	} elsif ($env{'form.action'} eq 'dateshift2') {
&date_shift_two($r);	&date_shift_two($r);
} elsif ($env{'form.action'} eq 'categorizecourse') {
&assign_course_categories($r);
}	}
} else {	} else {
# ----------------------------- Not in a course, or not allowed to modify parms	# ----------------------------- Not in a course, or not allowed to modify parms

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

Removed from v.1.474
changed lines
	Added in v.1.518