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.498 and 1.522.2.1

version 1.498, 2010/06/18 11:11:08	version 1.522.2.1, 2012/05/07 23:46:11
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 302 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);


Line 783 sub valout {	Line 792 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 824 sub page_js {	Line 834 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 868 $selscript	Line 872 $selscript
ENDJS	ENDJS

}	}

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

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

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 890 sub startpage {	Line 898 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);
$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 930 sub print_row {	Line 941 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 1138 sub extractResourceInformation {	Line 1149 sub extractResourceInformation {
$$typep{$id}=$1;	$$typep{$id}=$1;
$$keyp{$id}='';	$$keyp{$id}='';
$$uris{$id}=$srcf;	$$uris{$id}=$srcf;

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

Line 1214 sub isdateparm {	Line 1226 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 1236 sub parmmenu {	Line 1249 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 1262 sub parmmenu {	Line 1273 sub parmmenu {
}	}

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

function checkcontdates() {	function checkcontdates() {
Line 1290 sub parmmenu {	Line 1302 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>');

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

$r->print(
'<p><a href="javascript:showParms()">'
.&mt('Show detailed Parameter Selection')
.'</a></p>'
);

$r->print(&Apache::lonhtmlcommon::row_closure(1));
}	}
# return a hash	# return a hash
sub categories {	sub categories {
Line 1369 sub lookUpTableParameter {	Line 1339 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 1399 sub lookUpTableParameter {	Line 1372 sub lookUpTableParameter {
'acc' => 'misc',	'acc' => 'misc',
'maxcollaborators' => 'misc',	'maxcollaborators' => 'misc',
'scoreformat' => 'misc',	'scoreformat' => 'misc',
	'lenient' => 'grading',
	'retrypartial' => 'tries',
	'discussvote' => 'misc',

);	);
}	}
Line 1467 sub parmboxes {	Line 1443 sub parmboxes {
'file_submission' => [],	'file_submission' => [],
'misc' => [],	'misc' => [],
);	);
my $hidelink =
'<p>'
.'<a href="javascript:hideParms()">'
.&mt('Hide detailed Parameter Selection')
.'</a>'
.'</p>'
."\n";
;
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(	$r->print('<div class="LC_columnSection">'."\n");
'<div id="LC_parm_overview_parm_menu" class="LC_Box" style="display:none">'."\n"
.'<h3>'.&mt('Parameter').'</h3>'."\n"
.$hidelink
.'<div class="LC_columnSection">'."\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) {
Line 1499 sub parmboxes {	Line 1463 sub parmboxes {
$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"');
}	}
Line 1511 sub parmboxes {	Line 1474 sub parmboxes {
}	}
}	}

#&shortCuts($r,$allparms,$pscat,$keyorder);	$r->print("</div>\n");
$r->print(
"</div>\n"
.$hidelink
."</div>\n"
);
}	}
#	#
# 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 1677 function group_or_section(caller) {	Line 1635 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::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::loncommon::end_scrollbox());

	$r->print(&Apache::lonhtmlcommon::row_closure(1));
	$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 1744 sub mapmenu {	Line 1710 sub mapmenu {
# Info about selectable folders/maps	# Info about selectable folders/maps
$r->print(	$r->print(
'<div class="LC_info">'	'<div class="LC_info">'
.&mt('You can only select those maps and folders which can be currently parameterized.')	.&mt('You can only select maps and folders which have modifiable settings.')
# .' '.&Apache::loncommon::help_open_topic('...') # Later: Add further help	.' '.&Apache::loncommon::help_open_topic('Parameter_Set_Folder')
.'</div>'	.'</div>'
);	);

	$r->print(&Apache::loncommon::start_scrollbox());
$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table());

# Display row: "All Maps or Folders"	# Display row: "All Maps or Folders"
Line 1830 sub mapmenu {	Line 1796 sub mapmenu {
}	}

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

Line 1955 sub standardkeyorder {	Line 1922 sub standardkeyorder {
'parameter_0_tol' => 16,	'parameter_0_tol' => 16,
'parameter_0_sig' => 17,	'parameter_0_sig' => 17,
'parameter_0_turnoffunit' => 18,	'parameter_0_turnoffunit' => 18,
'parameter_0_discussend' => 19,	'parameter_0_discussend' => 19,
'parameter_0_discusshide' => 20);	'parameter_0_discusshide' => 20,
	'parameter_0_discussvote' => 21,
	'parameter_0_printopendate' => 22,
	'parameter_0_printclosedate' => 23);
}	}


Line 1964 sub assessparms {	Line 1934 sub assessparms {

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



	# -------------------------------------------------------- Variable declaration
my @ids=();	my @ids=();
my %symbp=();	my %symbp=();
my %mapp=();	my %mapp=();
Line 1971 sub assessparms {	Line 1944 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 1992 sub assessparms {	Line 1962 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 2016 sub assessparms {	Line 1988 sub assessparms {

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


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

my $pssymb='';	my $pssymb='';
my $parmlev='';	my $parmlev='';
Line 2085 sub assessparms {	Line 2060 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 2113 sub assessparms {	Line 2088 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 2146 sub assessparms {	Line 2127 sub assessparms {
}	}
}	}
}	}
	} elsif ($markers[$i] =~ /_(type\|lenient\|retrypartial\|discussvote)\&\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 2228 COURSECONTENTSCRIPT	Line 2231 COURSECONTENTSCRIPT

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

# Step 3	# Step 3
$r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)')));	$r->print(&Apache::lonhtmlcommon::topic_bar(3,&mt('User Specification (optional)')));
Line 2240 COURSECONTENTSCRIPT	Line 2243 COURSECONTENTSCRIPT
# Update Display Button	# Update Display Button
$r->print('<p>'	$r->print('<p>'
.'<input type="submit" name="dis"'	.'<input type="submit" name="dis"'
.' value="'.&mt('Update Parameter Display').'" />'	.' value="'.&mt('Update Display').'" />'
.'<input type="hidden" name="hideparmsel" value="hidden" />'	.'<input type="hidden" name="hideparmsel" value="hidden" />'
.'</p>');	.'</p>');
$r->print('</div>');	$r->print('</div>');
Line 2256 COURSECONTENTSCRIPT	Line 2259 COURSECONTENTSCRIPT
.'</a>'	.'</a>'
.'</p>');	.'</p>');
} else {	} else {
	$r->print();
# parameter screen for a single resource.	# parameter screen for a single resource.
my ($map,$iid,$resource)=&Apache::lonnet::decode_symb($pssymb);	my ($map,$iid,$resource)=&Apache::lonnet::decode_symb($pssymb);
my $title = &Apache::lonnet::gettitle($pssymb);	my $title = &Apache::lonnet::gettitle($pssymb);
$r->print(&mt('Specific Resource: [_1] ([_2])',$title,$resource).	$r->print(&mt('Specific Resource: [_1] ([_2])',
	$title,'<span class="LC_filename">'.$resource.'</span>').
'<input type="hidden" value="'.$pssymb.'" name="symb" />'.	'<input type="hidden" value="'.$pssymb.'" name="symb" />'.
'<br />');	'<br />');
$r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('Additional Display Specification (optional)')));	$r->print(&Apache::lonhtmlcommon::topic_bar('',&mt('Additional Display Specification (optional)')));
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')).	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')).
'<label>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.	'<label>'.
($env{'form.psprt'}?' checked="checked"':'').' /></label></td></tr>');	'<input type="checkbox" name="psprt" value="all"'.
	($env{'form.psprt'}?' checked="checked"':'').' />'.
	&mt('Show all parts').
	'</label></td></tr>');
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);	&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
$r->print('<p>'	$r->print('<p>'
.'<input type="submit" name="dis"'	.'<input type="submit" name="dis"'
.' value="'.&mt('Update Parameter Display').'" />'	.' value="'.&mt('Update Display').'" />'
.'<input type="hidden" name="hideparmsel" value="hidden" />'	.'<input type="hidden" name="hideparmsel" value="hidden" />'
.'</p>');	.'</p>');
}	}
Line 2298 COURSECONTENTSCRIPT	Line 2306 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 2317 COURSECONTENTSCRIPT	Line 2331 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 2333 COURSECONTENTSCRIPT	Line 2346 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 2369 ENDTABLEHEADFOUR	Line 2382 ENDTABLEHEADFOUR
}	}

