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.505 and 1.522.2.3

version 1.505, 2010/12/24 16:48:46	version 1.522.2.3, 2012/08/27 15:49:24
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 631 sub storeparm_by_symb {	Line 640 sub storeparm_by_symb {
}	}

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

sub storeparm_by_symb_inner {	sub storeparm_by_symb_inner {
Line 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 showhide_js {
	return <<"COURSECONTENTSCRIPT";

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

	COURSECONTENTSCRIPT
	}

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

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

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

Line 930 sub print_row {	Line 968 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 1176 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 1237 sub parmmenu {	Line 1276 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 1263 sub parmmenu {	Line 1300 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 1295 sub parmmenu {	Line 1333 sub parmmenu {
checkthis('problemstatus','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 class="LC_parm_parmlist">');
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 1372 sub lookUpTableParameter {	Line 1366 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',
Line 1403 sub lookUpTableParameter {	Line 1399 sub lookUpTableParameter {
'acc' => 'misc',	'acc' => 'misc',
'maxcollaborators' => 'misc',	'maxcollaborators' => 'misc',
'scoreformat' => 'misc',	'scoreformat' => 'misc',
	'lenient' => 'grading',
	'retrypartial' => 'tries',
	'discussvote' => 'misc',

);	);
}	}
Line 1471 sub parmboxes {	Line 1470 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 1503 sub parmboxes {	Line 1490 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 1515 sub parmboxes {	Line 1501 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 1559 sub shortCuts {	Line 1540 sub shortCuts {

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

$r->print('<select multiple="multiple" name="psprt" size="8">');	$r->print('<select multiple="multiple" name="psprt" size="'.$selsize.'">');
$r->print('<option value="all"');	$r->print('<option value="all"');
$r->print(' selected="selected"') unless (@{$psprt});	$r->print(' selected="selected"') unless (@{$psprt});
$r->print('>'.&mt('All Parts').'</option>');	$r->print('>'.&mt('All Parts').'</option>');
Line 1681 function group_or_section(caller) {	Line 1666 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 {
Line 1748 sub mapmenu {	Line 1741 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(undef,undef,undef,'mapmenuscroll'));
$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table(undef,'mapmenuinner'));

# Display row: "All Maps or Folders"	# Display row: "All Maps or Folders"
$r->print(	$r->print(
&Apache::loncommon::start_data_table_row()	&Apache::loncommon::start_data_table_row(undef,'picklevel')
.'<td>'	.'<td>'
.'<label>'	.'<label>'
.'<input type="radio" name="pschp"'	.'<input type="radio" name="pschp"'
Line 1833 sub mapmenu {	Line 1826 sub mapmenu {
);	);
}	}

$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table().
	'<br style="line-height:2px;" />'.
	&Apache::loncommon::end_scrollbox());
}	}
}	}

Line 1959 sub standardkeyorder {	Line 1954 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 1968 sub assessparms {	Line 1966 sub assessparms {

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



	# -------------------------------------------------------- Variable declaration
my @ids=();	my @ids=();
my %symbp=();	my %symbp=();
my %mapp=();	my %mapp=();
Line 1975 sub assessparms {	Line 1976 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 1996 sub assessparms {	Line 1994 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 2020 sub assessparms {	Line 2020 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 2122 sub assessparms {	Line 2125 sub assessparms {
my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};	my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
my ($got_chostname,$chostname,$cmajor,$cminor);	my ($got_chostname,$chostname,$cmajor,$cminor);
my $totalstored = 0;	my $totalstored = 0;


for (my $i=0;$i<=$#markers;$i++) {	for (my $i=0;$i<=$#markers;$i++) {
my ($needsrelease,$needsnewer);	my ($needsrelease,$needsnewer,$name);
if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1\|2\|3)$/) {	if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1\|2\|3)$/) {
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);
Line 2154 sub assessparms {	Line 2159 sub assessparms {
}	}
}	}
}	}
} elsif ($markers[$i] =~ /_type\&\d+$/) {	} elsif ($markers[$i] =~ /_(type\|lenient\|retrypartial\|discussvote)\&\d+$/) {
	$name = $1;
$needsrelease =	$needsrelease =
$Apache::lonnet::needsrelease{'parameter:type:'.$values[$i]};	$Apache::lonnet::needsrelease{"parameter:$name:$values[$i]"};
if ($needsrelease) {	if ($needsrelease) {
unless ($got_chostname) {	unless ($got_chostname) {
($chostname,$cmajor,$cminor) = &questiontype_release_vars();	($chostname,$cmajor,$cminor) = &parameter_release_vars();
$got_chostname = 1;	$got_chostname = 1;
}	}
$needsnewer = &questiontype_releasecheck($values[$i],	$needsnewer = &parameter_releasecheck($name,$values[$i],
$needsrelease,	$needsrelease,
$chostname,	$chostname,
$cmajor,$cminor);	$cmajor,$cminor);
}	}
}	}
if ($needsnewer) {	if ($needsnewer) {
$message .= &oldversion_warning($values[$i],$chostname,$cmajor,	$message .= &oldversion_warning($name,$values[$i],$chostname,$cmajor,
$cminor,$needsrelease);	$cminor,$needsrelease);
} else {	} else {
$message.=&storeparm(split(/\&/,$markers[$i]),	$message.=&storeparm(split(/\&/,$markers[$i]),
Line 2193 sub assessparms {	Line 2199 sub assessparms {
if ($psprt[0] eq "all" \|\| !@psprt) {@psprt = (keys %allparts);}	if ($psprt[0] eq "all" \|\| !@psprt) {@psprt = (keys %allparts);}
# ------------------------------------------------------------------ Start page	# ------------------------------------------------------------------ Start page

&startpage($r);	&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 2225 ENDPARMSELSCRIPT	Line 2231 ENDPARMSELSCRIPT
}	}

# Step 1	# Step 1
$r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification')));	$r->print(&Apache::lonhtmlcommon::topic_bar(1,&mt('Resource Specification'),'parmstep1'));
$r->print(<<COURSECONTENTSCRIPT);	$r->print('
<script type="text/javascript">	<script type="text/javascript">
// <![CDATA[	// <![CDATA['.
function showHide_courseContent(){	&showhide_js().'
var parmlevValue=document.getElementById("parmlev").value;
if (parmlevValue == 'general') {
document.getElementById('mapmenu').style.display="none";
} else {
if ((parmlevValue == "full") \|\| (parmlevValue == "map")) {
document.getElementById('mapmenu').style.display ="";
} else {
document.getElementById('mapmenu').style.display="none";
}
}
}
// ]]>	// ]]>
</script>	</script>
COURSECONTENTSCRIPT	');
	$r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
$r->print(&Apache::lonhtmlcommon::start_pick_box());
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure());
&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);	&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);
Line 2256 COURSECONTENTSCRIPT	Line 2250 COURSECONTENTSCRIPT
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());

# Step 2	# Step 2
$r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification')));	$r->print(&Apache::lonhtmlcommon::topic_bar(2,&mt('Parameter Specification'),'parmstep2'));
&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)'),'parmstep3'));
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);	&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
Line 2269 COURSECONTENTSCRIPT	Line 2263 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 2285 COURSECONTENTSCRIPT	Line 2279 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);
Line 2305 COURSECONTENTSCRIPT	Line 2300 COURSECONTENTSCRIPT
$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 2331 COURSECONTENTSCRIPT	Line 2326 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 2401 ENDTABLEHEADFOUR	Line 2402 ENDTABLEHEADFOUR
}	}

$r->print('</tr>');	$r->print('</tr>');
	#
	# Done with the headers
	#
my $defbgone='';	my $defbgone='';
my $defbgtwo='';	my $defbgtwo='';
my $defbgthree = '';	my $defbgthree = '';
Line 2441 ENDTABLEHEADFOUR	Line 2444 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 2489 ENDTABLEHEADFOUR	Line 2499 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 2505 ENDTABLEHEADFOUR	Line 2515 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 2721 ENDMAPONE	Line 2731 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 2794 sub storedata {	Line 2805 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{$key};	$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') {	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);	my ($needsrelease,$needsnewer);
$needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$data};	$needsrelease = $Apache::lonnet::needsrelease{"parameter:$name:$data"};
if ($needsrelease) {	if ($needsrelease) {
unless ($got_chostname) {	unless ($got_chostname) {
($chostname,$cmajor,$cminor)=&questiontype_release_vars();	($chostname,$cmajor,$cminor)=&parameter_release_vars();
$got_chostname = 1;	$got_chostname = 1;
}	}
$needsnewer = &questiontype_releasecheck($data,$needsrelease,	$needsnewer = &parameter_releasecheck($name,$data,
$chostname,$cmajor,	$needsrelease,
$cminor);	$chostname,$cmajor,
	$cminor);
}	}
if ($needsnewer) {	if ($needsnewer) {
$r->print('<br />'.&oldversion_warning($data,$chostname,$cmajor,	$r->print('<br />'.&oldversion_warning($name,$data,
	$chostname,$cmajor,
$cminor,$needsrelease));	$cminor,$needsrelease));
next;	next;
}	}
Line 3047 sub listdata {	Line 3071 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 3121 my %strings =	Line 3145 my %strings =
[ 'randomizetry', 'New Randomization Each N Tries (default N=1)'],	[ 'randomizetry', 'New Randomization Each N Tries (default N=1)'],
[ 'practice', 'Practice'],	[ 'practice', 'Practice'],
[ 'surveycred', 'Survey (credit for submission)']],	[ '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 {	sub standard_string_options {
Line 3132 sub standard_string_options {	Line 3164 sub standard_string_options {
}	}

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;	my %skiptype;
if ($thistype eq 'string_questiontype') {	if (($thistype eq 'string_questiontype') \|\|
	($thistype eq 'string_lenient') \|\|
	($thistype eq 'string_discussvote') \|\|
	($name eq 'retrypartial')) {
my ($got_chostname,$chostname,$cmajor,$cminor);	my ($got_chostname,$chostname,$cmajor,$cminor);
foreach my $possibilities (@{ $strings{$thistype} }) {	foreach my $possibilities (@{ $strings{$thistype} }) {
next unless (ref($possibilities) eq 'ARRAY');	next unless (ref($possibilities) eq 'ARRAY');
my ($name, $description) = @{ $possibilities };	my ($parmval, $description) = @{ $possibilities };
my $needsrelease=$Apache::lonnet::needsrelease{'parameter:type:'.$name};	my $needsrelease=$Apache::lonnet::needsrelease{"parameter:$name:$parmval"};
if ($needsrelease) {	if ($needsrelease) {
unless ($got_chostname) {	unless ($got_chostname) {
($chostname,$cmajor,$cminor)=&questiontype_release_vars();	($chostname,$cmajor,$cminor)=&parameter_release_vars();
$got_chostname = 1;	$got_chostname = 1;
}	}
my $needsnewer=&questiontype_releasecheck($name,$needsrelease,	my $needsnewer=&parameter_releasecheck($name,$parmval,$needsrelease,
$chostname,$cmajor,	$chostname,$cmajor,
$cminor);	$cminor);
if ($needsnewer) {	if ($needsnewer) {
$skiptype{$name} = 1;	$skiptype{$parmval} = 1;
}	}
}	}
}	}
}	}


my $result;	my $result;
my $numinrow = 3;	my $numinrow = 3;
Line 3251 sub newoverview {	Line 3287 sub newoverview {
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};	my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
text=>"Overview Mode"});	text=>"Overview Mode"});
my $start_page = &Apache::loncommon::start_page('Set Parameters');
	my %loaditems = (
	'onload' => "showHide_courseContent(); resize_scrollbox('mapmenuscroll','1','1');",
	);
	my $js = '
	<script type="text/javascript">
	// <![CDATA[
	'.
	&Apache::lonhtmlcommon::resize_scrollbox_js('params')."\n".
	&showhide_js()."\n".
	'// ]]>
	</script>
	';
	my $start_page = &Apache::loncommon::start_page('Set Parameters',$js,
	{'add_entries' => \%loaditems,});
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Overview');
	$r->print($start_page.$breadcrumbs);