$r->print('</tr>');	$r->print('</tr>');
	#
	# Done with the headers
	#
my $defbgone='';	my $defbgone='';
my $defbgtwo='';	my $defbgtwo='';
my $defbgthree = '';	my $defbgthree = '';
Line 2409 ENDTABLEHEADFOUR	Line 2424 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 2457 ENDTABLEHEADFOUR	Line 2479 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 2473 ENDTABLEHEADFOUR	Line 2495 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 2689 ENDMAPONE	Line 2711 ENDMAPONE
);	);
} # end of $parmlev eq general	} # end of $parmlev eq general
}	}
$r->print('</form>'.&Apache::loncommon::end_page());	$r->print('</form>');
	$r->print(&Apache::loncommon::end_page());
} # end sub assessparms	} # end sub assessparms

##################################################	##################################################
Line 2751 sub storedata {	Line 2774 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 2761 sub storedata {	Line 2785 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';
	} elsif ($typeof eq 'string_discussvote') {
	$name = 'discussvote';
	} elsif ($typeof eq 'string_yesno') {
	if ($thiskey =~ /\.retrypartial$/) {
	$name = 'retrypartial';
	}
	}
	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 2996 sub listdata {	Line 3051 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 3061 my %strings =	Line 3116 my %strings =
[ 'answer', 'Yes, and show correct answer if they exceed the maximum number of tries.' ],	[ 'answer', 'Yes, and show correct answer if they exceed the maximum number of tries.' ],
[ 'no', 'No, don\'t show correct/incorrect feedback.' ],	[ 'no', 'No, don\'t show correct/incorrect feedback.' ],
[ 'no_feedback_ever', 'No, show no feedback at all.' ]],	[ 'no_feedback_ever', 'No, show no feedback at all.' ]],
	'string_questiontype'
	=> [[ 'problem', 'Standard Problem'],
	[ 'survey', 'Survey'],
	[ 'anonsurveycred', 'Anonymous Survey (credit for submission)'],
	[ 'exam', 'Exam'],
	[ 'anonsurvey', 'Anonymous Survey'],
	[ 'randomizetry', 'New Randomization Each N Tries (default N=1)'],
	[ 'practice', 'Practice'],
	[ 'surveycred', 'Survey (credit for submission)']],
	'string_lenient'
	=> [['yes', 'Yes' ],
	[ 'no', 'No' ],
	[ 'default', 'Default - only bubblesheet grading is lenient' ]],
	'string_discussvote'
	=> [['yes','Yes'],
	['notended','Yes, unless discussion ended'],
	['no','No']],
);	);

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

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

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') \|\|
	($thistype eq 'string_discussvote') \|\|
	($name eq 'retrypartial')) {
	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 3128 sub newoverview {	Line 3269 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);
$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 3156 ENDOVER	Line 3296 ENDOVER

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

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

Line 3203 ENDOVER	Line 3344 ENDOVER

$r->print('<div class="LC_Box">');	$r->print('<div class="LC_Box">');
$r->print('<div>');	$r->print('<div>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	&displaymenu($r,\%allparms,\@pscat,\%keyorder);
&parmmenu($r,\%allparms,\@pscat,\%keyorder);
$r->print(&Apache::lonhtmlcommon::end_pick_box());
&parmboxes($r,\%allparms,\@pscat,\%keyorder);
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
$r->print('<table>'.	$r->print('<table>'.
Line 3256 ENDOVER	Line 3394 ENDOVER
}	}
$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>');
	$r->print(&Apache::loncommon::end_page());
}	}

sub secgroup_lister {	sub secgroup_lister {
Line 3303 sub overview {	Line 3442 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	$r->print('<form method="post" action="/adm/parmset?action=setoverview" name="parmform">');
$breadcrumbs
<form method="post" action="/adm/parmset?action=setoverview" name="parmform">
ENDOVER
# Store modified	# Store modified

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

sub date_shift_one {	sub date_shift_one {
Line 3425 sub date_shift_one {	Line 3562 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
$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 3452 sub date_shift_two {	Line 3587 sub date_shift_two {
text=>"Shifting Dates"});	text=>"Shifting Dates"});
my $start_page=&Apache::loncommon::start_page('Shift Dates');	my $start_page=&Apache::loncommon::start_page('Shift Dates');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Shift');
$r->print(<<ENDOVER);	$r->print($start_page.$breadcrumbs);
$start_page
$breadcrumbs
ENDOVER
my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');	my $timeshifted=&Apache::lonhtmlcommon::get_date_from_form('timeshifted');
$r->print(&mt('Shifting all dates such that [_1] becomes [_2]',	$r->print(&mt('Shifting all dates such that [_1] becomes [_2]',
&Apache::lonlocal::locallocaltime($env{'form.timebase'}),	&Apache::lonlocal::locallocaltime($env{'form.timebase'}),
Line 3525 ENDMAINFORMHEAD	Line 3657 ENDMAINFORMHEAD
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $vgr = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});	my $vgr = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
my $mgr = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});	my $mgr = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});
	my $dcm = &Apache::lonnet::allowed('dcm',$env{'request.course.id'});
	if ((!$dcm) && ($env{'request.course.sec'} ne '')) {
	$dcm = &Apache::lonnet::allowed('dcm',$env{'request.course.id'}.
	'/'.$env{'request.course.sec'});
	}

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

my @menu =	my @menu =
( { categorytitle=>"Settings for this $crstype",	( { categorytitle=>"Content Settings for this $crstype",
items => [	items => [
{ linktext => 'Portfolio Metadata',	{ linktext => 'Portfolio Metadata',
url => '/adm/parmset?action=setrestrictmeta',	url => '/adm/parmset?action=setrestrictmeta',
Line 3544 ENDMAINFORMHEAD	Line 3681 ENDMAINFORMHEAD
linktitle => "Reset access times for folders/maps, resources or the $lc_crstype." ,	linktitle => "Reset access times for folders/maps, resources or the $lc_crstype." ,
icon => 'start-here.png' ,	icon => 'start-here.png' ,
},	},
	{ linktext => 'Blocking Communication/Resource Access',
	url => '/adm/setblock',
	permission => $dcm,
	linktitle => 'Configure blocking of communication/collaboration and access to resources during an exam',
	icon => 'comblock.png',
	},
{ linktext => 'Set Parameter Setting Default Actions',	{ linktext => 'Set Parameter Setting Default Actions',
url => '/adm/parmset?action=setdefaults',	url => '/adm/parmset?action=setdefaults',
permission => $parm_permission,	permission => $parm_permission,
Line 3924 sub defaultsetter {	Line 4066 sub defaultsetter {
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Parameter Setting Default Actions');	&Apache::loncommon::start_page('Parameter Setting Default Actions');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
$r->print(<<ENDDEFHEAD);	$r->print($start_page.$breadcrumbs);
$start_page	$r->print('<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">');
$breadcrumbs
<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">
ENDDEFHEAD

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

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

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

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

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

my %saveable_parameters = ('show' => 'scalar',);	my %saveable_parameters = ('show' => 'scalar',);
Line 4181 sub parm_change_log {	Line 4326 sub parm_change_log {
\%saveable_parameters);	\%saveable_parameters);
&Apache::loncommon::restore_course_settings('parameter_log',	&Apache::loncommon::restore_course_settings('parameter_log',
\%saveable_parameters);	\%saveable_parameters);
$r->print(&Apache::loncommon::display_filter().	$r->print(&Apache::loncommon::display_filter('parmslog').' '."\n".
'<label>'.&Apache::lonhtmlcommon::checkbox('includetypes',$env{'form.includetypes'},'1').	'<input type="submit" value="'.&mt('Display').'" />'.
' '.&mt('Include parameter types').'</label>'.	'</form></fieldset></div><br clear="all" />');
'<input type="submit" value="'.&mt('Display').'" /></form>');

my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},	my $courseopt=&Apache::lonnet::get_courseresdata($env{'course.'.$env{'request.course.id'}.'.num'},
$env{'course.'.$env{'request.course.id'}.'.domain'});	$env{'course.'.$env{'request.course.id'}.'.domain'});
Line 4431 sub check_for_course_info {	Line 4575 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',
	retrypartial => 'string_yesno',
	discussvote => 'string_discussvote',
	);
	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 4446 sub handler {	Line 4642 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']);

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

Removed from v.1.498
changed lines
	Added in v.1.522.2.1