$r->print(<<ENDOVER);	$r->print(<<ENDOVER);
$start_page
$breadcrumbs
<form method="post" action="/adm/parmset?action=newoverview" name="parmform">	<form method="post" action="/adm/parmset?action=newoverview" name="parmform">
ENDOVER	ENDOVER
my @ids=();	my @ids=();
Line 3281 ENDOVER	Line 3330 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 3316 ENDOVER	Line 3366 ENDOVER
$r->print('<div class="LC_Box">');	$r->print('<div class="LC_Box">');
#$r->print('<h2 class="LC_hcell">Step 1</h2>');	#$r->print('<h2 class="LC_hcell">Step 1</h2>');
$r->print('<div>');	$r->print('<div>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box(undef,'parmlevel'));
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
if ($parmlev ne 'general') {	if ($parmlev ne 'general') {
$r->print(&Apache::lonhtmlcommon::row_closure());	$r->print(&Apache::lonhtmlcommon::row_closure());
Line 3328 ENDOVER	Line 3378 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 3381 ENDOVER	Line 3428 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 3428 sub overview {	Line 3476 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 3537 ENDOVER	Line 3583 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 3550 sub date_shift_one {	Line 3596 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 3577 sub date_shift_two {	Line 3621 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 3631 sub parse_key {	Line 3672 sub parse_key {


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


Line 3640 sub print_main_menu {	Line 3681 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'));
$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 3650 ENDMAINFORMHEAD	Line 3691 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 3669 ENDMAINFORMHEAD	Line 3715 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 4049 sub defaultsetter {	Line 4100 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 4198 ENDYESNO	Line 4246 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 4289 sub parm_change_log {	Line 4337 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 4306 sub parm_change_log {	Line 4360 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 4506 sub update_slots {	Line 4559 sub update_slots {
action => 'reserve',	action => 'reserve',
context => 'parameter',	context => 'parameter',
);	);
&Apache::lonnet::instructor_log('slotreservationslog',\%storehash,	&Apache::lonnet::write_log('course','slotreservationslog',\%storehash,
'',$uname,$udom,$cnum,$cdom);	'',$uname,$udom,$cnum,$cdom);

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

sub questiontype_release_vars {	sub parameter_release_vars {
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};	my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
my $chostname = &Apache::lonnet::hostname($chome);	my $chostname = &Apache::lonnet::hostname($chome);
Line 4565 sub questiontype_release_vars {	Line 4618 sub questiontype_release_vars {
return ($chostname,$cmajor,$cminor);	return ($chostname,$cmajor,$cminor);
}	}

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

sub oldversion_warning {	sub oldversion_warning {
my ($questiontype,$chostname,$cmajor,$cminor,$needsrelease) = @_;	my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;
my $desc;	my $desc;
if (ref($strings{'string_questiontype'}) eq 'ARRAY') {	my %stringtypes = (
foreach my $possibilities (@{ $strings{'string_questiontype'} }) {	type => 'string_questiontype',
next unless (ref($possibilities) eq 'ARRAY');	lenient => 'string_lenient',
my ($name, $description) = @{ $possibilities };	retrypartial => 'string_yesno',
if ($name eq $questiontype) {	discussvote => 'string_discussvote',
$desc = $description;	);
last;	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">'.	return '<p class="LC_warning">'.
&mt('Question Type was [_1]not[_2] set to [_3].',	&mt('[_1] was [_2]not[_3] set to [_4].',
'<b>','</b>','"'.$desc.'"').'<br />'.	$standard_name,'<b>','</b>','"'.$desc.'"').'<br />'.
&mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',	&mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',
$cmajor.'.'.$cminor,$chostname,	$cmajor.'.'.$cminor,$chostname,
$needsrelease).	$needsrelease).
Line 4614 sub handler {	Line 4676 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 =>

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

Removed from v.1.505
changed lines
	Added in v.1.522.2.3