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.554 and 1.561

version 1.554, 2015/09/13 21:48:05	version 1.561, 2016/07/15 18:03:52
Line 36 lonparmset - Handler to set parameters f	Line 36 lonparmset - Handler to set parameters f

=head1 SYNOPSIS	=head1 SYNOPSIS

lonparmset provides an interface to setting course parameters.	lonparmset provides an interface to setting course parameters.

	It contains all the code for the "Content and Problem Settings" UI, except
	for the helpers parameter.helper and resettimes.helper, and lonhelper.pm,
	and lonblockingmenu.pm.

=head1 DESCRIPTION	=head1 DESCRIPTION

Line 54 Inputs: $what - a parameter spec (inclu	Line 58 Inputs: $what - a parameter spec (inclu
$id - a bighash Id number	$id - a bighash Id number
$def - the resource's default value 'stupid emacs	$def - the resource's default value 'stupid emacs

Returns: A list, the first item is the index into the remaining list of items of parm valuse that is the active one, the list consists of parm values at the 14 possible levels	Returns: A list, the first item is the index into the remaining list of items of parm values that is the active one, the list consists of parm values at the 18 possible levels

14- General Course	18 - General Course
13- Map or Folder level in course	17 - Map or Folder level in course (recursive)
12- resource default	16 - Map or Folder level in course (non-recursive)
11- map default	15 - resource default
10- resource level in course	14 - map default
9 - General for section	13 - resource level in course
8 - Map or Folder level for section	12 - General for section
7 - resource level in section	11 - Map or Folder level for section (recursive)
6 - General for group	10 - Map or Folder level for section (non-recursive)
5 - Map or Folder level for group	9 - resource level in section
4 - resource level in group	8 - General for group
3 - General for specific student	7 - Map or Folder level for group (recursive)
2 - Map or Folder level for specific student	6 - Map or Folder level for group (non-recursive)
	5 - resource level in group
	4 - General for specific student
	3 - Map or Folder level for specific student (recursive)
	2 - Map or Folder level for specific student (non-recursive)
1 - resource level for specific student	1 - resource level for specific student

=item parmval_by_symb()	=item parmval_by_symb()
Line 323 use HTML::Entities;	Line 331 use HTML::Entities;
use LONCAPA qw(:DEFAULT :match);	use LONCAPA qw(:DEFAULT :match);


	##################################################
	# CONTENT AND PROBLEM SETTINGS HTML PAGE HEADER/FOOTER
	##################################################

	# Page header
	#
	# @param {Apache2::RequestRec} $r - Apache request object
	# @param {string} $mode - selected tab, 'parmset' for course and problem settings, or 'coursepref' for course settings
	# @param {string} $crstype - course type ('Community' for community settings)
sub startSettingsScreen {	sub startSettingsScreen {
my ($r,$mode,$crstype)=@_;	my ($r,$mode,$crstype)=@_;

Line 341 sub startSettingsScreen {	Line 358 sub startSettingsScreen {
$r->print('<div class="LC_Box" style="clear:both;margin:0;" id="parameditor"><div id="maincoursedoc" style="margin:0 0;padding:0 0;"><div class="LC_ContentBox" id="mainCourseDocuments" style="display: block;">');	$r->print('<div class="LC_Box" style="clear:both;margin:0;" id="parameditor"><div id="maincoursedoc" style="margin:0 0;padding:0 0;"><div class="LC_ContentBox" id="mainCourseDocuments" style="display: block;">');
}	}

	# Page footer
sub endSettingsScreen {	sub endSettingsScreen {
my ($r)=@_;	my ($r)=@_;
$r->print('</div></div></div>');	$r->print('</div></div></div>');
Line 348 sub endSettingsScreen {	Line 366 sub endSettingsScreen {



	##################################################
	# TABLE MODE
	# (parmval is also used for the log of parameter changes)
	##################################################

	# Calls parmval_by_symb, getting the symb from $id (the big hash resource id) with &symbcache.
	#
	# @param {string} $what - part info and parameter name separated by a dot, e.g. '0.weight'
	# @param {string} $id - big hash resource id
	# @param {string} $def - the resource's default value for this parameter
	# @param {string} $uname - user name
	# @param {string} $udom - user domain
	# @param {string} $csec - section name
	# @param {string} $cgroup - group name
	# @param {hash reference} $courseopt - course parameters hash (result of lonnet::get_courseresdata, dump of course's resourcedata.db)
	# @returns {Array}
sub parmval {	sub parmval {
my ($what,$id,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;	my ($what,$id,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;
return &parmval_by_symb($what,&symbcache($id),$def,$uname,$udom,$csec,	return &parmval_by_symb($what,&symbcache($id),$def,$uname,$udom,$csec,
$cgroup,$courseopt);	$cgroup,$courseopt);
}	}

	# Returns an array containing
	# - the most specific level that is defined for that parameter (integer)
	# - an array with the level as index and the parameter value as value (when defined)
	# (level 1 is the most specific and will have precedence)
	#
	# @param {string} $what - part info and parameter name separated by a dot, e.g. '0.weight'
	# @param {string} $symb - resource symb
	# @param {string} $def - the resource's default value for this parameter
	# @param {string} $uname - user name
	# @param {string} $udom - user domain
	# @param {string} $csec - section name
	# @param {string} $cgroup - group name
	# @param {hash reference} $courseopt - course parameters hash (result of lonnet::get_courseresdata, dump of course's resourcedata.db)
	# @returns {Array}
sub parmval_by_symb {	sub parmval_by_symb {
my ($what,$symb,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;	my ($what,$symb,$def,$uname,$udom,$csec,$cgroup,$courseopt)=@_;

my $useropt;	my $useropt;
if ($uname ne '' && $udom ne '') {	if ($uname ne '' && $udom ne '') {
$useropt = &Apache::lonnet::get_userresdata($uname,$udom);	$useropt = &Apache::lonnet::get_userresdata($uname,$udom);
}	}

my $result='';	my $result='';
Line 367 sub parmval_by_symb {	Line 415 sub parmval_by_symb {
# ----------------------------------------------------- Cascading lookup scheme	# ----------------------------------------------------- Cascading lookup scheme
my $map=(&Apache::lonnet::decode_symb($symb))[0];	my $map=(&Apache::lonnet::decode_symb($symb))[0];
$map = &Apache::lonnet::deversion($map);	$map = &Apache::lonnet::deversion($map);

	# NOTE: some of that code looks redondant with code in lonnavmaps::parmval_real,
	# any change should be reflected there.

my $symbparm=$symb.'.'.$what;	my $symbparm=$symb.'.'.$what;
	my $recurseparm=$map.'___(rec).'.$what;
my $mapparm=$map.'___(all).'.$what;	my $mapparm=$map.'___(all).'.$what;

my $grplevel=$env{'request.course.id'}.'.['.$cgroup.'].'.$what;	my $grplevel=$env{'request.course.id'}.'.['.$cgroup.'].'.$what;
my $grplevelr=$env{'request.course.id'}.'.['.$cgroup.'].'.$symbparm;	my $grplevelr=$env{'request.course.id'}.'.['.$cgroup.'].'.$symbparm;
	my $grpleveli=$env{'request.course.id'}.'.['.$cgroup.'].'.$recurseparm;
my $grplevelm=$env{'request.course.id'}.'.['.$cgroup.'].'.$mapparm;	my $grplevelm=$env{'request.course.id'}.'.['.$cgroup.'].'.$mapparm;

my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$what;	my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$what;
my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;	my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
	my $secleveli=$env{'request.course.id'}.'.['.$csec.'].'.$recurseparm;
my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;	my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;

my $courselevel=$env{'request.course.id'}.'.'.$what;	my $courselevel=$env{'request.course.id'}.'.'.$what;
my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;	my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
	my $courseleveli=$env{'request.course.id'}.'.'.$recurseparm;
my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;	my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;


# --------------------------------------------------------- first, check course	# --------------------------------------------------------- first, check course

	# 18 - General Course
if (defined($$courseopt{$courselevel})) {	if (defined($$courseopt{$courselevel})) {
$outpar[14]=$$courseopt{$courselevel};	$outpar[18]=$$courseopt{$courselevel};
$result=14;	$result=18;
	}

	# 17 - Map or Folder level in course (recursive)
	if (defined($$courseopt{$courseleveli})) {
	$outpar[17]=$$courseopt{$courseleveli};
	$result=17;
}	}

	# 16 - Map or Folder level in course (non-recursive)
if (defined($$courseopt{$courselevelm})) {	if (defined($$courseopt{$courselevelm})) {
$outpar[13]=$$courseopt{$courselevelm};	$outpar[16]=$$courseopt{$courselevelm};
$result=13;	$result=16;
}	}

# ------------------------------------------------------- second, check default	# ------------------------------------------------------- second, check default

if (defined($def)) { $outpar[12]=$def; $result=12; }	# 15 - resource default
	if (defined($def)) { $outpar[15]=$def; $result=15; }

# ------------------------------------------------------ third, check map parms	# ------------------------------------------------------ third, check map parms


	# 14 - map default
my $thisparm=&parmhash($symbparm);	my $thisparm=&parmhash($symbparm);
if (defined($thisparm)) { $outpar[11]=$thisparm; $result=11; }	if (defined($thisparm)) { $outpar[14]=$thisparm; $result=14; }

	# 13 - resource level in course
if (defined($$courseopt{$courselevelr})) {	if (defined($$courseopt{$courselevelr})) {
$outpar[10]=$$courseopt{$courselevelr};	$outpar[13]=$$courseopt{$courselevelr};
$result=10;	$result=13;
}	}

# ------------------------------------------------------ fourth, back to course	# ------------------------------------------------------ fourth, back to course
if ($csec ne '') {	if ($csec ne '') {
	# 12 - General for section
if (defined($$courseopt{$seclevel})) {	if (defined($$courseopt{$seclevel})) {
$outpar[9]=$$courseopt{$seclevel};	$outpar[12]=$$courseopt{$seclevel};
$result=9;	$result=12;
}	}
	# 11 - Map or Folder level for section (recursive)
	if (defined($$courseopt{$secleveli})) {
	$outpar[11]=$$courseopt{$secleveli};
	$result=11;
	}
	# 10 - Map or Folder level for section (non-recursive)
if (defined($$courseopt{$seclevelm})) {	if (defined($$courseopt{$seclevelm})) {
$outpar[8]=$$courseopt{$seclevelm};	$outpar[10]=$$courseopt{$seclevelm};
$result=8;	$result=10;
}	}
	# 9 - resource level in section
if (defined($$courseopt{$seclevelr})) {	if (defined($$courseopt{$seclevelr})) {
$outpar[7]=$$courseopt{$seclevelr};	$outpar[9]=$$courseopt{$seclevelr};
$result=7;	$result=9;
}	}
}	}
# ------------------------------------------------------ fifth, check course group	# ------------------------------------------------------ fifth, check course group
if ($cgroup ne '') {	if ($cgroup ne '') {
	# 8 - General for group
if (defined($$courseopt{$grplevel})) {	if (defined($$courseopt{$grplevel})) {
$outpar[6]=$$courseopt{$grplevel};	$outpar[8]=$$courseopt{$grplevel};
$result=6;	$result=8;
}	}
	# 7 - Map or Folder level for group (recursive)
	if (defined($$courseopt{$grpleveli})) {
	$outpar[7]=$$courseopt{$grpleveli};
	$result=7;
	}
	# 6 - Map or Folder level for group (non-recursive)
if (defined($$courseopt{$grplevelm})) {	if (defined($$courseopt{$grplevelm})) {
$outpar[5]=$$courseopt{$grplevelm};	$outpar[6]=$$courseopt{$grplevelm};
$result=5;	$result=6;
}	}
	# 5 - resource level in group
if (defined($$courseopt{$grplevelr})) {	if (defined($$courseopt{$grplevelr})) {
$outpar[4]=$$courseopt{$grplevelr};	$outpar[5]=$$courseopt{$grplevelr};
$result=4;	$result=5;
}	}
}	}

# ---------------------------------------------------------- fifth, check user	# ---------------------------------------------------------- sixth, check user

if ($uname ne '') {	if ($uname ne '') {
if (defined($$useropt{$courselevel})) {	# 4 - General for specific student
$outpar[3]=$$useropt{$courselevel};	if (defined($$useropt{$courselevel})) {
$result=3;	$outpar[4]=$$useropt{$courselevel};
}	$result=4;
	}
if (defined($$useropt{$courselevelm})) {
$outpar[2]=$$useropt{$courselevelm};
$result=2;
}

if (defined($$useropt{$courselevelr})) {	# 3 - Map or Folder level for specific student (recursive)
$outpar[1]=$$useropt{$courselevelr};	if (defined($$useropt{$courseleveli})) {
$result=1;	$outpar[3]=$$useropt{$courseleveli};
}	$result=3;
	}

	# 2 - Map or Folder level for specific student (non-recursive)
	if (defined($$useropt{$courselevelm})) {
	$outpar[2]=$$useropt{$courselevelm};
	$result=2;
	}

	# 1 - resource level for specific student
	if (defined($$useropt{$courselevelr})) {
	$outpar[1]=$$useropt{$courselevelr};
	$result=1;
	}
}	}
return ($result,@outpar);	return ($result,@outpar);
}	}
Line 468 sub parmval_by_symb {	Line 559 sub parmval_by_symb {
# --- Caches local to lonparmset	# --- Caches local to lonparmset


	# Reset lonparmset caches (called at the beginning and end of the handler).
sub reset_caches {	sub reset_caches {
&resetparmhash();	&resetparmhash();
&resetsymbcache();	&resetsymbcache();
&resetrulescache();	&resetrulescache();
}	}

	# cache for map parameters, stored temporarily in $env{'request.course.fn'}_parms.db
	# (these parameters come from param elements in .sequence files created with the advanced RAT)
{	{
my $parmhashid;	my $parmhashid; # course identifier, to initialize the cache only once for a course
my %parmhash;	my %parmhash; # the parameter cache
	# reset map parameter hash
sub resetparmhash {	sub resetparmhash {
undef($parmhashid);	undef($parmhashid);
undef(%parmhash);	undef(%parmhash);
}	}

	# dump the _parms.db database into %parmhash
sub cacheparmhash {	sub cacheparmhash {
if ($parmhashid eq $env{'request.course.fn'}) { return; }	if ($parmhashid eq $env{'request.course.fn'}) { return; }
my %parmhashfile;	my %parmhashfile;
if (tie(%parmhashfile,'GDBM_File',	if (tie(%parmhashfile,'GDBM_File',
$env{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640)) {	$env{'request.course.fn'}.'_parms.db',&GDBM_READER(),0640)) {
%parmhash=%parmhashfile;	%parmhash=%parmhashfile;
untie(%parmhashfile);	untie(%parmhashfile);
$parmhashid=$env{'request.course.fn'};	$parmhashid=$env{'request.course.fn'};
}	}
}	}

	# returns a parameter value for an identifier symb.parts.parameter, using the map parameter cache
sub parmhash {	sub parmhash {
my ($id) = @_;	my ($id) = @_;
&cacheparmhash();	&cacheparmhash();
return $parmhash{$id};	return $parmhash{$id};
}	}
}	}

	# cache big hash id -> symb, using lonnavmaps to find association
{	{
my $symbsid;	my $symbsid; # course identifier, to initialize the cache only once for a course
my %symbs;	my %symbs; # hash id->symb
	# reset the id->symb cache
sub resetsymbcache {	sub resetsymbcache {
undef($symbsid);	undef($symbsid);
undef(%symbs);	undef(%symbs);
}	}

	# returns the symb corresponding to a big hash id (using lonnavmaps and a cache)
sub symbcache {	sub symbcache {
my $id=shift;	my $id=shift;
if ($symbsid ne $env{'request.course.id'}) {	if ($symbsid ne $env{'request.course.id'}) {
undef(%symbs);	undef(%symbs);
}	}
if (!$symbs{$id}) {	if (!$symbs{$id}) {
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
if ($id=~/\./) {	if ($id=~/\./) {
my $resource=$navmap->getById($id);	my $resource=$navmap->getById($id);
$symbs{$id}=$resource->symb();	$symbs{$id}=$resource->symb();
} else {	} else {
my $resource=$navmap->getByMapPc($id);	my $resource=$navmap->getByMapPc($id);
$symbs{$id}=&Apache::lonnet::declutter($resource->src());	$symbs{$id}=&Apache::lonnet::declutter($resource->src());
	}
	$symbsid=$env{'request.course.id'};
}	}
$symbsid=$env{'request.course.id'};	return $symbs{$id};
}	}
return $symbs{$id};	}
}
}

	# cache for parameter default actions (stored in parmdefactions.db)
{	{
my $rulesid;	my $rulesid; # course identifier, to initialize the cache only once for a course
my %rules;	my %rules; # parameter default actions hash
sub resetrulescache {	sub resetrulescache {
undef($rulesid);	undef($rulesid);
undef(%rules);	undef(%rules);
}	}

	# returns the value for a given key in the parameter default action hash
sub rulescache {	sub rulescache {
my $id=shift;	my $id=shift;
if ($rulesid ne $env{'request.course.id'}	if ($rulesid ne $env{'request.course.id'}
&& !defined($rules{$id})) {	&& !defined($rules{$id})) {
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'};
%rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);	%rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);
$rulesid=$env{'request.course.id'};	$rulesid=$env{'request.course.id'};
}	}
return $rules{$id};	return $rules{$id};
}	}
}	}


	# Returns the values of the parameter type default action
	# "default value when manually setting".
	# If none is defined, ('','','','','') is returned.
	#
	# @param {string} $type - parameter type
	# @returns {Array<string>} - (hours, min, sec, value)
sub preset_defaults {	sub preset_defaults {
my $type=shift;	my $type=shift;
if (&rulescache($type.'_action') eq 'default') {	if (&rulescache($type.'_action') eq 'default') {
# yes, there is something	# yes, there is something
return (&rulescache($type.'_hours'),	return (&rulescache($type.'_hours'),
&rulescache($type.'_min'),	&rulescache($type.'_min'),
&rulescache($type.'_sec'),	&rulescache($type.'_sec'),
&rulescache($type.'_value'));	&rulescache($type.'_value'));
} else {	} else {
# nothing there or something else	# nothing there or something else
return ('','','','','');	return ('','','','','');
}	}
}	}


	# Checks that a date is after enrollment start date and before
	# enrollment end date.
	# Returns HTML with a warning if it is not, or the empty string otherwise.
	# This is used by both overview and table modes.
	#
	# @param {integer} $checkdate - the date to check.
	# @returns {string} - HTML possibly containing a localized warning message.
sub date_sanity_info {	sub date_sanity_info {
my $checkdate=shift;	my $checkdate=shift;
unless ($checkdate) { return ''; }	unless ($checkdate) { return ''; }
Line 602 sub date_sanity_info {	Line 714 sub date_sanity_info {
# }	# }
return $result;	return $result;
}	}
##################################################
##################################################
#
# Store a parameter by ID
#
# Takes
# - resource id
# - name of parameter
# - level
# - new value
# - new type
# - username
# - userdomain


	# Store a parameter value and type by ID, also triggering more parameter changes based on parameter default actions.
	#
	# @param {string} $sresid - resource big hash id
	# @param {string} $spnam - part info and parameter name separated by a dot, e.g. '0.weight'
	# @param {integer} $snum - level
	# @param {string} $nval - new value
	# @param {string} $ntype - new type
	# @param {string} $uname - username
	# @param {string} $udom - userdomain
	# @param {string} $csec - section name
	# @param {string} $cgroup - group name
sub storeparm {	sub storeparm {
my ($sresid,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;	my ($sresid,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
&storeparm_by_symb(&symbcache($sresid),$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,'',$cgroup);	&storeparm_by_symb(&symbcache($sresid),$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,'',$cgroup);
}	}

my %recstack;	my %recstack; # hash parameter name -> 1 when a parameter was used before in a recursive call to storeparm_by_symb

	# Store a parameter value and type by symb, also triggering more parameter changes based on parameter default actions.
	# Uses storeparm_by_symb_inner to actually store the parameter, ignoring any returned error.
	#
	# @param {string} $symb - resource symb
	# @param {string} $spnam - part info and parameter name separated by a dot, e.g. '0.weight'
	# @param {integer} $snum - level
	# @param {string} $nval - new value
	# @param {string} $ntype - new type
	# @param {string} $uname - username
	# @param {string} $udom - userdomain
	# @param {string} $csec - section name
	# @param {boolean} $recflag - should be true for recursive calls to storeparm_by_symb, false otherwise
	# @param {string} $cgroup - group name
sub storeparm_by_symb {	sub storeparm_by_symb {
my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$recflag,$cgroup)=@_;	my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$recflag,$cgroup)=@_;
unless ($recflag) {	unless ($recflag) {
# first time call	# first time call
%recstack=();	%recstack=();
$recflag=1;	$recflag=1;
}	}
# store parameter	# store parameter
&storeparm_by_symb_inner	&storeparm_by_symb_inner
($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup);	($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup);
# don't do anything if parameter was reset	# don't do anything if parameter was reset
unless ($nval) { return; }	unless ($nval) { return; }
my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/);	my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/);
# remember that this was set	# remember that this was set
$recstack{$parm}=1;	$recstack{$parm}=1;
# what does this trigger?	# what does this trigger?
foreach my $triggered (split(/\:/,&rulescache($parm.'_triggers'))) {	foreach my $triggered (split(/\:/,&rulescache($parm.'_triggers'))) {
# don't backfire	# don't backfire
unless ((!$triggered) \|\| ($recstack{$triggered})) {	unless ((!$triggered) \|\| ($recstack{$triggered})) {
my $action=&rulescache($triggered.'_action');	my $action=&rulescache($triggered.'_action');
my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);	my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
# set triggered parameter on same level	# set triggered parameter on same level
my $newspnam=$prefix.$triggered;	my $newspnam=$prefix.$triggered;
my $newvalue='';	my $newvalue='';
my $active=1;	my $active=1;
if ($action=~/^when\_setting/) {	if ($action=~/^when\_setting/) {
# are there restrictions?	# are there restrictions?
if (&rulescache($triggered.'_triggervalue')=~/\w/) {	if (&rulescache($triggered.'_triggervalue')=~/\w/) {
$active=0;	$active=0;
foreach my $possiblevalue (split(/\s\,\s/,&rulescache($triggered.'_triggervalue'))) {	foreach my $possiblevalue (split(/\s*\,
if (lc($possiblevalue) eq lc($nval)) { $active=1; }	\s*/,&rulescache($triggered.'_triggervalue'))) {
}	if (lc($possiblevalue) eq lc($nval)) { $active=1; }
}	}
$newvalue=&rulescache($triggered.'_value');	}
} else {	$newvalue=&rulescache($triggered.'_value');
my $totalsecs=((&rulescache($triggered.'_days')24+&rulescache($triggered.'_hours'))60+&rulescache($triggered.'_min'))*60+&rulescache($triggered.'_sec');	} else {
if ($action=~/^later\_than/) {	my $totalsecs=((&rulescache($triggered.'_days')24+&rulescache($triggered.'_hours'))60+&rulescache($triggered.'_min'))*60+&rulescache($triggered.'_sec');
$newvalue=$nval+$totalsecs;	if ($action=~/^later\_than/) {
} else {	$newvalue=$nval+$totalsecs;
$newvalue=$nval-$totalsecs;	} else {
}	$newvalue=$nval-$totalsecs;
}	}
if ($active) {	}
&storeparm_by_symb($symb,$newspnam,$snum,$newvalue,&rulescache($triggered.'_type'),	if ($active) {
$uname,$udom,$csec,$recflag,$cgroup);	&storeparm_by_symb($symb,$newspnam,$snum,$newvalue,&rulescache($triggered.'_type'),
}	$uname,$udom,$csec,$recflag,$cgroup);
}	}
	}
}	}
return '';	return '';
}	}

	# Adds all given arguments to the course parameter log.
	# @returns {string} - the answer to the lonnet query.
sub log_parmset {	sub log_parmset {
return &Apache::lonnet::write_log('course','parameterlog',@_);	return &Apache::lonnet::write_log('course','parameterlog',@_);
}	}

	# Store a parameter value and type by symb, without using the parameter default actions.
	# Expire related sheets.
	#
	# @param {string} $symb - resource symb
	# @param {string} $spnam - part info and parameter name separated by a dot, e.g. '0.weight'
	# @param {integer} $snum - level
	# @param {string} $nval - new value
	# @param {string} $ntype - new type
	# @param {string} $uname - username
	# @param {string} $udom - userdomain
	# @param {string} $csec - section name
	# @param {string} $cgroup - group name
	# @returns {string} - HTML code with an error message if the parameter could not be stored.
sub storeparm_by_symb_inner {	sub storeparm_by_symb_inner {
# ---------------------------------------------------------- Get symb, map, etc	# ---------------------------------------------------------- Get symb, map, etc
my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;	my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
Line 686 sub storeparm_by_symb_inner {	Line 827 sub storeparm_by_symb_inner {
$map = &Apache::lonnet::deversion($map);	$map = &Apache::lonnet::deversion($map);

my $symbparm=$symb.'.'.$spnam;	my $symbparm=$symb.'.'.$spnam;
	my $recurseparm=$map.'___(rec).'.$spnam;
my $mapparm=$map.'___(all).'.$spnam;	my $mapparm=$map.'___(all).'.$spnam;

my $grplevel=$env{'request.course.id'}.'.['.$cgroup.'].'.$spnam;	my $grplevel=$env{'request.course.id'}.'.['.$cgroup.'].'.$spnam;
my $grplevelr=$env{'request.course.id'}.'.['.$cgroup.'].'.$symbparm;	my $grplevelr=$env{'request.course.id'}.'.['.$cgroup.'].'.$symbparm;
	my $grpleveli=$env{'request.course.id'}.'.['.$cgroup.'].'.$recurseparm;
my $grplevelm=$env{'request.course.id'}.'.['.$cgroup.'].'.$mapparm;	my $grplevelm=$env{'request.course.id'}.'.['.$cgroup.'].'.$mapparm;

my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$spnam;	my $seclevel=$env{'request.course.id'}.'.['.$csec.'].'.$spnam;
my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;	my $seclevelr=$env{'request.course.id'}.'.['.$csec.'].'.$symbparm;
	my $secleveli=$env{'request.course.id'}.'.['.$csec.'].'.$recurseparm;
my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;	my $seclevelm=$env{'request.course.id'}.'.['.$csec.'].'.$mapparm;

my $courselevel=$env{'request.course.id'}.'.'.$spnam;	my $courselevel=$env{'request.course.id'}.'.'.$spnam;
my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;	my $courselevelr=$env{'request.course.id'}.'.'.$symbparm;
	my $courseleveli=$env{'request.course.id'}.'.'.$recurseparm;
my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;	my $courselevelm=$env{'request.course.id'}.'.'.$mapparm;

my $storeunder='';	my $storeunder='';
if (($snum==14) \|\| ($snum==3)) { $storeunder=$courselevel; }	if (($snum==18) \|\| ($snum==4)) { $storeunder=$courselevel; }
if (($snum==13) \|\| ($snum==2)) { $storeunder=$courselevelm; }	if (($snum==17) \|\| ($snum==3)) { $storeunder=$courseleveli; }
if (($snum==10) \|\| ($snum==1)) { $storeunder=$courselevelr; }	if (($snum==16) \|\| ($snum==2)) { $storeunder=$courselevelm; }
if ($snum==9) { $storeunder=$seclevel; }	if (($snum==13) \|\| ($snum==1)) { $storeunder=$courselevelr; }
if ($snum==8) { $storeunder=$seclevelm; }	if ($snum==12) { $storeunder=$seclevel; }
if ($snum==7) { $storeunder=$seclevelr; }	if ($snum==11) { $storeunder=$secleveli; }
if ($snum==6) { $storeunder=$grplevel; }	if ($snum==10) { $storeunder=$seclevelm; }
if ($snum==5) { $storeunder=$grplevelm; }	if ($snum==9) { $storeunder=$seclevelr; }
if ($snum==4) { $storeunder=$grplevelr; }	if ($snum==8) { $storeunder=$grplevel; }
	if ($snum==7) { $storeunder=$grpleveli; }
	if ($snum==6) { $storeunder=$grplevelm; }
	if ($snum==5) { $storeunder=$grplevelr; }


my $delete;	my $delete;
Line 717 sub storeparm_by_symb_inner {	Line 865 sub storeparm_by_symb_inner {
my %storecontent = ($storeunder => $nval,	my %storecontent = ($storeunder => $nval,
$storeunder.'.type' => $ntype);	$storeunder.'.type' => $ntype);
my $reply='';	my $reply='';
if ($snum>3) {
	if ($snum>4) {
# ---------------------------------------------------------------- Store Course	# ---------------------------------------------------------------- Store Course
#	#
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
# Expire sheets	# Expire sheets
&Apache::lonnet::expirespread('','','studentcalc');	&Apache::lonnet::expirespread('','','studentcalc');
if (($snum==10) \|\| ($snum==7) \|\| ($snum==4)) {	if (($snum==13) \|\| ($snum==9) \|\| ($snum==5)) {
&Apache::lonnet::expirespread('','','assesscalc',$symb);	&Apache::lonnet::expirespread('','','assesscalc',$symb);
} elsif (($snum==11) \|\| ($snum==8) \|\| ($snum==5)) {	} elsif (($snum==14) \|\| ($snum==10) \|\| ($snum==6)) {
&Apache::lonnet::expirespread('','','assesscalc',$map);	&Apache::lonnet::expirespread('','','assesscalc',$map);
} else {	} else {
&Apache::lonnet::expirespread('','','assesscalc');	&Apache::lonnet::expirespread('','','assesscalc');
}	}
# Store parameter	# Store parameter
if ($delete) {	if ($delete) {
$reply=&Apache::lonnet::del	$reply=&Apache::lonnet::del
('resourcedata',[keys(%storecontent)],$cdom,$cnum);	('resourcedata',[keys(%storecontent)],$cdom,$cnum);
&log_parmset(\%storecontent,1);	&log_parmset(\%storecontent,1);
} else {	} else {
$reply=&Apache::lonnet::cput	$reply=&Apache::lonnet::cput
('resourcedata',\%storecontent,$cdom,$cnum);	('resourcedata',\%storecontent,$cdom,$cnum);
&log_parmset(\%storecontent);	&log_parmset(\%storecontent);
}	}
&Apache::lonnet::devalidatecourseresdata($cnum,$cdom);	&Apache::lonnet::devalidatecourseresdata($cnum,$cdom);
} else {	} else {
# ------------------------------------------------------------------ Store User	# ------------------------------------------------------------------ Store User
#	#
# Expire sheets	# Expire sheets
&Apache::lonnet::expirespread($uname,$udom,'studentcalc');	&Apache::lonnet::expirespread($uname,$udom,'studentcalc');
if ($snum==1) {	if ($snum==1) {
&Apache::lonnet::expirespread	&Apache::lonnet::expirespread
($uname,$udom,'assesscalc',$symb);	($uname,$udom,'assesscalc',$symb);
} elsif ($snum==2) {	} elsif ($snum==2) {
&Apache::lonnet::expirespread	&Apache::lonnet::expirespread
($uname,$udom,'assesscalc',$map);	($uname,$udom,'assesscalc',$map);
} else {	} else {
&Apache::lonnet::expirespread($uname,$udom,'assesscalc');	&Apache::lonnet::expirespread($uname,$udom,'assesscalc');
}	}
# Store parameter	# Store parameter
if ($delete) {	if ($delete) {
$reply=&Apache::lonnet::del	$reply=&Apache::lonnet::del
('resourcedata',[keys(%storecontent)],$udom,$uname);	('resourcedata',[keys(%storecontent)],$udom,$uname);
&log_parmset(\%storecontent,1,$uname,$udom);	&log_parmset(\%storecontent,1,$uname,$udom);
} else {	} else {
$reply=&Apache::lonnet::cput	$reply=&Apache::lonnet::cput
('resourcedata',\%storecontent,$udom,$uname);	('resourcedata',\%storecontent,$udom,$uname);
&log_parmset(\%storecontent,0,$uname,$udom);	&log_parmset(\%storecontent,0,$uname,$udom);
}	}
&Apache::lonnet::devalidateuserresdata($uname,$udom);	&Apache::lonnet::devalidateuserresdata($uname,$udom);
}	}

if ($reply=~/^error\:(.*)/) {	if ($reply=~/^error\:(.*)/) {
return "<span class=\"LC_error\">Write Error: $1</span>";	return "<span class=\"LC_error\">Write Error: $1</span>";
}	}
return '';	return '';
}	}


	# Returns HTML with the value of the given parameter,
	# using a readable format for dates, and
	# a warning if there is a problem with a date.
	# Used by table mode.
	# Returns HTML for the editmap.png image if no value is defined and $editable is true.
	#
	# @param {string} $value - the parameter value
	# @param {string} $type - the parameter type
	# @param {string} $name - the parameter name (unused)
	# @param {boolean} $editable - Set to true to get an icon when no value is defined.
sub valout {	sub valout {
my ($value,$type,$name,$editable)=@_;	my ($value,$type,$name,$editable)=@_;
my $result = '';	my $result = '';
Line 791 sub valout {	Line 950 sub valout {
}	}
} else {	} else {
if ($type eq 'date_interval') {	if ($type eq 'date_interval') {
my ($totalsecs,$donebutton) = split(/_/,$value);	my ($totalsecs,$donesuffix) = split(/_/,$value,2);
	my ($usesdone,$donebuttontext,$proctor,$secretkey);
	if ($donesuffix =~ /^done\:([^\:]+)\:(.*)$/) {
	$donebuttontext = $1;
	(undef,$proctor,$secretkey) = split(/_/,$2);
	$usesdone = 'done';
	} elsif ($donesuffix =~ /^done(\|_.+)$/) {
	$donebuttontext = &mt('Done');
	($usesdone,$proctor,$secretkey) = split(/_/,$donesuffix);
	}
my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($totalsecs);	my ($sec,$min,$hour,$mday,$mon,$year)=gmtime($totalsecs);
my @timer;	my @timer;
$year=$year-70;	$year=$year-70;
Line 825 sub valout {	Line 993 sub valout {
push(@timer,&mt('[quant,_1,sec]',0));	push(@timer,&mt('[quant,_1,sec]',0));
}	}
$result.=join(", ",@timer);	$result.=join(", ",@timer);
if ($donebutton eq 'done') {	if ($usesdone eq 'done') {
$result .= ' '.&mt('+ "done"');	if ($secretkey) {
	$result .= ' '.&mt('+ "[_1]" with proctor key: [_2]',$donebuttontext,$secretkey);
	} else {
	$result .= ' + "'.$donebuttontext.'"';
	}
}	}
} elsif (&isdateparm($type)) {	} elsif (&isdateparm($type)) {
$result = &Apache::lonlocal::locallocaltime($value).	$result = &Apache::lonlocal::locallocaltime($value).
&date_sanity_info($value);	&date_sanity_info($value);
} else {	} else {
$result = $value;	$result = $value;
$result=~s/\,/\, /gs;	$result=~s/\,/\, /gs;
$result = &HTML::Entities::encode($result,'"<>&');	$result = &HTML::Entities::encode($result,'"<>&');
}	}
}	}
return $result;	return $result;
}	}


	# Returns HTML containing a link on a parameter value, for table mode.
	# The link uses the javascript function 'pjump'.
	#
	# @param {string} $type - parameter type
	# @param {string} $dis - dialog title for editing the parameter value and type
	# @param {string} $value - parameter value
	# @param {string} $marker - identifier for the parameter, "resource id&part_parameter name&level", will be passed as pres_marker when the user submits a change.
	# @param {string} $return - prefix for the name of the form and field names that will be used to submit the form ('parmform.pres')
	# @param {string} $call - javascript function to call to submit the form ('psub')
sub plink {	sub plink {
my ($type,$dis,$value,$marker,$return,$call)=@_;	my ($type,$dis,$value,$marker,$return,$call)=@_;
my $winvalue=$value;	my $winvalue=$value;
unless ($winvalue) {	unless ($winvalue) {
if (&isdateparm($type)) {	if (&isdateparm($type)) {
$winvalue=$env{'form.recent_'.$type};	$winvalue=$env{'form.recent_'.$type};
} else {	} else {
$winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};	$winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
Line 858 sub plink {	Line 1039 sub plink {
my $unencmarker = $marker;	my $unencmarker = $marker;
foreach my $item (\$type, \$dis, \$winvalue, \$marker, \$return, \$call,	foreach my $item (\$type, \$dis, \$winvalue, \$marker, \$return, \$call,
\$hour, \$min, \$sec) {	\$hour, \$min, \$sec) {
$$item = &HTML::Entities::encode($$item,'"<>&');	$$item = &HTML::Entities::encode($$item,'"<>&');
$$item =~ s/\'/\\\'/g;	$$item =~ s/\'/\\\'/g;
}	}
return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$unencmarker.'" /></td></tr><tr><td align="center">'.	return '<table width="100%"><tr valign="top" align="right"><td><a name="'.$unencmarker.'" /></td></tr><tr><td align="center">'.
'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
Line 867 sub plink {	Line 1048 sub plink {
$valout.'</a></td></tr></table>';	$valout.'</a></td></tr></table>';
}	}

	# Javascript for table mode.
sub page_js {	sub page_js {

my $selscript=&Apache::loncommon::studentbrowser_javascript();	my $selscript=&Apache::loncommon::studentbrowser_javascript();
Line 916 ENDJS	Line 1098 ENDJS

}	}

	# Javascript to show or hide the map selection (function showHide_courseContent),
	# for table and overview modes.
sub showhide_js {	sub showhide_js {
return <<"COURSECONTENTSCRIPT";	return <<"COURSECONTENTSCRIPT";

Line 936 function showHide_courseContent() {	Line 1120 function showHide_courseContent() {
COURSECONTENTSCRIPT	COURSECONTENTSCRIPT
}	}

	# Javascript functions showHideLenient and toggleParmTextbox, for overview mode
sub toggleparmtextbox_js {	sub toggleparmtextbox_js {
return <<"ENDSCRIPT";	return <<"ENDSCRIPT";

Line 995 function toggleParmTextbox(form,key) {	Line 1180 function toggleParmTextbox(form,key) {
ENDSCRIPT	ENDSCRIPT
}	}

	# Javascript function validateParms, for overview mode
sub validateparms_js {	sub validateparms_js {
return <<'ENDSCRIPT';	return <<'ENDSCRIPT';

Line 1068 function validateParms() {	Line 1254 function validateParms() {
ENDSCRIPT	ENDSCRIPT
}	}

	# Javascript initialization, for overview mode
sub ipacc_boxes_js {	sub ipacc_boxes_js {
my $remove = &mt('Remove');	my $remove = &mt('Remove');
return <<"END";	return <<"END";
Line 1092 sub ipacc_boxes_js {	Line 1279 sub ipacc_boxes_js {
END	END
}	}

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

	}

	# Prints HTML page start for table mode.
	# @param {Apache2::RequestRec} $r - the Apache request
	# @param {string} $psymb - resource symb
	# @param {string} $crstype - course type (Community / Course / Placement Test)
sub startpage {	sub startpage {
my ($r,$psymb,$crstype) = @_;	my ($r,$psymb,$crstype) = @_;

Line 1102 sub startpage {	Line 1319 sub startpage {
$loaditems{'onload'} = "showHide_courseContent(); group_or_section('cgroup'); resize_scrollbox('mapmenuscroll','1','1');";	$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'})) {
&Apache::lonhtmlcommon::add_breadcrumb({help=>'Problem_Parameters',	&Apache::lonhtmlcommon::add_breadcrumb({help=>'Problem_Parameters',
text=>"Problem Parameters"});	text=>"Problem Parameters"});
} else {	} else {
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
text=>"Table Mode",	text=>"Table Mode",
help => 'Course_Setting_Parameters'});	help => 'Course_Setting_Parameters'});
}	}
my $js = &page_js().'	my $js = &page_js().'
<script type="text/javascript">	<script type="text/javascript">
Line 1140 ENDHEAD	Line 1357 ENDHEAD
}	}


	# Prints a row for table mode (except for the tr start).
	# Every time a hash reference is passed, a single entry is used, so print_row
	# could just use these values, but why make it simple when it can be complicated ?
	#
	# @param {Apache2::RequestRec} $r - the Apache request
	# @param {string} $which - parameter key ('parameter_'.part.'_'.name)
	# @param {hash reference} $part - parameter key -> parameter part (can be problem part.'_'.response id for response parameters)
	# @param {hash reference} $name - parameter key -> parameter name
	# @param {hash reference} $symbp - resource id -> symb
	# @param {string} $rid - resource id
	# @param {hash reference} $default - parameter key -> resource parameter default value
	# @param {hash reference} $defaulttype - parameter key -> resource parameter default type
	# @param {hash reference} $display - parameter key -> full title for the parameter
	# @param {string} $defbgone - user level and other levels background color
	# @param {string} $defbgtwo - section level background color, also used for part number
	# @param {string} $defbgthree - group level background color
	# @param {string} $parmlev - parameter level (Resource:'full', Map:'map', Course:'general')
	# @param {string} $uname - user name
	# @param {string} $udom - user domain
	# @param {string} $csec - section name
	# @param {string} $cgroup - group name
	# @param {array reference} $usersgroups - list of groups the user belongs to, if any
	# @param {boolean} $noeditgrp - true if no edit is allowed for group level parameters
sub print_row {	sub print_row {
my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,	my ($r,$which,$part,$name,$symbp,$rid,$default,$defaulttype,$display,$defbgone,
$defbgtwo,$defbgthree,$parmlev,$uname,$udom,$csec,$cgroup,$usersgroups,$noeditgrp)=@_;	$defbgtwo,$defbgthree,$parmlev,$uname,$udom,$csec,$cgroup,$usersgroups,$noeditgrp)=@_;
Line 1147 sub print_row {	Line 1387 sub print_row {
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);	my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);

# get the values for the parameter in cascading order	# get the values for the parameter in cascading order
# empty levels will remain empty	# empty levels will remain empty
my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},	my ($result,@outpar)=&parmval($$part{$which}.'.'.$$name{$which},
$rid,$$default{$which},$uname,$udom,$csec,$cgroup,$courseopt);	$rid,$$default{$which},$uname,$udom,$csec,$cgroup,$courseopt);
# get the type for the parameters	# get the type for the parameters
# problem: these may not be set for all levels	# problem: these may not be set for all levels
my ($typeresult,@typeoutpar)=&parmval($$part{$which}.'.'.	my ($typeresult,@typeoutpar)=&parmval($$part{$which}.'.'.
$$name{$which}.'.type',$rid,	$$name{$which}.'.type',$rid,
$$defaulttype{$which},$uname,$udom,$csec,$cgroup,$courseopt);	$$defaulttype{$which},$uname,$udom,$csec,$cgroup,$courseopt);
# cascade down manually	# cascade down manually
my $cascadetype=$$defaulttype{$which};	my $cascadetype=$$defaulttype{$which};
for (my $i=14;$i>0;$i--) {	for (my $i=18;$i>0;$i--) {
if ($typeoutpar[$i]) {	if ($typeoutpar[$i]) {
$cascadetype=$typeoutpar[$i];	$cascadetype=$typeoutpar[$i];
} else {	} else {
$typeoutpar[$i]=$cascadetype;	$typeoutpar[$i]=$cascadetype;
}	}
}	}
Line 1175 sub print_row {	Line 1415 sub print_row {
}	}
my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');	my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');
if ($automatic) {	if ($automatic) {
$parm.='<span class="LC_warning"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</span>';	$parm.='<span class="LC_warning"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</span>';
}	}
$r->print('<td>'.$parm.'</td>');	$r->print('<td>'.$parm.'</td>');

Line 1187 sub print_row {	Line 1427 sub print_row {

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

if ($uname) {	if ($uname) {
&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);	&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
	&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
} elsif ($cgroup) {	} elsif ($cgroup) {
&print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp);	&print_td($r,7,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp);
	&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display,$noeditgrp);
} elsif ($csec) {	} elsif ($csec) {
&print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);	&print_td($r,11,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
	&print_td($r,10,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
} else {	} else {
&print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);	&print_td($r,17,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
	&print_td($r,16,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
}	}
} else {	} else {
if ($uname) {	if ($uname) {
Line 1213 sub print_row {	Line 1456 sub print_row {
($coursereply,$othergrp,$grp_parm,$controlgrp) =	($coursereply,$othergrp,$grp_parm,$controlgrp) =
&print_usergroups($r,$$part{$which}.'.'.$$name{$which},	&print_usergroups($r,$$part{$which}.'.'.$$name{$which},
$rid,$cgroup,$defbgone,$usersgroups,$result,$courseopt);	$rid,$cgroup,$defbgone,$usersgroups,$result,$courseopt);
if ($coursereply && $result > 3) {	if ($coursereply && $result > 4) {
if (defined($controlgrp)) {	if (defined($controlgrp)) {
if ($cgroup ne $controlgrp) {	if ($cgroup ne $controlgrp) {
$effective_parm = $grp_parm;	$effective_parm = $grp_parm;
Line 1224 sub print_row {	Line 1467 sub print_row {
}	}
}	}

&print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);	&print_td($r,18,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
	&print_td($r,17,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
	&print_td($r,16,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
	&print_td($r,15,'#FFDDDD',$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
	&print_td($r,14,'#FFDDDD',$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
&print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);	&print_td($r,13,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
&print_td($r,12,'#FFDDDD',$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
&print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
&print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);

if ($csec) {	if ($csec) {
	&print_td($r,12,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
	&print_td($r,11,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
	&print_td($r,10,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);	&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
&print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
&print_td($r,7,$defbgtwo,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
}	}

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

if ($uname) {	if ($uname) {
if ($othergrp) {	if ($othergrp) {
$r->print($othergrp);	$r->print($othergrp);
}	}
	&print_td($r,4,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);	&print_td($r,3,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);	&print_td($r,2,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
&print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);	&print_td($r,1,$defbgone,$result,\@outpar,$mprefix,$which,\@typeoutpar,$display);
Line 1258 sub print_row {	Line 1505 sub print_row {
my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.	my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
'.'.$$name{$which},$$symbp{$rid});	'.'.$$name{$which},$$symbp{$rid});
my $sessionvaltype=$typeoutpar[$result];	my $sessionvaltype=$typeoutpar[$result];
if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }	if (!defined($sessionvaltype)) {
	$sessionvaltype=$$defaulttype{$which};
	}
$r->print('<td style="background-color:#999999;" align="center"><font color="#FFFFFF">'.	$r->print('<td style="background-color:#999999;" align="center"><font color="#FFFFFF">'.
&valout($sessionval,$sessionvaltype,$$name{$which}).' '.	&valout($sessionval,$sessionvaltype,$$name{$which}).' '.
'</font></td>');	'</font></td>');
Line 1267 sub print_row {	Line 1516 sub print_row {
$r->print("\n");	$r->print("\n");
}	}

	# Prints a cell for table mode.
	#
	# FIXME: some of these parameter names are uninspired ($which and $value)
	# Also, it would make more sense to pass the display for this cell rather
	# than the full display hash and the key to use.
	#
	# @param {Apache2::RequestRec} $r - the Apache request
	# @param {integer} $which - level
	# @param {string} $defbg - cell background color
	# @param {integer} $result - the most specific level that is defined for that parameter
	# @param {array reference} $outpar - array level -> parameter value (when defined)
	# @param {string} $mprefix - resource id.'&'.part.'_'.parameter name.'&'
	# @param {string} $value - parameter key ('parameter_'.part.'_'.name)
	# @param {array reference} $typeoutpar - array level -> parameter type (when defined)
	# @param {hash reference} $display - parameter key -> full title for the parameter
	# @param {boolean} $noeditgrp - true if no edit is allowed for group level parameters
sub print_td {	sub print_td {
my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display,$noeditgrp)=@_;	my ($r,$which,$defbg,$result,$outpar,$mprefix,$value,$typeoutpar,$display,$noeditgrp)=@_;
$r->print('<td style="background-color:'.(($result==$which)?'#AAFFAA':$defbg).	$r->print('<td style="background-color:'.(($result==$which)?'#AAFFAA':$defbg).
';" align="center">');	';" align="center">');
my $nolink = 0;	my $nolink = 0;
if ($which == 11 \|\| $which == 12) {	if ($which == 14 \|\| $which == 15) {
$nolink = 1;	$nolink = 1;
} elsif (($env{'request.course.sec'} ne '') && ($which > 9)) {	} elsif (($env{'request.course.sec'} ne '') && ($which > 12)) {
$nolink = 1;	$nolink = 1;
} elsif ($which == 4 \|\| $which == 5 \|\| $which == 6) {	} elsif ($which == 5 \|\| $which == 6 \|\| $which == 7 \|\| $which == 8) {
if ($noeditgrp) {	if ($noeditgrp) {
$nolink = 1;	$nolink = 1;
}	}
} elsif ($mprefix =~ /availablestudent\&$/) {	} elsif ($mprefix =~ /availablestudent\&$/) {
if ($which > 3) {	if ($which > 4) {
$nolink = 1;	$nolink = 1;
}	}
} elsif ($mprefix =~ /examcode\&$/) {	} elsif ($mprefix =~ /examcode\&$/) {
Line 1291 sub print_td {	Line 1556 sub print_td {
}	}
if ($nolink) {	if ($nolink) {
$r->print(&valout($$outpar[$which],$$typeoutpar[$which],$mprefix));	$r->print(&valout($$outpar[$which],$$typeoutpar[$which],$mprefix));
	# FIXME: probably a good thing that mprefix is not used in valout, because it does not look like a parameter name !
} else {	} else {
$r->print(&plink($$typeoutpar[$which],	$r->print(&plink($$typeoutpar[$which],
$$display{$value},$$outpar[$which],	$$display{$value},$$outpar[$which],
Line 1299 sub print_td {	Line 1565 sub print_td {
$r->print('</td>'."\n");	$r->print('</td>'."\n");
}	}

	# FIXME: Despite the name, this does not print anything, the $r parameter is unused.
	# Returns HTML and other info for the cell added when a user is selected
	# and that user is in several groups. This is the cell with the title "Control by other group".
	#
	# @param {Apache2::RequestRec} $r - the Apache request (unused)
	# @param {string} $what - parameter part.'.'.parameter name
	# @param {string} $rid - resource id
	# @param {string} $cgroup - group name
	# @param {string} $defbg - cell background color
	# @param {array reference} $usersgroups - list of groups the user belongs to, if any
	# @param {integer} $result - level
	# @param {hash reference} $courseopt - course parameters hash (result of lonnet::get_courseresdata, dump of course's resourcedata.db)
	# @returns {Array} - array (parameter value for the other group, HTML for the cell, HTML with the value, name of the other group)
sub print_usergroups {	sub print_usergroups {
my ($r,$what,$rid,$cgroup,$defbg,$usersgroups,$result,$courseopt) = @_;	my ($r,$what,$rid,$cgroup,$defbg,$usersgroups,$result,$courseopt) = @_;
my $courseid = $env{'request.course.id'};	my $courseid = $env{'request.course.id'};
Line 1306 sub print_usergroups {	Line 1585 sub print_usergroups {
my $symb = &symbcache($rid);	my $symb = &symbcache($rid);
my $symbparm=$symb.'.'.$what;	my $symbparm=$symb.'.'.$what;
my $map=(&Apache::lonnet::decode_symb($symb))[0];	my $map=(&Apache::lonnet::decode_symb($symb))[0];
	my $recurseparm=$map.'___(rec).'.$what;
my $mapparm=$map.'___(all).'.$what;	my $mapparm=$map.'___(all).'.$what;
my ($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype) =	my ($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype) =
&parm_control_group($courseid,$usersgroups,$symbparm,$mapparm,$what,	&parm_control_group($courseid,$usersgroups,$symbparm,$mapparm,
$courseopt);	$recurseparm,$what,$courseopt);
my $bgcolor = $defbg;	my $bgcolor = $defbg;
my $grp_parm;	my $grp_parm;
if (($coursereply) && ($cgroup ne $resultgroup)) {	if (($coursereply) && ($cgroup ne $resultgroup)) {
Line 1331 sub print_usergroups {	Line 1611 sub print_usergroups {
return ($coursereply,$output,$grp_parm,$resultgroup);	return ($coursereply,$output,$grp_parm,$resultgroup);
}	}

	# Looks for a group with a defined parameter for given user and parameter.
	# Used by print_usergroups.
	#
	# @param {string} $courseid - the course id
	# @param {array reference} $usersgroups - list of groups the user belongs to, if any
	# @param {string} $symbparm - end of the course parameter hash key for the group resource level
	# @param {string} $mapparm - end of the course parameter hash key for the group map/folder level
	# @param {string} $recurseparm - end of the course parameter hash key for the group recursive level
	# @param {string} $what - parameter part.'.'.parameter name
	# @param {hash reference} $courseopt - course parameters hash
	# @returns {Array} - (parameter value for the group, course parameter hash key for the parameter, name of the group, level name, parameter type)
sub parm_control_group {	sub parm_control_group {
my ($courseid,$usersgroups,$symbparm,$mapparm,$what,$courseopt) = @_;	my ($courseid,$usersgroups,$symbparm,$mapparm,$recurseparm,$what,$courseopt) = @_;
my ($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype);	my ($coursereply,$resultitem,$resultgroup,$resultlevel,$resulttype);
my $grpfound = 0;	my $grpfound = 0;
my @levels = ($symbparm,$mapparm,$what);	my @levels = ($symbparm,$mapparm,$recurseparm,$what);
my @levelnames = ('resource','map/folder','general');	my @levelnames = ('resource','map/folder','recursive','general');
foreach my $group (@{$usersgroups}) {	foreach my $group (@{$usersgroups}) {
if ($grpfound) { last; }	if ($grpfound) { last; }
for (my $i=0; $i<@levels; $i++) {	for (my $i=0; $i<@levels; $i++) {
Line 1357 sub parm_control_group {	Line 1648 sub parm_control_group {



	# extracts lots of information about all of the the course's resources into a variety of hashes.
sub extractResourceInformation {	sub extractResourceInformation {
my $ids = shift;	my $ids = shift;
my $typep = shift;	my $typep = shift;
Line 1446 sub extractResourceInformation {	Line 1738 sub extractResourceInformation {
$$maptitles{$mapid}=&Apache::lonnet::gettitle($$mapp{$id});	$$maptitles{$mapid}=&Apache::lonnet::gettitle($$mapp{$id});
}	}
$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};	$$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
$$symbp{$mapid}=$$mapp{$id}.'___(all)';	$$symbp{$mapid}=$$mapp{$id}.'___(all)'; # Added in rev. 1.57, but seems not to be used.
	# Lines 1038 and 1114 which use $symbp{$mapid}
	# are commented out in rev. 1.57
} else {	} else {
$$mapp{$id} = $$mapp{$mapid};	$$mapp{$id} = $$mapp{$mapid};
}	}
Line 1575 sub lookUpTableParameter {	Line 1869 sub lookUpTableParameter {
'contentopen' => 'time_settings',	'contentopen' => 'time_settings',
'contentclose' => 'time_settings',	'contentclose' => 'time_settings',
'discussend' => 'time_settings',	'discussend' => 'time_settings',
'printstartdate' => 'time_settings',	'printstartdate' => 'time_settings',
'printenddate' => 'time_settings',	'printenddate' => 'time_settings',
'weight' => 'grading',	'weight' => 'grading',
'handgrade' => 'grading',	'handgrade' => 'grading',
'maxtries' => 'tries',	'maxtries' => 'tries',
Line 1751 sub partmenu {	Line 2045 sub partmenu {
my %temphash=();	my %temphash=();
foreach (@{$psprt}) { $temphash{$_}=1; }	foreach (@{$psprt}) { $temphash{$_}=1; }
foreach my $tempkey (sort {	foreach my $tempkey (sort {
if ($a==$b) { return ($a cmp $b) } else { return ($a <=> $b); }	if ($a==$b) { return ($a cmp $b) } else { return ($a <=> $b); }
} keys(%{$allparts})) {	} keys(%{$allparts})) {
unless ($tempkey =~ /\./) {	unless ($tempkey =~ /\./) {
$r->print('<option value="'.$tempkey.'"');	$r->print('<option value="'.$tempkey.'"');
if ($$psprt[0] eq "all" \|\| $temphash{$tempkey}) {	if ($$psprt[0] eq "all" \|\| $temphash{$tempkey}) {
$r->print(' selected="selected"');	$r->print(' selected="selected"');
	}
	$r->print('>'.$$allparts{$tempkey}.'</option>');
}	}
$r->print('>'.$$allparts{$tempkey}.'</option>');
}
}	}
$r->print('</select>');	$r->print('</select>');
}	}
Line 2118 sub keysplit {	Line 2412 sub keysplit {
sub keysinorder {	sub keysinorder {
my ($name,$keyorder)=@_;	my ($name,$keyorder)=@_;
return sort {	return sort {
$$keyorder{$a} <=> $$keyorder{$b};	$$keyorder{$a} <=> $$keyorder{$b};
} (keys(%{$name}));	} (keys(%{$name}));
}	}

sub keysinorder_bytype {	sub keysinorder_bytype {
my ($name,$keyorder)=@_;	my ($name,$keyorder)=@_;
return sort {	return sort {
my $ta=(split('_',$a))[-1];	my $ta=(split('_',$a))[-1];
my $tb=(split('_',$b))[-1];	my $tb=(split('_',$b))[-1];
if ($$keyorder{'parameter_0_'.$ta} == $$keyorder{'parameter_0_'.$tb}) {	if ($$keyorder{'parameter_0_'.$ta} == $$keyorder{'parameter_0_'.$tb}) {
return ($a cmp $b);	return ($a cmp $b);
}	}
$$keyorder{'parameter_0_'.$ta} <=> $$keyorder{'parameter_0_'.$tb};	$$keyorder{'parameter_0_'.$ta} <=> $$keyorder{'parameter_0_'.$tb};
} (keys(%{$name}));	} (keys(%{$name}));
}	}

sub keysindisplayorder {	sub keysindisplayorder {
my ($name,$keyorder)=@_;	my ($name,$keyorder)=@_;
return sort {	return sort {
$$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b};	$$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b};
} (keys(%{$name}));	} (keys(%{$name}));
}	}

Line 2178 sub standardkeyorder {	Line 2472 sub standardkeyorder {
'parameter_0_discussend' => 19,	'parameter_0_discussend' => 19,
'parameter_0_discusshide' => 20,	'parameter_0_discusshide' => 20,
'parameter_0_discussvote' => 21,	'parameter_0_discussvote' => 21,
'parameter_0_printstartdate' => 22,	'parameter_0_printstartdate' => 22,
'parameter_0_printenddate' => 23);	'parameter_0_printenddate' => 23);
}	}


	# Table mode UI.
sub assessparms {	sub assessparms {

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



# -------------------------------------------------------- Variable declaration	# -------------------------------------------------------- Variable declaration
my @ids=();	my @ids=();
my %symbp=();	my %symbp=();
Line 2272 sub assessparms {	Line 2566 sub assessparms {

# ----------------------------------------------- Was this started from grades?	# ----------------------------------------------- Was this started from grades?

if (($env{'form.command'} eq 'set') && ($env{'form.url'})	if (($env{'form.command'} eq 'set') && ($env{'form.url'}) &&
&& (!$env{'form.dis'})) {	(!$env{'form.dis'})) {
my $url=$env{'form.url'};	my $url=$env{'form.url'};
$url=~s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;	$url=~s-^http://($ENV{'SERVER_NAME'}\|$ENV{'HTTP_HOST'})--;
$pssymb=&Apache::lonnet::symbread($url);	$pssymb=&Apache::lonnet::symbread($url);
Line 2291 sub assessparms {	Line 2585 sub assessparms {

my $id=$env{'form.id'};	my $id=$env{'form.id'};
if (($id) && ($udom)) {	if (($id) && ($udom)) {
$uname=(&Apache::lonnet::idget($udom,$id))[1];	$uname=(&Apache::lonnet::idget($udom,[$id],'ids'))[1];
if ($uname) {	if ($uname) {
$id='';	$id='';
} else {	} else {
Line 2368 sub assessparms {	Line 2662 sub assessparms {
my $totalstored = 0;	my $totalstored = 0;
my $now = time;	my $now = time;
for (my $i=0;$i<=$#markers;$i++) {	for (my $i=0;$i<=$#markers;$i++) {
my ($needsrelease,$needsnewer,$name);	my ($needsrelease,$needsnewer,$name,$namematch);
if (($env{'request.course.sec'} ne '') && ($markers[$i] =~ /\&(7\|8\|9)$/)) {	if (($env{'request.course.sec'} ne '') && ($markers[$i] =~ /\&(9\|10\|11\|12)$/)) {
next if ($csec ne $env{'request.course.sec'});	next if ($csec ne $env{'request.course.sec'});
}	}
if ($markers[$i] =~ /\&(6\|5\|4)$/) {	if ($markers[$i] =~ /\&(8\|7\|6\|5)$/) {
next if ($noeditgrp);	next if ($noeditgrp);
}	}
if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1\|2\|3)$/) {	if ($markers[$i] =~ /\&(17\|11\|7\|3)$/) {
	$namematch = 'maplevelrecurse';
	}
	if ($markers[$i] =~ /^[\d.]+\&0_availablestudent\&(1\|2\|3\|4)$/) {
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 2461 sub assessparms {	Line 2758 sub assessparms {
}	}
}	}
$needsrelease =	$needsrelease =
$Apache::lonnet::needsrelease{"parameter:$name:$val:$valmatch"};	$Apache::lonnet::needsrelease{"parameter:$name:$val:$valmatch:"};
if ($needsrelease) {	if ($needsrelease) {
unless ($got_chostname) {	unless ($got_chostname) {
($chostname,$cmajor,$cminor) = &parameter_release_vars();	($chostname,$cmajor,$cminor) = &parameter_release_vars();
$got_chostname = 1;	$got_chostname = 1;
}	}
$needsnewer = &parameter_releasecheck($name,$val,$valmatch,	$needsnewer = &parameter_releasecheck($name,$val,$valmatch,undef,
$needsrelease,	$needsrelease,
$cmajor,$cminor);	$cmajor,$cminor);
}	}
}	}
if ($needsnewer) {	if ($needsnewer) {
$message .= &oldversion_warning($name,$values[$i],$chostname,$cmajor,	undef($namematch);
	} else {
	my $currneeded;
	if ($needsrelease) {
	$currneeded = $needsrelease;
	}
	if ($namematch) {
	$needsrelease =
	$Apache::lonnet::needsrelease{"parameter::::$namematch"};
	if (($needsrelease) && (($currneeded eq '') \|\| ($needsrelease < $currneeded))) {
	unless ($got_chostname) {
	($chostname,$cmajor,$cminor) = &parameter_release_vars();
	$got_chostname = 1;
	}
	$needsnewer = &parameter_releasecheck(undef,undef,undef,$namematch,
	$needsrelease,
	$cmajor,$cminor);
	} else {
	undef($namematch);
	}
	}
	}
	if ($needsnewer) {
	$message .= &oldversion_warning($name,$namematch,$values[$i],$chostname,$cmajor,
$cminor,$needsrelease);	$cminor,$needsrelease);
} else {	} else {
$message.=&storeparm(split(/\&/,$markers[$i]),	$message.=&storeparm(split(/\&/,$markers[$i]),
Line 2622 ENDPARMSELSCRIPT	Line 2942 ENDPARMSELSCRIPT
#	#
# This produces the cascading table output of parameters	# This produces the cascading table output of parameters
#	#
my $coursespan=$csec?8:5;	my $coursespan=$csec?10:6;
my $userspan=3;	my $userspan=4;
if ($cgroup ne '') {	if ($cgroup ne '') {
$coursespan += 3;	$coursespan += 4;
}	}

$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table());
#	#
# This produces the headers	# 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) {
if (@usersgroups > 1) {	if (@usersgroups > 1) {
$userspan ++;	$userspan ++;
}	}
$r->print('<th colspan="'.$userspan.'" rowspan="2">');	$r->print('<th colspan="'.$userspan.'" rowspan="2">');
$r->print(&mt('User [_1] at Domain [_2]',"'".$uname."'","'".$udom."'").'</th>');	$r->print(&mt('User [_1] at Domain [_2]',"'".$uname."'","'".$udom."'").'</th>');
}	}
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",
'rl' => "Resource Level",	'rl' => "Resource Level",
Line 2655 ENDPARMSELSCRIPT	Line 2975 ENDPARMSELSCRIPT
'femof' => 'from Enclosing Map or Folder',	'femof' => 'from Enclosing Map or Folder',
'gen' => 'general',	'gen' => 'general',
'foremf' => 'for Enclosing Map or Folder',	'foremf' => 'for Enclosing Map or Folder',
	'formfr' => 'for Map or Folder (recursive)',
'fr' => 'for Resource'	'fr' => 'for Resource'
);	);
$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:$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="3">$lt{'ic'}</th><th colspan="2">$lt{'rl'}</th>
<th colspan="1">$lt{'ic'}</th>	<th colspan="1">$lt{'ic'}</th>

ENDTABLETWO	ENDTABLETWO
if ($csec) {	if ($csec) {
$r->print('<th colspan="3">'.	$r->print('<th colspan="4">'.
&mt("in Section")." $csec</th>");	&mt("in Section")." $csec</th>");
}	}
if ($cgroup) {	if ($cgroup) {
$r->print('<th colspan="3">'.	$r->print('<th colspan="4">'.
&mt("in Group")." $cgroup</th>");	&mt("in Group")." $cgroup</th>");
}	}
$r->print(<<ENDTABLEHEADFOUR);	$r->print(<<ENDTABLEHEADFOUR);
</tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>	</tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>
<th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>	<th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
<th>$lt{'gen'}</th><th>$lt{'foremf'}</th>	<th>$lt{'gen'}</th><th>$lt{'formfr'}</th><th>$lt{'foremf'}</th>
<th>$lt{'def'}</th><th>$lt{'femof'}</th><th>$lt{'fr'}</th>	<th>$lt{'def'}</th><th>$lt{'femof'}</th><th>$lt{'fr'}</th>
ENDTABLEHEADFOUR	ENDTABLEHEADFOUR

if ($csec) {	if ($csec) {
$r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');	$r->print('<th>'.$lt{'gen'}.'</th><th>'.$lt{'formfr'}.'</th><th>'.$lt{'foremf'}.'</th><th>'.$lt{'fr'}.'</th>');
}	}

if ($cgroup) {
$r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');
}

if ($uname) {	if ($cgroup) {
	$r->print('<th>'.$lt{'gen'}.'</th><th>'.$lt{'formfr'}.'</th><th>'.&mt('foremf').'</th><th>'.$lt{'fr'}.'</th>');
	}

	if ($uname) {
if (@usersgroups > 1) {	if (@usersgroups > 1) {
$r->print('<th>'.&mt('Control by other group?').'</th>');	$r->print('<th>'.&mt('Control by other group?').'</th>');
}	}
$r->print('<th>'.&mt('general').'</th><th>'.&mt('for Enclosing Map or Folder').'</th><th>'.&mt('for Resource').'</th>');	$r->print('<th>'.$lt{'gen'}.'</th><th>'.$lt{'formfr'}.'</th><th>'.$lt{'foremf'}.'</th><th>'.$lt{'fr'}.'</th>');
}	}

$r->print('</tr>');	$r->print('</tr>');
#	#
# Done with the headers	# Done with the headers
#	#
my $defbgone='';	my $defbgone='';
my $defbgtwo='';	my $defbgtwo='';
my $defbgthree = '';	my $defbgthree = '';

foreach my $rid (@ids) {	foreach my $rid (@ids) {

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

if ((!$pssymb &&	if ((!$pssymb &&
(($pschp eq 'all') \|\| ($allmaps{$pschp} eq $mapp{$rid})))	(($pschp eq 'all') \|\| ($allmaps{$pschp} eq $mapp{$rid})))
\|\|	\|\|
($pssymb && $pssymb eq $symbp{$rid})) {	($pssymb && $pssymb eq $symbp{$rid})) {
# ------------------------------------------------------ Entry for one resource	# ------------------------------------------------------ Entry for one resource
if ($defbgone eq '#E0E099') {	if ($defbgone eq '#E0E099') {
$defbgone='#E0E0DD';	$defbgone='#E0E0DD';
Line 2739 ENDTABLEHEADFOUR	Line 3060 ENDTABLEHEADFOUR
my $filter=$env{'form.filter'};	my $filter=$env{'form.filter'};
foreach my $tempkeyp (&keysplit($keyp{$rid})) {	foreach my $tempkeyp (&keysplit($keyp{$rid})) {
if (grep $_ eq $tempkeyp, @catmarker) {	if (grep $_ eq $tempkeyp, @catmarker) {
my $parmname=&Apache::lonnet::metadata($uri,$tempkeyp.'.name');	my $parmname=&Apache::lonnet::metadata($uri,$tempkeyp.'.name');
# We may only want certain parameters listed	# We may only want certain parameters listed
if ($filter) {	if ($filter) {
unless ($filter=~/\Q$parmname\E/) { next; }	unless ($filter=~/\Q$parmname\E/) { next; }
}	}
$name{$tempkeyp}=$parmname;	$name{$tempkeyp}=$parmname;
$part{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp.'.part');	$part{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp.'.part');

my $parmdis=&Apache::lonnet::metadata($uri,$tempkeyp.'.display');	my $parmdis=&Apache::lonnet::metadata($uri,$tempkeyp.'.display');
if ($allparms{$name{$tempkeyp}} ne '') {	if ($allparms{$name{$tempkeyp}} ne '') {
my $identifier;	my $identifier;
if ($parmdis =~ /(\s\[Part.)$/) {	if ($parmdis =~ /(\s\[Part.)$/) {
$identifier = $1;	$identifier = $1;
}	}
$display{$tempkeyp} = $allparms{$name{$tempkeyp}}.$identifier;	$display{$tempkeyp} = $allparms{$name{$tempkeyp}}.$identifier;
} else {	} else {
$display{$tempkeyp} = $parmdis;	$display{$tempkeyp} = $parmdis;
}	}
unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }	unless ($display{$tempkeyp}) { $display{$tempkeyp}=''; }
$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';	$display{$tempkeyp}.=' ('.$name{$tempkeyp}.')';
$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp);	$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp);
$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp.'.type');	$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$tempkeyp.'.type');
$thistitle=&Apache::lonnet::metadata($uri,$tempkeyp.'.title');	$thistitle=&Apache::lonnet::metadata($uri,$tempkeyp.'.title');
}	}
}	}
my $totalparms=scalar(keys(%name));	my $totalparms=scalar(keys(%name));
if ($totalparms>0) {	if ($totalparms>0) {
my $firstrow=1;	my $firstrow=1;
my $title=&Apache::lonnet::gettitle($symbp{$rid});	my $title=&Apache::lonnet::gettitle($symbp{$rid});
$r->print('<tr><td style="background-color:'.$defbgone.';"'.	$r->print('<tr><td style="background-color:'.$defbgone.';"'.
' rowspan='.$totalparms.	' rowspan='.$totalparms.
Line 2823 ENDTABLEHEADFOUR	Line 3144 ENDTABLEHEADFOUR

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

#----------------------- loop through ids and get all parameter types for map	#----------------------- loop through ids and get all parameter types for map
Line 2843 ENDTABLEHEADFOUR	Line 3164 ENDTABLEHEADFOUR

# $r->print("$mapid:$map: $rid <br /> \n");	# $r->print("$mapid:$map: $rid <br /> \n");

if ($map eq $mapid) {	if ($map eq $mapid) {
my $uri=&Apache::lonnet::declutter($uris{$rid});	my $uri=&Apache::lonnet::declutter($uris{$rid});
# $r->print("Keys: $keyp{$rid} <br />\n");	# $r->print("Keys: $keyp{$rid} <br />\n");

Line 2878 ENDTABLEHEADFOUR	Line 3199 ENDTABLEHEADFOUR
$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');	$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
}	}
} # end loop through keys	} # end loop through keys
}	}
} # end loop through ids	} # end loop through ids

#---------------------------------------------------- print header information	#---------------------------------------------------- print header information
Line 2912 ENDTABLEHEADFOUR	Line 3233 ENDTABLEHEADFOUR
$r->print('<p>'.&Apache::loncommon::start_data_table()	$r->print('<p>'.&Apache::loncommon::start_data_table()
.&Apache::loncommon::start_data_table_header_row()	.&Apache::loncommon::start_data_table_header_row()
.'<th>'.&mt('Parameter Name').'</th>'	.'<th>'.&mt('Parameter Name').'</th>'
.'<th>'.&mt('Default Value').'</th>'	.'<th>'.&mt('Recursive Value').'</th>'
	.'<th>'.&mt('Non-Recursive Value').'</th>'
.'<th>'.&mt('Parameter in Effect').'</th>'	.'<th>'.&mt('Parameter in Effect').'</th>'
.&Apache::loncommon::end_data_table_header_row()	.&Apache::loncommon::end_data_table_header_row()
);	);
Line 2977 ENDTABLEHEADFOUR	Line 3299 ENDTABLEHEADFOUR
$display{$tempkeyp} =~ s/_\w+_/_0_/;	$display{$tempkeyp} =~ s/_\w+_/_0_/;
$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);	$default{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp);
$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');	$type{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.type');
}	}
} # end loop through keys	} # end loop through keys
} # end loop through ids	} # end loop through ids

Line 3024 ENDMAPONE	Line 3346 ENDMAPONE
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
} # end sub assessparms	} # end sub assessparms



##################################################	##################################################
# Overview mode	# OVERVIEW MODE
##################################################	##################################################
my $tableopen;	my $tableopen;

Line 3048 sub tablestart {	Line 3372 sub tablestart {

sub tableend {	sub tableend {
if ($tableopen) {	if ($tableopen) {
$tableopen=0;	$tableopen=0;
return &Apache::loncommon::end_data_table();	return &Apache::loncommon::end_data_table();
} else {	} else {
return'';	return'';
}	}
}	}

Line 3096 sub storedata {	Line 3420 sub storedata {
undef @deldata;	undef @deldata;
my ($got_chostname,$chostname,$cmajor,$cminor);	my ($got_chostname,$chostname,$cmajor,$cminor);
my $now = time;	my $now = time;
foreach my $key (keys(%env)) {	foreach my $key (keys(%env)) {
if ($key =~ /^form\.([a-z]+)\_(.+)$/) {	if ($key =~ /^form\.([a-z]+)\_(.+)$/) {
my $cmd=$1;	my $cmd=$1;
my $thiskey=$2;	my $thiskey=$2;
next if ($cmd eq 'settext' \|\| $cmd eq 'setipallow' \|\| $cmd eq 'setipdeny');	next if ($cmd eq 'settext' \|\| $cmd eq 'setipallow' \|\| $cmd eq 'setipdeny');
my ($tuname,$tudom)=&extractuser($thiskey);	my ($tuname,$tudom)=&extractuser($thiskey);
my $tkey=$thiskey;	my $tkey=$thiskey;
if ($tuname) {	if ($tuname) {
$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, $name, $valchk, $valmatch);	my ($data, $typeof, $text, $name, $valchk, $valmatch, $namematch);
if ($cmd eq 'set') {	if ($cmd eq 'set') {
$data=$env{$key};	$data=$env{$key};
$valmatch = '';	$valmatch = '';
$valchk = $data;	$valchk = $data;
$typeof=$env{'form.typeof_'.$thiskey};	$typeof=$env{'form.typeof_'.$thiskey};
$text = &mt('Saved modified parameter for');	$text = &mt('Saved modified parameter for');
if ($typeof eq 'string_questiontype') {	if ($typeof eq 'string_questiontype') {
$name = 'type';	$name = 'type';
} elsif ($typeof eq 'string_lenient') {	} elsif ($typeof eq 'string_lenient') {
$name = 'lenient';	$name = 'lenient';
my $stringmatch = &standard_string_matches($typeof);	my $stringmatch = &standard_string_matches($typeof);
if (ref($stringmatch) eq 'ARRAY') {	if (ref($stringmatch) eq 'ARRAY') {
foreach my $item (@{$stringmatch}) {	foreach my $item (@{$stringmatch}) {
if (ref($item) eq 'ARRAY') {	if (ref($item) eq 'ARRAY') {
my ($regexpname,$pattern) = @{$item};	my ($regexpname,$pattern) = @{$item};
if ($pattern ne '') {	if ($pattern ne '') {
if ($data =~ /$pattern/) {	if ($data =~ /$pattern/) {
$valmatch = $regexpname;	$valmatch = $regexpname;
$valchk = '';	$valchk = '';
last;	last;
	}
}	}
}	}
}	}
}	}
	} elsif ($typeof eq 'string_discussvote') {
	$name = 'discussvote';
	} elsif ($typeof eq 'string_examcode') {
	$name = 'examcode';
	if (&Apache::lonnet::validCODE($data)) {
	$valchk = 'valid';
	}
	} elsif ($typeof eq 'string_yesno') {
	if ($thiskey =~ /\.retrypartial$/) {
	$name = 'retrypartial';
	}
}	}
} elsif ($typeof eq 'string_discussvote') {	} elsif ($cmd eq 'datepointer') {
$name = 'discussvote';	$data=&Apache::lonhtmlcommon::get_date_from_form($env{$key});
} elsif ($typeof eq 'string_examcode') {	$typeof=$env{'form.typeof_'.$thiskey};
$name = 'examcode';	$text = &mt('Saved modified date for');
if (&Apache::lonnet::validCODE($data)) {	if ($typeof eq 'date_start') {
$valchk = 'valid';	if ($thiskey =~ /\.printstartdate$/) {
}	$name = 'printstartdate';
} elsif ($typeof eq 'string_yesno') {	if (($data) && ($data > $now)) {
if ($thiskey =~ /\.retrypartial$/) {	$valchk = 'future';
$name = 'retrypartial';	}
}	}
}	} elsif ($typeof eq 'date_end') {
} elsif ($cmd eq 'datepointer') {	if ($thiskey =~ /\.printenddate$/) {
$data=&Apache::lonhtmlcommon::get_date_from_form($env{$key});	$name = 'printenddate';
$typeof=$env{'form.typeof_'.$thiskey};	if (($data) && ($data < $now)) {
$text = &mt('Saved modified date for');	$valchk = 'past';
if ($typeof eq 'date_start') {	}
if ($thiskey =~ /\.printstartdate$/) {
$name = 'printstartdate';
if (($data) && ($data > $now)) {
$valchk = 'future';
}
}
} elsif ($typeof eq 'date_end') {
if ($thiskey =~ /\.printenddate$/) {
$name = 'printenddate';
if (($data) && ($data < $now)) {
$valchk = 'past';
}	}
}	}
}	} elsif ($cmd eq 'dateinterval') {
} elsif ($cmd eq 'dateinterval') {	$data=&get_date_interval_from_form($thiskey);
$data=&get_date_interval_from_form($thiskey);	if ($thiskey =~ /\.interval$/) {
if ($thiskey =~ /\.interval$/) {	$name = 'interval';
$name = 'interval';	my $intervaltype = &get_intervaltype($name);
my $intervaltype = &get_intervaltype($name);	my $intervalmatch = &standard_interval_matches($intervaltype);
my $intervalmatch = &standard_interval_matches($intervaltype);	if (ref($intervalmatch) eq 'ARRAY') {
if (ref($intervalmatch) eq 'ARRAY') {	foreach my $item (@{$intervalmatch}) {
foreach my $item (@{$intervalmatch}) {	if (ref($item) eq 'ARRAY') {
if (ref($item) eq 'ARRAY') {	my ($regexpname,$pattern) = @{$item};
my ($regexpname,$pattern) = @{$item};	if ($pattern ne '') {
if ($pattern ne '') {	if ($data =~ /$pattern/) {
if ($data =~ /$pattern/) {	$valmatch = $regexpname;
$valmatch = $regexpname;	$valchk = '';
$valchk = '';	last;
last;	}
}	}
}	}
}	}
}	}
}	}
	$typeof=$env{'form.typeof_'.$thiskey};
	$text = &mt('Saved modified date for');
}	}
$typeof=$env{'form.typeof_'.$thiskey};	if ($thiskey =~ m{\.(?:sequence\|page)___$rec$}) {
$text = &mt('Saved modified date for');	$namematch = 'maplevelrecurse';
}	}
if ($name ne '') {	if (($name ne '') \|\| ($namematch ne '')) {
my ($needsrelease,$needsnewer);	my ($needsrelease,$needsnewer);
$needsrelease = $Apache::lonnet::needsrelease{"parameter:$name:$valchk:$valmatch"};	if ($name ne '') {
if ($needsrelease) {	$needsrelease = $Apache::lonnet::needsrelease{"parameter:$name:$valchk:$valmatch:"};
unless ($got_chostname) {	if ($needsrelease) {
($chostname,$cmajor,$cminor)=&parameter_release_vars();	unless ($got_chostname) {
$got_chostname = 1;	($chostname,$cmajor,$cminor)=&parameter_release_vars();
	$got_chostname = 1;
	}
	$needsnewer = &parameter_releasecheck($name,$valchk,$valmatch,undef,
	$needsrelease,
	$cmajor,$cminor);
	}
	}
	if ($namematch ne '') {
	if ($needsnewer) {
	undef($namematch);
	} else {
	my $currneeded;
	if ($needsrelease) {
	$currneeded = $needsrelease;
	}
	$needsrelease =
	$Apache::lonnet::needsrelease{"parameter::::$namematch"};
	if (($needsrelease) && (($currneeded eq '') \|\| ($needsrelease < $currneeded))) {
	unless ($got_chostname) {
	($chostname,$cmajor,$cminor) = &parameter_release_vars();
	$got_chostname = 1;
	}
	$needsnewer = &parameter_releasecheck(undef,$valchk,$valmatch,$namematch,
	$needsrelease,$cmajor,$cminor);
	} else {
	undef($namematch);
	}
	}
}	}
$needsnewer = &parameter_releasecheck($name,$valchk,$valmatch,
$needsrelease,
$cmajor,$cminor);
if ($needsnewer) {	if ($needsnewer) {
$r->print('<br />'.&oldversion_warning($name,$data,	$r->print('<br />'.&oldversion_warning($name,$namematch,$data,
$chostname,$cmajor,	$chostname,$cmajor,
$cminor,$needsrelease));	$cminor,$needsrelease));
next;	next;
}	}
}	}
}	if (defined($data) and $$olddata{$thiskey} ne $data) {
if (defined($data) and $$olddata{$thiskey} ne $data) {	if ($tuname) {
if ($tuname) {	if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,	$tkey.'.type' => $typeof},
$tkey.'.type' => $typeof},	$tudom,$tuname) eq 'ok') {
$tudom,$tuname) eq 'ok') {	&log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);
&log_parmset({$tkey=>$data,$tkey.'.type' => $typeof},0,$tuname,$tudom);	$r->print('<br />'.$text.' '.
$r->print('<br />'.$text.' '.	&Apache::loncommon::plainname($tuname,$tudom));
&Apache::loncommon::plainname($tuname,$tudom));	} else {
} else {	$r->print('<div class="LC_error">'.
$r->print('<div class="LC_error">'.	&mt('Error saving parameters').'</div>');
&mt('Error saving parameters').'</div>');	}
	&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
	} else {
	$newdata{$thiskey}=$data;
	$newdata{$thiskey.'.type'}=$typeof;
	}
}	}
&Apache::lonnet::devalidateuserresdata($tuname,$tudom);	} elsif ($cmd eq 'del') {
} else {	if ($tuname) {
$newdata{$thiskey}=$data;	if (&Apache::lonnet::del('resourcedata',[$tkey],$tudom,$tuname) eq 'ok') {
$newdata{$thiskey.'.type'}=$typeof;	&log_parmset({$tkey=>''},1,$tuname,$tudom);
}	$r->print('<br />'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));
}	} else {
} elsif ($cmd eq 'del') {	$r->print('<div class="LC_error">'.
if ($tuname) {	&mt('Error deleting parameters').'</div>');
if (&Apache::lonnet::del('resourcedata',[$tkey],$tudom,$tuname) eq 'ok') {	}
&log_parmset({$tkey=>''},1,$tuname,$tudom);	&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
$r->print('<br />'.&mt('Deleted parameter for').' '.&Apache::loncommon::plainname($tuname,$tudom));	} else {
} else {	push (@deldata,$thiskey,$thiskey.'.type');
$r->print('<div class="LC_error">'.	}
&mt('Error deleting parameters').'</div>');
}	}
&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
} else {
push (@deldata,$thiskey,$thiskey.'.type');
}
}	}
}	}
}
# Store all course level	# Store all course level
my $delentries=$#deldata+1;	my $delentries=$#deldata+1;
my @newdatakeys=keys(%newdata);	my @newdatakeys=keys(%newdata);
my $putentries=$#newdatakeys+1;	my $putentries=$#newdatakeys+1;
if ($delentries) {	if ($delentries) {
if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {	if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {
my %loghash=map { $_ => '' } @deldata;	my %loghash=map { $_ => '' } @deldata;
&log_parmset(\%loghash,1);	&log_parmset(\%loghash,1);
$r->print('<h2>'.&mt('Deleted [quant,_1,parameter]',$delentries/2).'</h2>');	$r->print('<h2>'.&mt('Deleted [quant,_1,parameter]',$delentries/2).'</h2>');
} else {	} else {
$r->print('<div class="LC_error">'.	$r->print('<div class="LC_error">'.
&mt('Error deleting parameters').'</div>');	&mt('Error deleting parameters').'</div>');
}	}
&Apache::lonnet::devalidatecourseresdata($crs,$dom);	&Apache::lonnet::devalidatecourseresdata($crs,$dom);
}	}
if ($putentries) {	if ($putentries) {
if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {	if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
&log_parmset(\%newdata,0);	&log_parmset(\%newdata,0);
$r->print('<h3>'.&mt('Saved [quant,_1,parameter]',$putentries/2).'</h3>');	$r->print('<h3>'.&mt('Saved [quant,_1,parameter]',$putentries/2).'</h3>');
} else {	} else {
$r->print('<div class="LC_error">'.	$r->print('<div class="LC_error">'.
&mt('Error saving parameters').'</div>');	&mt('Error saving parameters').'</div>');
}	}
&Apache::lonnet::devalidatecourseresdata($crs,$dom);	&Apache::lonnet::devalidatecourseresdata($crs,$dom);
}	}
}	}

Line 3281 sub parse_listdata_key {	Line 3632 sub parse_listdata_key {
($key=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)$/);	($key=~/^\Q$env{'request.course.id'}\E\.\[([^\.]+)\]\.(.+)$/);
# if course wide student would be undefined	# if course wide student would be undefined
if (!defined($student)) {	if (!defined($student)) {
($realm)=($key=~/^\Q$env{'request.course.id'}\E\.(.+)$/);	($realm)=($key=~/^\Q$env{'request.course.id'}\E\.(.+)$/);
}	}
# strip off the .type if it's not the Question type parameter	# strip off the .type if it's not the Question type parameter
if ($realm=~/\.type$/ && !exists($listdata->{$key.'.type'})) {	if ($realm=~/\.type$/ && !exists($listdata->{$key.'.type'})) {
$realm=~s/\.type//;	$realm=~s/\.type//;
}	}
# split into resource+part and parameter name	# split into resource+part and parameter name
my ($res, $parm) = ($realm=~/^(.)\.(.)$/);	my ($res, $parm) = ($realm=~/^(.)\.(.)$/);
Line 3293 sub parse_listdata_key {	Line 3644 sub parse_listdata_key {
return ($student,$res,$part,$parm);	return ($student,$res,$part,$parm);
}	}

	# Displays forms for the given data in overview mode (newoverview or overview).
sub listdata {	sub listdata {
my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist)=@_;	my ($r,$resourcedata,$listdata,$sortorder,$caller,$classlist)=@_;

Line 3317 sub listdata {	Line 3669 sub listdata {
}	}

foreach my $thiskey (sort {	foreach my $thiskey (sort {
my ($astudent,$ares,$apart,$aparm) = &parse_listdata_key($a,$listdata);	my ($astudent,$ares,$apart,$aparm) = &parse_listdata_key($a,$listdata);
my ($bstudent,$bres,$bpart,$bparm) = &parse_listdata_key($b,$listdata);	my ($bstudent,$bres,$bpart,$bparm) = &parse_listdata_key($b,$listdata);

# get the numerical order for the param	# get the numerical order for the param
$aparm=$keyorder{'parameter_0_'.$aparm};	$aparm=$keyorder{'parameter_0_'.$aparm};
$bparm=$keyorder{'parameter_0_'.$bparm};	$bparm=$keyorder{'parameter_0_'.$bparm};

my $result=0;	my $result=0;

if ($sortorder eq 'realmstudent') {	if ($sortorder eq 'realmstudent') {
if ($ares ne $bres ) {	if ($ares ne $bres ) {
$result = ($ares cmp $bres);	$result = ($ares cmp $bres);
} elsif ($astudent ne $bstudent) {	} elsif ($astudent ne $bstudent) {
$result = ($astudent cmp $bstudent);	$result = ($astudent cmp $bstudent);
} elsif ($apart ne $bpart ) {	} elsif ($apart ne $bpart ) {
$result = ($apart cmp $bpart);	$result = ($apart cmp $bpart);
}	}
} else {	} else {
if ($astudent ne $bstudent) {	if ($astudent ne $bstudent) {
$result = ($astudent cmp $bstudent);	$result = ($astudent cmp $bstudent);
} elsif ($ares ne $bres ) {	} elsif ($ares ne $bres ) {
$result = ($ares cmp $bres);	$result = ($ares cmp $bres);
} elsif ($apart ne $bpart ) {	} elsif ($apart ne $bpart ) {
$result = ($apart cmp $bpart);	$result = ($apart cmp $bpart);
	}
}	}
}

if (!$result) {	if (!$result) {
if (defined($aparm) && defined($bparm)) {	if (defined($aparm) && defined($bparm)) {
$result = ($aparm <=> $bparm);	$result = ($aparm <=> $bparm);
} elsif (defined($aparm)) {	} elsif (defined($aparm)) {
$result = -1;	$result = -1;
} elsif (defined($bparm)) {	} elsif (defined($bparm)) {
$result = 1;	$result = 1;
	}
}	}
}

$result;	$result;
} keys(%{$listdata})) {
	} keys(%{$listdata})) { # foreach my $thiskey

my $readonly;	my $readonly;
if ($$listdata{$thiskey.'.type'}) {	if ($$listdata{$thiskey.'.type'}) {
my $thistype=$$listdata{$thiskey.'.type'};	my $thistype=$$listdata{$thiskey.'.type'};
if ($$resourcedata{$thiskey.'.type'}) {	if ($$resourcedata{$thiskey.'.type'}) {
$thistype=$$resourcedata{$thiskey.'.type'};	$thistype=$$resourcedata{$thiskey.'.type'};
}	}
my ($middle,$part,$name)=	my ($middle,$part,$name)=
($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);	($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
my $section=&mt('All Students');	my $section=&mt('All Students');
if ($middle=~/^\[(.*)\]/) {	if ($middle=~/^\[(.*)\]/) {
my $issection=$1;	my $issection=$1;
if ($issection=~/^useropt\:($match_username)\:($match_domain)/) {	if ($issection=~/^useropt\:($match_username)\:($match_domain)/) {
my ($stuname,$studom) = ($1,$2);	my ($stuname,$studom) = ($1,$2);
if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {	if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
if (ref($classlist) eq 'HASH') {	if (ref($classlist) eq 'HASH') {
if (ref($classlist->{$stuname.':'.$studom}) eq 'ARRAY') {	if (ref($classlist->{$stuname.':'.$studom}) eq 'ARRAY') {
next unless ($classlist->{$stuname.':'.$studom}->[$secidx] eq $env{'request.course.sec'});	next unless ($classlist->{$stuname.':'.$studom}->[$secidx] eq $env{'request.course.sec'});
	}
}	}
}	}
}	$section=&mt('User').": ".&Apache::loncommon::plainname($stuname,$studom);
$section=&mt('User').": ".&Apache::loncommon::plainname($stuname,$studom);	} else {
} else {	if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
if (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {	if (exists($grouphash{$issection})) {
if (exists($grouphash{$issection})) {	$section=&mt('Group').': '.$issection;
$section=&mt('Group').': '.$issection;	} elsif ($issection eq $env{'request.course.sec'}) {
} elsif ($issection eq $env{'request.course.sec'}) {	$section = &mt('Section').': '.$issection;
$section = &mt('Section').': '.$issection;	} else {
	next;
	}
} else {	} else {
next;	$section=&mt('Group/Section').': '.$issection;
}	}
} else {	}
$section=&mt('Group/Section').': '.$issection;	$middle=~s/^\[(.*)\]//;
	} elsif (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {
	$readonly = 1;
	}
	$middle=~s/\.+$//;
	$middle=~s/^\.+//;
	my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
	if ($middle=~/^(.+)\_\_\_$(all\|rec)$$/) {
	my $mapurl = $1;
	my $maplevel = $2;
	my $leveltitle = &mt('Folder/Map');
	if ($maplevel eq 'rec') {
	$leveltitle = &mt('Recursive');
	}
	$realm='<span class="LC_parm_scope_folder">'.$leveltitle.': '.&Apache::lonnet::gettitle($mapurl).' <br /><span class="LC_parm_folder">('.$mapurl.')</span></span>';
	} elsif ($middle) {
	my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
	$realm='<span class="LC_parm_scope_resource">'.&mt('Resource').
	': '.&Apache::lonnet::gettitle($middle).
	' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.
	$id.')</span></span>';
	}
	if ($sortorder eq 'realmstudent') {
	if ($realm ne $oldrealm) {
	$r->print(&tableend()."\n<hr /><h1>$realm</h1>");
	$oldrealm=$realm;
	$oldsection='';
	}
	if ($section ne $oldsection) {
	$r->print(&tableend()."\n<h2>$section</h2>");
	$oldsection=$section;
	$oldpart='';
	}
	} else {
	if ($section ne $oldsection) {
	$r->print(&tableend()."\n<hr /><h1>$section</h1>");
	$oldsection=$section;
	$oldrealm='';
	}
	if ($realm ne $oldrealm) {
	$r->print(&tableend()."\n<h2>$realm</h2>");
	$oldrealm=$realm;
	$oldpart='';
}	}
}	}
$middle=~s/^\[(.*)\]//;	if ($part ne $oldpart) {
} elsif (($env{'request.course.sec'} ne '') && ($caller eq 'overview')) {	$r->print(&tableend().
$readonly = 1;	"\n".'<span class="LC_parm_part">'.&mt('Part').": $part</span>");
}	$oldpart=$part;
$middle=~s/\.+$//;
$middle=~s/^\.+//;
my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
if ($middle=~/^(.+)\_\_\_$all$$/) {
$realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><span class="LC_parm_folder">('.$1.')</span></span>';
} elsif ($middle) {
my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
$realm='<span class="LC_parm_scope_resource">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.$id.')</span></span>';
}
if ($sortorder eq 'realmstudent') {
if ($realm ne $oldrealm) {
$r->print(&tableend()."\n<hr /><h1>$realm</h1>");
$oldrealm=$realm;
$oldsection='';
}
if ($section ne $oldsection) {
$r->print(&tableend()."\n<h2>$section</h2>");
$oldsection=$section;
$oldpart='';
}
} else {
if ($section ne $oldsection) {
$r->print(&tableend()."\n<hr /><h1>$section</h1>");
$oldsection=$section;
$oldrealm='';
}
if ($realm ne $oldrealm) {
$r->print(&tableend()."\n<h2>$realm</h2>");
$oldrealm=$realm;
$oldpart='';
}
}
if ($part ne $oldpart) {
$r->print(&tableend().
"\n".'<span class="LC_parm_part">'.&mt('Part').": $part</span>");
$oldpart=$part;
}
#
# Ready to print
#
my $parmitem = &standard_parameter_names($name);
$r->print(&tablestart($readonly).
&Apache::loncommon::start_data_table_row().
'<td><b>'.&mt($parmitem).
'</b></td>');
unless ($readonly) {
$r->print('<td><input type="checkbox" name="del_'.
$thiskey.'" /></td>');
}
$r->print('<td>');
$foundkeys++;
if (&isdateparm($thistype)) {
my $jskey='key_'.$pointer;
my $state;
$pointer++;
if ($readonly) {
$state = 'disabled';
}	}
$r->print(	#
&Apache::lonhtmlcommon::date_setter('parmform',	# Ready to print
$jskey,	#
$$resourcedata{$thiskey},	my $parmitem = &standard_parameter_names($name);
'',1,$state));	$r->print(&tablestart($readonly).
unless ($readonly) {	&Apache::loncommon::start_data_table_row().
	'<td><b>'.&mt($parmitem).
	'</b></td>');
	unless ($readonly) {
	$r->print('<td><input type="checkbox" name="del_'.
	$thiskey.'" /></td>');
	}
	$r->print('<td>');
	$foundkeys++;
	if (&isdateparm($thistype)) {
	my $jskey='key_'.$pointer;
	my $state;
	$pointer++;
	if ($readonly) {
	$state = 'disabled';
	}
$r->print(	$r->print(
'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.	&Apache::lonhtmlcommon::date_setter('parmform',
(($$resourcedata{$thiskey}!=0)?'<span class="LC_nobreak"><a href="/adm/parmset?&action=dateshift1&timebase='.$$resourcedata{$thiskey}.'">'.	$jskey,
&mt('Shift all dates based on this date').'</a></span>':'').	$$resourcedata{$thiskey},
&date_sanity_info($$resourcedata{$thiskey})	'',1,$state));
);	unless ($readonly) {
	$r->print(
	'<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'.
	(($$resourcedata{$thiskey}!=0)?'<span class="LC_nobreak"><a href="/adm/parmset?&action=dateshift1&timebase='.$$resourcedata{$thiskey}.'">'.
	&mt('Shift all dates based on this date').'</a></span>':'').
	&date_sanity_info($$resourcedata{$thiskey})
	);
	}
	} elsif ($thistype eq 'date_interval') {
	$r->print(&date_interval_selector($thiskey,$name,
	$$resourcedata{$thiskey},$readonly));
	} elsif ($thistype =~ m/^string/) {
	$r->print(&string_selector($thistype,$thiskey,
	$$resourcedata{$thiskey},$name,$readonly));
	} else {
	$r->print(&default_selector($thiskey,$$resourcedata{$thiskey},$readonly));
}	}
} elsif ($thistype eq 'date_interval') {	unless ($readonly) {
$r->print(&date_interval_selector($thiskey,$name,	$r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
$$resourcedata{$thiskey},$readonly));	$thistype.'" />');
} elsif ($thistype =~ m/^string/) {	}
$r->print(&string_selector($thistype,$thiskey,	$r->print('</td>'.&Apache::loncommon::end_data_table_row());
$$resourcedata{$thiskey},$name,$readonly));
} else {
$r->print(&default_selector($thiskey,$$resourcedata{$thiskey},$readonly));
}
unless ($readonly) {
$r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
$thistype.'" />');
}	}
$r->print('</td>'.&Apache::loncommon::end_data_table_row());
}
}	}
return $foundkeys;	return $foundkeys;
}	}
Line 3492 sub get_date_interval_from_form {	Line 3854 sub get_date_interval_from_form {
['hours', 3600],	['hours', 3600],
['minutes', 60],	['minutes', 60],
['seconds', 1]) {	['seconds', 1]) {
my ($name, $factor) = @{ $which };	my ($name, $factor) = @{ $which };
if (defined($env{'form.'.$name.'_'.$key})) {	if (defined($env{'form.'.$name.'_'.$key})) {
$seconds += $env{'form.'.$name.'_'.$key} * $factor;	$seconds += $env{'form.'.$name.'_'.$key} * $factor;
}	}
}	}
if (($key =~ /\.interval$/) && ($env{'form.done_'.$key} eq '_done')) {	if (($key =~ /\.interval$/) &&
$seconds .= $env{'form.done_'.$key};	(($env{'form.done_'.$key} eq '_done') \|\| ($env{'form.done_'.$key} eq '_done_proctor'))) {
	if ($env{'form.done_'.$key.'_buttontext'}) {
	$env{'form.done_'.$key.'_buttontext'} =~ s/\://g;
	$seconds .= '_done:'.$env{'form.done_'.$key.'_buttontext'}.':';
	if ($env{'form.done_'.$key} eq '_done_proctor') {
	$seconds .= '_proctor';
	}
	} else {
	$seconds .= $env{'form.done_'.$key};
	}
	if (($env{'form.done_'.$key} eq '_done_proctor') &&
	($env{'form.done_'.$key.'_proctorkey'})) {
	$seconds .= '_'.$env{'form.done_'.$key.'_proctorkey'};
	}
}	}
return $seconds;	return $seconds;
}	}
Line 3573 sub string_ip_selector {	Line 3948 sub string_ip_selector {
return $output;	return $output;
}	}

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

my %strings =	my %strings =
(	(
'string_yesno'	'string_yesno'
=> [[ 'yes', 'Yes' ],	=> [[ 'yes', 'Yes' ],
[ 'no', 'No' ]],	[ 'no', 'No' ]],
'string_problemstatus'	'string_problemstatus'
=> [[ 'yes', 'Yes' ],	=> [[ 'yes', 'Yes' ],
[ '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.' ],
Line 3657 sub string_selector {	Line 4034 sub string_selector {

my %skiptype;	my %skiptype;
if (($thistype eq 'string_questiontype') \|\|	if (($thistype eq 'string_questiontype') \|\|
($thistype eq 'string_lenient') \|\|	($thistype eq 'string_lenient') \|\|
($thistype eq 'string_discussvote') \|\|	($thistype eq 'string_discussvote') \|\|
($thistype eq 'string_ip') \|\|	($thistype eq 'string_ip') \|\|
($name eq 'retrypartial')) {	($name eq 'retrypartial')) {
my ($got_chostname,$chostname,$cmajor,$cminor);	my ($got_chostname,$chostname,$cmajor,$cminor);
foreach my $possibilities (@{ $strings{$thistype} }) {	foreach my $possibilities (@{ $strings{$thistype} }) {
next unless (ref($possibilities) eq 'ARRAY');	next unless (ref($possibilities) eq 'ARRAY');
Line 3683 sub string_selector {	Line 4060 sub string_selector {
($chostname,$cmajor,$cminor)=&parameter_release_vars();	($chostname,$cmajor,$cminor)=&parameter_release_vars();
$got_chostname = 1;	$got_chostname = 1;
}	}
my $needsnewer=&parameter_releasecheck($name,$parmval,$parmmatch,	my $needsnewer=&parameter_releasecheck($name,$parmval,$parmmatch,undef,
$needsrelease,$cmajor,$cminor);	$needsrelease,$cmajor,$cminor);
if ($needsnewer) {	if ($needsnewer) {
if ($parmmatch ne '') {	if ($parmmatch ne '') {
Line 3799 my %intervals =	Line 4176 my %intervals =
(	(
'date_interval'	'date_interval'
=> [[ 'done', 'Yes' ],	=> [[ 'done', 'Yes' ],
	[ 'done_proctor', 'Yes, with proctor key'],
[ '', 'No' ]],	[ '', 'No' ]],
);	);

my %intervalmatches = (	my %intervalmatches = (
'date_interval'	'date_interval'
=> [['done','\d+_done$'],],	=> [['done','\d+_done(\|\:[^\:]+\:)$'],
	['done_proctor','\d+_done(\|\:[^\:]+\:)_proctor_']],
);	);

my %intervaltypes = (	my %intervaltypes = (
Line 3862 sub date_interval_selector {	Line 4241 sub date_interval_selector {
($chostname,$cmajor,$cminor)=&parameter_release_vars();	($chostname,$cmajor,$cminor)=&parameter_release_vars();
$got_chostname = 1;	$got_chostname = 1;
}	}
my $needsnewer=&parameter_releasecheck($name,$parmval,$parmmatch,	my $needsnewer=&parameter_releasecheck($name,$parmval,$parmmatch,undef,
$needsrelease,$cmajor,$cminor);	$needsrelease,$cmajor,$cminor);
if ($needsnewer) {	if ($needsnewer) {
if ($parmmatch ne '') {	if ($parmmatch ne '') {
Line 3880 sub date_interval_selector {	Line 4259 sub date_interval_selector {
['hours', 3600, 23],	['hours', 3600, 23],
['minutes', 60, 59],	['minutes', 60, 59],
['seconds', 1, 59]) {	['seconds', 1, 59]) {
my ($name, $factor, $max) = @{ $which };	my ($name, $factor, $max) = @{ $which };
my $amount = int($showval/$factor);	my $amount = int($showval/$factor);
$showval %= $factor;	$showval %= $factor;
my %select = ((map {$_ => $_} (0..$max)),	my %select = ((map {$_ => $_} (0..$max)),
'select_form_order' => [0..$max]);	'select_form_order' => [0..$max]);
$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,	$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey,
\%select,'',$readonly);	\%select,'',$readonly);
$result .= ' '.&mt($name);	$result .= ' '.&mt($name);
}	}
if ($name eq 'interval') {	if ($name eq 'interval') {
unless ($skipval{'done'}) {	unless ($skipval{'done'}) {
my $checkedon = '';	my $checkedon = '';
	my $checkedproc = '';
	my $currproctorkey = '';
	my $currprocdisplay = 'hidden';
	my $currdonetext = &mt('Done');
my $checkedoff = ' checked="checked"';	my $checkedoff = ' checked="checked"';
if ($currval =~ /^(\d+)_done$/) {	if ($currval =~ /^(?:\d+)_done$/) {
$checkedon = ' checked="checked"';	$checkedon = ' checked="checked"';
$checkedoff = '';	$checkedoff = '';
	} elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:$/) {
	$currdonetext = $1;
	$checkedon = ' checked="checked"';
	$checkedoff = '';
	} elsif ($currval =~ /^(?:\d+)_done_proctor_(.+)$/) {
	$currproctorkey = $1;
	$checkedproc = ' checked="checked"';
	$checkedoff = '';
	$currprocdisplay = 'text';
	} elsif ($currval =~ /^(?:\d+)_done\:([^\:]+)\:_proctor_(.+)$/) {
	$currdonetext = $1;
	$currproctorkey = $2;
	$checkedproc = ' checked="checked"';
	$checkedoff = '';
	$currprocdisplay = 'text';
}	}
$result .= '<span class="LC_nobreak">'.(' ' x 3).'('.&mt('Include "done" button').	my $onclick = ' onclick="toggleSecret(this.form,'."'done_','$thiskey'".');"';
'<label><input type="radio" value="_done" name="done_'.$thiskey.'"'.$checkedon.' />'.	$result .= '<br /><span class="LC_nobreak">'.&mt('Include "done" button').
&mt('Yes').'</label>'.	'<label><input type="radio" value="" name="done_'.$thiskey.'"'.$checkedoff.$onclick.' />'.
'<label><input type="radio" value="" name="done_'.$thiskey.'"'.$checkedoff.' />'.	&mt('No').'</label>'.(' 'x2).
&mt('No').'</label>)</span>';	'<label><input type="radio" value="_done" name="done_'.$thiskey.'"'.$checkedon.$onclick.' />'.
	&mt('Yes').'</label>'.(' 'x2).
	'<label><input type="radio" value="_done_proctor" name="done_'.$thiskey.'"'.$checkedproc.$onclick.' />'.
	&mt('Yes, with proctor key').'</label>'.
	'<input type="'.$currprocdisplay.'" id="done_'.$thiskey.'_proctorkey" '.
	'name="done_'.$thiskey.'_proctorkey" value="'.&HTML::Entities::encode($currproctorkey,'"<>&').'" /></span><br />'.
	'<span class="LC_nobreak">'.&mt('Button text').': '.
	'<input type="text" name="done_'.$thiskey.'_buttontext" value="'.&HTML::Entities::encode($currdonetext,'"<>&').'" /></span>';
}	}
}	}
unless ($readonly) {	unless ($readonly) {
Line 3911 sub date_interval_selector {	Line 4316 sub date_interval_selector {
}	}

sub oldversion_warning {	sub oldversion_warning {
my ($name,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;	my ($name,$namematch,$value,$chostname,$cmajor,$cminor,$needsrelease) = @_;
	my $standard_name = &standard_parameter_names($name);
	if ($namematch) {
	my $level = &standard_parameter_levels($namematch);
	my $msg = '';
	if ($level) {
	$msg = &mt('[_1] was [_2]not[_3] set at the level of: [_4].',
	$standard_name,'<b>','</b>','"'.$level.'"');
	} else {
	$msg = &mt('[_1] was [_2]not[_3] set.',
	$standard_name,'<b>','</b>');
	}
	return '<p class="LC_warning">'.$msg.'<br />'.
	&mt('LON-CAPA version ([_1]) installed on home server ([_2]) does not meet version requirements ([_3] or newer).',
	$cmajor.'.'.$cminor,$chostname,
	$needsrelease).
	'</p>';
	}
my $desc;	my $desc;
my $stringtype = &get_stringtype($name);	my $stringtype = &get_stringtype($name);
if ($stringtype ne '') {	if ($stringtype ne '') {
Line 3956 sub oldversion_warning {	Line 4378 sub oldversion_warning {
}	}
}	}
}	}
my $standard_name = &standard_parameter_names($name);
return '<p class="LC_warning">'.	return '<p class="LC_warning">'.
&mt('[_1] was [_2]not[_3] set to [_4].',	&mt('[_1] was [_2]not[_3] set to [_4].',
$standard_name,'<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).
'</p>';	'</p>';
}	}

}	} # end of block using some constants related to parameter types


#	#
# Shift all start and end dates by $shift	# Shift all start and end dates by $shift
Line 4024 sub newoverview {	Line 4446 sub newoverview {
&toggleparmtextbox_js()."\n".	&toggleparmtextbox_js()."\n".
&validateparms_js()."\n".	&validateparms_js()."\n".
&ipacc_boxes_js()."\n".	&ipacc_boxes_js()."\n".
	&done_proctor_js()."\n".
'// ]]>	'// ]]>
</script>	</script>
';	';
Line 4195 sub secgroup_lister {	Line 4618 sub secgroup_lister {
my $newparmkey=$rootparmkey.'.'.$$allmaps{$mapid}.'___(all).'.$part.'.'.$cat;	my $newparmkey=$rootparmkey.'.'.$$allmaps{$mapid}.'___(all).'.$part.'.'.$cat;
$$listdata{$newparmkey}=1;	$$listdata{$newparmkey}=1;
$$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};	$$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
	$newparmkey=$rootparmkey.'.'.$$allmaps{$mapid}.'___(rec).'.$part.'.'.$cat;
	$$listdata{$newparmkey}=1;
	$$listdata{$newparmkey.'.type'}=$$defkeytype{$cat};
}	}
} else {	} else {
# resource-level parameter	# resource-level parameter
Line 4210 sub secgroup_lister {	Line 4636 sub secgroup_lister {
}	}
}	}

	# Display all existing parameter settings.
sub overview {	sub overview {
my ($r) = @_;	my ($r) = @_;
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 4220 sub overview {	Line 4647 sub overview {
&toggleparmtextbox_js()."\n".	&toggleparmtextbox_js()."\n".
&validateparms_js()."\n".	&validateparms_js()."\n".
&ipacc_boxes_js()."\n".	&ipacc_boxes_js()."\n".
	&done_proctor_js()."\n".
'// ]]>'."\n".	'// ]]>'."\n".
'</script>'."\n";	'</script>'."\n";
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
Line 4255 sub overview {	Line 4683 sub overview {
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
}	}

	# Unused sub.
sub clean_parameters {	sub clean_parameters {
my ($r) = @_;	my ($r) = @_;
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 4290 ENDOVER	Line 4719 ENDOVER
'<th>'.&mt('Parameter').'</th>'.	'<th>'.&mt('Parameter').'</th>'.
'</tr>');	'</tr>');
foreach my $thiskey (sort(keys(%{$resourcedata}))) {	foreach my $thiskey (sort(keys(%{$resourcedata}))) {
next if (!exists($resourcedata->{$thiskey.'.type'})	next if (!exists($resourcedata->{$thiskey.'.type'})
&& $thiskey=~/\.type$/);	&& $thiskey=~/\.type$/);
my %data = &parse_key($thiskey);	my %data = &parse_key($thiskey);
if (1) { #exists($data{'realm_exists'})	if (1) { #exists($data{'realm_exists'})
#&& !$data{'realm_exists'}) {	#&& !$data{'realm_exists'}) {
$r->print(&Apache::loncommon::start_data_table_row().	$r->print(&Apache::loncommon::start_data_table_row().
'<tr>'.	'<tr>'.
'<td><input type="checkbox" name="del_'.$thiskey.'" /></td>' );	'<td><input type="checkbox" name="del_'.$thiskey.'" /></td>' );

$r->print('<td>');	$r->print('<td>');
my $display_value = $resourcedata->{$thiskey};	my $display_value = $resourcedata->{$thiskey};
if (&isdateparm($resourcedata->{$thiskey.'.type'})) {	if (&isdateparm($resourcedata->{$thiskey.'.type'})) {
$display_value =	$display_value =
&Apache::lonlocal::locallocaltime($display_value);	&Apache::lonlocal::locallocaltime($display_value);
}	}
my $parmitem = &standard_parameter_names($data{'parameter_name'});	my $parmitem = &standard_parameter_names($data{'parameter_name'});
$parmitem = &mt($parmitem);	$parmitem = &mt($parmitem);
$r->print(&mt('Parameter: "[_1]" with value: "[_2]"',	$r->print(&mt('Parameter: "[_1]" with value: "[_2]"',
$parmitem,$resourcedata->{$thiskey}));	$parmitem,$resourcedata->{$thiskey}));
$r->print('<br />');	$r->print('<br />');
if ($data{'scope_type'} eq 'all') {	if ($data{'scope_type'} eq 'all') {
$r->print(&mt('All users'));	$r->print(&mt('All users'));
} elsif ($data{'scope_type'} eq 'user') {	} elsif ($data{'scope_type'} eq 'user') {
$r->print(&mt('User: [_1]',join(':',@{$data{'scope'}})));	$r->print(&mt('User: [_1]',join(':',@{$data{'scope'}})));
} elsif ($data{'scope_type'} eq 'section') {	} elsif ($data{'scope_type'} eq 'section') {
$r->print(&mt('Section: [_1]',$data{'scope'}));	$r->print(&mt('Section: [_1]',$data{'scope'}));
} elsif ($data{'scope_type'} eq 'group') {	} elsif ($data{'scope_type'} eq 'group') {
$r->print(&mt('Group: [_1]',$data{'scope'}));	$r->print(&mt('Group: [_1]',$data{'scope'}));
}	}
$r->print('<br />');	$r->print('<br />');
if ($data{'realm_type'} eq 'all') {	if ($data{'realm_type'} eq 'all') {
$r->print(&mt('All Resources'));	$r->print(&mt('All Resources'));
} elsif ($data{'realm_type'} eq 'folder') {	} elsif ($data{'realm_type'} eq 'folder') {
$r->print(&mt('Folder: [_1]'),$data{'realm'});	$r->print(&mt('Folder: [_1]'),$data{'realm'});
} elsif ($data{'realm_type'} eq 'symb') {	} elsif ($data{'realm_type'} eq 'symb') {
my ($map,$resid,$url) =	my ($map,$resid,$url) =
&Apache::lonnet::decode_symb($data{'realm'});	&Apache::lonnet::decode_symb($data{'realm'});
$r->print(&mt('Resource: [_1]with ID: [_2]in folder [_3]',	$r->print(&mt('Resource: [_1]with ID: [_2]in folder [_3]',
$url.' <br />   ',	$url.' <br />   ',
$resid.' <br />   ',$map));	$resid.' <br />   ',$map));
}	}
$r->print(' <br />   '.&mt('Part: [_1]',$data{'parameter_part'}));	$r->print(' <br />   '.&mt('Part: [_1]',$data{'parameter_part'}));
$r->print('</td></tr>');	$r->print('</td></tr>');

}	}
}	}
$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').'" />'.
Line 4343 ENDOVER	Line 4772 ENDOVER
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

	# Overview mode, UI to shift all dates.
sub date_shift_one {	sub date_shift_one {
my ($r) = @_;	my ($r) = @_;
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 4371 sub date_shift_one {	Line 4801 sub date_shift_one {
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

	# Overview mode, UI to shift all dates (second form).
sub date_shift_two {	sub date_shift_two {
my ($r) = @_;	my ($r) = @_;
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 4405 sub parse_key {	Line 4836 sub parse_key {
($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);	($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
$data{'scope_type'} = 'all';	$data{'scope_type'} = 'all';
if ($middle=~/^\[(.*)\]/) {	if ($middle=~/^\[(.*)\]/) {
$data{'scope'} = $1;	$data{'scope'} = $1;
if ($data{'scope'}=~/^useropt\:($match_username)\:($match_domain)/) {	if ($data{'scope'}=~/^useropt\:($match_username)\:($match_domain)/) {
$data{'scope_type'} = 'user';	$data{'scope_type'} = 'user';
$data{'scope'} = [$1,$2];	$data{'scope'} = [$1,$2];
} else {	} else {
#FIXME check for group scope	#FIXME check for group scope
$data{'scope_type'} = 'section';	$data{'scope_type'} = 'section';
}	}
$middle=~s/^\[(.*)\]//;	$middle=~s/^\[(.*)\]//;
}	}
$middle=~s/\.+$//;	$middle=~s/\.+$//;
$middle=~s/^\.+//;	$middle=~s/^\.+//;
$data{'realm_type'}='all';	$data{'realm_type'}='all';
if ($middle=~/^(.+)\_\_\_$all$$/) {	if ($middle=~/^(.+)\_\_\_$all$$/) {
$data{'realm'} = $1;	$data{'realm'} = $1;
$data{'realm_type'} = 'folder';	$data{'realm_type'} = 'folder';
$data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});	$data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});
($data{'realm_exists'}) = &Apache::lonnet::is_on_map($data{'realm'});	($data{'realm_exists'}) = &Apache::lonnet::is_on_map($data{'realm'});
} elsif ($middle) {	} elsif ($middle) {
$data{'realm'} = $middle;	$data{'realm'} = $middle;
$data{'realm_type'} = 'symb';	$data{'realm_type'} = 'symb';
$data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});	$data{'realm_title'} = &Apache::lonnet::gettitle($data{'realm'});
my ($map,$resid,$url) = &Apache::lonnet::decode_symb($data{'realm'});	my ($map,$resid,$url) = &Apache::lonnet::decode_symb($data{'realm'});
$data{'realm_exists'} = &Apache::lonnet::symbverify($data{'realm'},$url);	$data{'realm_exists'} = &Apache::lonnet::symbverify($data{'realm'},$url);
}	}

$data{'parameter_part'} = $part;	$data{'parameter_part'} = $part;
Line 4444 sub header {	Line 4875 sub header {



	##################################################
	# MAIN MENU
	##################################################

sub print_main_menu {	sub print_main_menu {
my ($r,$parm_permission)=@_;	my ($r,$parm_permission)=@_;
#	#
Line 4543 ENDMAINFORMHEAD	Line 4978 ENDMAINFORMHEAD



	##################################################
	# PORTFOLIO METADATA
	##################################################

sub output_row {	sub output_row {
my ($r, $field_name, $field_text, $added_flag) = @_;	my ($r, $field_name, $field_text, $added_flag) = @_;
my $output;	my $output;
Line 4564 sub output_row {	Line 5003 sub output_row {
$output .= '<td><strong>'.$field_text.':</strong></td>';	$output .= '<td><strong>'.$field_text.':</strong></td>';
$output .= &Apache::loncommon::end_data_table_row();	$output .= &Apache::loncommon::end_data_table_row();
foreach my $opt (@options) {	foreach my $opt (@options) {
my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ;	my $checked = ($options =~ m/$opt->[0]/) ? ' checked="checked" ' : '' ;
$output .= &Apache::loncommon::continue_data_table_row();	$output .= &Apache::loncommon::continue_data_table_row();
$output .= '<td>'.(' ' x 5).'<label>	$output .= '<td>'.(' ' x 5).'<label>
<input type="checkbox" name="'.	<input type="checkbox" name="'.
$field_name.'_'.$opt->[0].'" value="yes"'.$checked.' />'.	$field_name.'_'.$opt->[0].'" value="yes"'.$checked.' />'.
&mt($opt->[1]).'</label></td>';	&mt($opt->[1]).'</label></td>';
$output .= &Apache::loncommon::end_data_table_row();	$output .= &Apache::loncommon::end_data_table_row();
}	}
$output .= &Apache::loncommon::continue_data_table_row();	$output .= &Apache::loncommon::continue_data_table_row();
$output .= '<td>'.(' ' x 10).'<input name="'.$field_name.'_values" type="text" value="'.$values.'" size="80" /></td>';	$output .= '<td>'.(' ' x 10).'<input name="'.$field_name.'_values" type="text" value="'.$values.'" size="80" /></td>';
$output .= &Apache::loncommon::end_data_table_row();	$output .= &Apache::loncommon::end_data_table_row();
Line 4584 sub output_row {	Line 5023 sub output_row {
$multiple_checked = ' checked="checked"';	$multiple_checked = ' checked="checked"';
$single_checked = '';	$single_checked = '';
}	}
$output .= &Apache::loncommon::continue_data_table_row();	$output .= &Apache::loncommon::continue_data_table_row();
$output .= '<td>'.(' ' x 10).'	$output .= '<td>'.(' ' x 10).'
<input type="radio" name="'.$field_name.'_onlyone" value="multiple"'.$multiple_checked .' />	<input type="radio" name="'.$field_name.'_onlyone" value="multiple"'.$multiple_checked .' />
'.&mt('Student may select multiple choices from list').'</td>';	'.&mt('Student may select multiple choices from list').'</td>';
$output .= &Apache::loncommon::end_data_table_row();	$output .= &Apache::loncommon::end_data_table_row();
$output .= &Apache::loncommon::continue_data_table_row();	$output .= &Apache::loncommon::continue_data_table_row();
$output .= '<td>'.(' ' x 10).'	$output .= '<td>'.(' ' x 10).'
<input type="radio" name="'.$field_name.'_onlyone" value="single"'.$single_checked.' />	<input type="radio" name="'.$field_name.'_onlyone" value="single"'.$single_checked.' />
'.&mt('Student may select only one choice from list').'</td>';	'.&mt('Student may select only one choice from list').'</td>';
$output .= &Apache::loncommon::end_data_table_row();	$output .= &Apache::loncommon::end_data_table_row();
}	}
return ($output);	return ($output);
}	}


	# UI to order portfolio metadata fields.
sub order_meta_fields {	sub order_meta_fields {
my ($r)=@_;	my ($r)=@_;
my $idx = 1;	my $idx = 1;
Line 4607 sub order_meta_fields {	Line 5046 sub order_meta_fields {
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};	my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};;	my $crstype = $env{'course.'.$env{'request.course.id'}.'.type'};;
$r->print(&Apache::loncommon::start_page('Order Metadata Fields'));	$r->print(&Apache::loncommon::start_page('Order Metadata Fields'));
&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',	&Apache::lonhtmlcommon::add_breadcrumb(
	{href=>'/adm/parmset?action=addmetadata',
text=>"Add Metadata Field"});	text=>"Add Metadata Field"});
&Apache::lonhtmlcommon::add_breadcrumb	&Apache::lonhtmlcommon::add_breadcrumb(
({href=>"/adm/parmset?action=setrestrictmeta",	{href=>"/adm/parmset?action=setrestrictmeta",
text=>"Restrict Metadata"},	text=>"Restrict Metadata"},
{text=>"Order Metadata"});	{text=>"Order Metadata"});
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Order Metadata'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Order Metadata'));
&startSettingsScreen($r,'parmset',$crstype);	&startSettingsScreen($r,'parmset',$crstype);
if ($env{'form.storeorder'}) {	if ($env{'form.storeorder'}) {
Line 4624 sub order_meta_fields {	Line 5064 sub order_meta_fields {
if ($newpos > $currentpos) {	if ($newpos > $currentpos) {
# moving stuff up	# moving stuff up
for ($i=0;$i<$currentpos;$i++) {	for ($i=0;$i<$currentpos;$i++) {
$neworder[$i]=$oldorder[$i];	$neworder[$i]=$oldorder[$i];
}	}
for ($i=$currentpos;$i<$newpos;$i++) {	for ($i=$currentpos;$i<$newpos;$i++) {
$neworder[$i]=$oldorder[$i+1];	$neworder[$i]=$oldorder[$i+1];
}	}
$neworder[$newpos]=$oldorder[$currentpos];	$neworder[$newpos]=$oldorder[$currentpos];
for ($i=$newpos+1;$i<=$#oldorder;$i++) {	for ($i=$newpos+1;$i<=$#oldorder;$i++) {
$neworder[$i]=$oldorder[$i];	$neworder[$i]=$oldorder[$i];
}	}
} else {	} else {
# moving stuff down	# moving stuff down
Line 4646 sub order_meta_fields {	Line 5086 sub order_meta_fields {
$neworder[$i]=$oldorder[$i];	$neworder[$i]=$oldorder[$i];
}	}
}	}
my $ordered_fields = join ",", @neworder;	my $ordered_fields = join ",", @neworder;
my $put_result = &Apache::lonnet::put('environment',	my $put_result = &Apache::lonnet::put('environment',
{'metadata.addedorder'=>$ordered_fields},$dom,$crs);	{'metadata.addedorder'=>$ordered_fields},$dom,$crs);
&Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields});	&Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields});
}	}
my $fields = &get_added_meta_fieldnames($env{'request.course.id'});	my $fields = &get_added_meta_fieldnames($env{'request.course.id'});
my $ordered_fields;	my $ordered_fields;
Line 4752 sub addmetafield {	Line 5192 sub addmetafield {



	# Display or save portfolio metadata.
sub setrestrictmeta {	sub setrestrictmeta {
my ($r)=@_;	my ($r)=@_;
my $next_meta;	my $next_meta;
Line 4792 sub setrestrictmeta {	Line 5233 sub setrestrictmeta {
$options.='deleted,';	$options.='deleted,';
}	}
my $name = $save_field;	my $name = $save_field;
$put_result = &Apache::lonnet::put('environment',	$put_result = &Apache::lonnet::put('environment',
{'metadata.'.$meta_field.'.options'=>$options,	{'metadata.'.$meta_field.'.options'=>$options,
'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},	'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},
},$dom,$crs);	},$dom,$crs);
}	}
}	}
}	}
Line 4811 sub setrestrictmeta {	Line 5252 sub setrestrictmeta {
foreach my $field (sort(keys(%metadata_fields))) {	foreach my $field (sort(keys(%metadata_fields))) {
if ($field ne 'courserestricted') {	if ($field ne 'courserestricted') {
$row_alt = $row_alt ? 0 : 1;	$row_alt = $row_alt ? 0 : 1;
$output.= &output_row($r, $field, $metadata_fields{$field});	$output.= &output_row($r, $field, $metadata_fields{$field});
}	}
}	}
my $buttons = (<<ENDButtons);	my $buttons = (<<ENDButtons);
<input type="submit" name="restrictmeta" value="Save" />	<input type="submit" name="restrictmeta" value="Save" />
Line 4842 ENDenv	Line 5283 ENDenv
}	}



sub get_added_meta_fieldnames {	sub get_added_meta_fieldnames {
my ($cid) = @_;	my ($cid) = @_;
my %fields;	my %fields;
Line 4857 sub get_added_meta_fieldnames {	Line 5297 sub get_added_meta_fieldnames {
}	}



sub get_deleted_meta_fieldnames {	sub get_deleted_meta_fieldnames {
my ($cid) = @_;	my ($cid) = @_;
my %fields;	my %fields;
Line 4872 sub get_deleted_meta_fieldnames {	Line 5311 sub get_deleted_meta_fieldnames {
}	}
return \%fields;	return \%fields;
}	}


	##################################################
	# PARAMETER SETTINGS DEFAULT ACTIONS
	##################################################

	# UI to change parameter setting default actions
sub defaultsetter {	sub defaultsetter {
my ($r) = @_;	my ($r) = @_;

Line 4904 sub defaultsetter {	Line 5350 sub defaultsetter {
\%mapp, \%symbp,\%maptitles,\%uris,	\%mapp, \%symbp,\%maptitles,\%uris,
\%keyorder,\%defkeytype);	\%keyorder,\%defkeytype);
if ($env{'form.storerules'}) {	if ($env{'form.storerules'}) {
my %newrules=();	my %newrules=();
my @delrules=();	my @delrules=();
my %triggers=();	my %triggers=();
foreach my $key (keys(%env)) {	foreach my $key (keys(%env)) {
if ($key=~/^form\.(\w+)\_action$/) {	if ($key=~/^form\.(\w+)\_action$/) {
my $tempkey=$1;	my $tempkey=$1;
my $action=$env{$key};	my $action=$env{$key};
if ($action) {	if ($action) {
$newrules{$tempkey.'_action'}=$action;	$newrules{$tempkey.'_action'}=$action;
if ($action ne 'default') {	if ($action ne 'default') {
my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);	my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
$triggers{$whichparm}.=$tempkey.':';	$triggers{$whichparm}.=$tempkey.':';
}	}
$newrules{$tempkey.'_type'}=$defkeytype{$tempkey};	$newrules{$tempkey.'_type'}=$defkeytype{$tempkey};
if (&isdateparm($defkeytype{$tempkey})) {	if (&isdateparm($defkeytype{$tempkey})) {
$newrules{$tempkey.'_days'}=$env{'form.'.$tempkey.'_days'};	$newrules{$tempkey.'_days'}=$env{'form.'.$tempkey.'_days'};
$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};	$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};	$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
$newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};	$newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};
} else {	} else {
$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};	$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
$newrules{$tempkey.'_triggervalue'}=$env{'form.'.$tempkey.'_triggervalue'};	$newrules{$tempkey.'_triggervalue'}=$env{'form.'.$tempkey.'_triggervalue'};
	}
	} else {
	push(@delrules,$tempkey.'_action');
	push(@delrules,$tempkey.'_type');
	push(@delrules,$tempkey.'_hours');
	push(@delrules,$tempkey.'_min');
	push(@delrules,$tempkey.'_sec');
	push(@delrules,$tempkey.'_value');
	}
}	}
} else {
push(@delrules,$tempkey.'_action');
push(@delrules,$tempkey.'_type');
push(@delrules,$tempkey.'_hours');
push(@delrules,$tempkey.'_min');
push(@delrules,$tempkey.'_sec');
push(@delrules,$tempkey.'_value');
}	}
	foreach my $key (keys(%allparms)) {
	$newrules{$key.'_triggers'}=$triggers{$key};
}	}
}	&Apache::lonnet::put('parmdefactions',\%newrules,$cdom,$cnum);
foreach my $key (keys(%allparms)) {	&Apache::lonnet::del('parmdefactions',\@delrules,$cdom,$cnum);
$newrules{$key.'_triggers'}=$triggers{$key};	&resetrulescache();
}
&Apache::lonnet::put('parmdefactions',\%newrules,$cdom,$cnum);
&Apache::lonnet::del('parmdefactions',\@delrules,$cdom,$cnum);
&resetrulescache();
}	}
my %lt=&Apache::lonlocal::texthash('days' => 'Days',	my %lt=&Apache::lonlocal::texthash('days' => 'Days',
'hours' => 'Hours',	'hours' => 'Hours',
Line 4955 sub defaultsetter {	Line 5401 sub defaultsetter {
my @dateoptions=('','default');	my @dateoptions=('','default');
my @datedisplay=('',&mt('Default value when manually setting'));	my @datedisplay=('',&mt('Default value when manually setting'));
foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {	foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
unless ($tempkey) { next; }	unless ($tempkey) { next; }
push @standardoptions,'when_setting_'.$tempkey;	push @standardoptions,'when_setting_'.$tempkey;
push @standarddisplay,&mt('Automatically set when setting ').$tempkey;	push @standarddisplay,&mt('Automatically set when setting ').$tempkey;
if (&isdateparm($defkeytype{$tempkey})) {	if (&isdateparm($defkeytype{$tempkey})) {
push @dateoptions,'later_than_'.$tempkey;	push @dateoptions,'later_than_'.$tempkey;
push @datedisplay,&mt('Automatically set later than ').$tempkey;	push @datedisplay,&mt('Automatically set later than ').$tempkey;
push @dateoptions,'earlier_than_'.$tempkey;	push @dateoptions,'earlier_than_'.$tempkey;
push @datedisplay,&mt('Automatically set earlier than ').$tempkey;	push @datedisplay,&mt('Automatically set earlier than ').$tempkey;
}	}
}	}
$r->print(&mt('Manual setting rules apply to all interfaces.').'<br />'.	$r->print(&mt('Manual setting rules apply to all interfaces.').'<br />'.
&mt('Automatic setting rules apply to table mode interfaces only.'));	&mt('Automatic setting rules apply to table mode interfaces only.'));
Line 4973 $r->print(&mt('Manual setting rules appl	Line 5419 $r->print(&mt('Manual setting rules appl
&mt('Action').'</th><th>'.&mt('Value').'</th>'.	&mt('Action').'</th><th>'.&mt('Value').'</th>'.
&Apache::loncommon::end_data_table_header_row());	&Apache::loncommon::end_data_table_header_row());
foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {	foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
unless ($tempkey) { next; }	unless ($tempkey) { next; }
$r->print("\n".&Apache::loncommon::start_data_table_row().	$r->print("\n".&Apache::loncommon::start_data_table_row().
"<td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');	"<td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
my $action=&rulescache($tempkey.'_action');	my $action=&rulescache($tempkey.'_action');
$r->print('<select name="'.$tempkey.'_action">');	$r->print('<select name="'.$tempkey.'_action">');
if (&isdateparm($defkeytype{$tempkey})) {	if (&isdateparm($defkeytype{$tempkey})) {
for (my $i=0;$i<=$#dateoptions;$i++) {	for (my $i=0;$i<=$#dateoptions;$i++) {
if ($dateoptions[$i]=~/\_$tempkey$/) { next; }	if ($dateoptions[$i]=~/\_$tempkey$/) { next; }
$r->print("\n<option value='$dateoptions[$i]'".	$r->print("\n<option value='$dateoptions[$i]'".
($dateoptions[$i] eq $action?' selected="selected"':'').	($dateoptions[$i] eq $action?' selected="selected"':'').
">$datedisplay[$i]</option>");	">$datedisplay[$i]</option>");
	}
	} else {
	for (my $i=0;$i<=$#standardoptions;$i++) {
	if ($standardoptions[$i]=~/\_$tempkey$/) { next; }
	$r->print("\n<option value='$standardoptions[$i]'".
	($standardoptions[$i] eq $action?' selected="selected"':'').
	">$standarddisplay[$i]</option>");
	}
}	}
} else {	$r->print('</select>');
for (my $i=0;$i<=$#standardoptions;$i++) {	unless (&isdateparm($defkeytype{$tempkey})) {
if ($standardoptions[$i]=~/\_$tempkey$/) { next; }	$r->print("\n<br />".&mt('Triggering value(s) of other parameter (optional, comma-separated):').
$r->print("\n<option value='$standardoptions[$i]'".	'<input type="text" size="20" name="'.$tempkey.'_triggervalue" value="'.&rulescache($tempkey.'_triggervalue').'" />');
($standardoptions[$i] eq $action?' selected="selected"':'').
">$standarddisplay[$i]</option>");
}	}
}	$r->print("\n</td><td>\n");
$r->print('</select>');
unless (&isdateparm($defkeytype{$tempkey})) {
$r->print("\n<br />".&mt('Triggering value(s) of other parameter (optional, comma-separated):').
'<input type="text" size="20" name="'.$tempkey.'_triggervalue" value="'.&rulescache($tempkey.'_triggervalue').'" />');
}
$r->print("\n</td><td>\n");

if (&isdateparm($defkeytype{$tempkey})) {	if (&isdateparm($defkeytype{$tempkey})) {
my $days=&rulescache($tempkey.'_days');	my $days=&rulescache($tempkey.'_days');
my $hours=&rulescache($tempkey.'_hours');	my $hours=&rulescache($tempkey.'_hours');
my $min=&rulescache($tempkey.'_min');	my $min=&rulescache($tempkey.'_min');
my $sec=&rulescache($tempkey.'_sec');	my $sec=&rulescache($tempkey.'_sec');
$r->print(<<ENDINPUTDATE);	$r->print(<<ENDINPUTDATE);
<input name="$tempkey\_days" type="text" size="4" value="$days" />$lt{'days'}<br />	<input name="$tempkey\_days" type="text" size="4" value="$days" />$lt{'days'}<br />
<input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />	<input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />
<input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />	<input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />
<input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}	<input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}
ENDINPUTDATE	ENDINPUTDATE
} elsif ($defkeytype{$tempkey} eq 'string_yesno') {	} elsif ($defkeytype{$tempkey} eq 'string_yesno') {
my $yeschecked='';	my $yeschecked='';
my $nochecked='';	my $nochecked='';
if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked=' checked="checked"'; }	if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked=' checked="checked"'; }
if (&rulescache($tempkey.'_value') eq 'no') { $nochecked=' checked="checked"'; }	if (&rulescache($tempkey.'_value') eq 'no') { $nochecked=' checked="checked"'; }

$r->print(<<ENDYESNO);	$r->print(<<ENDYESNO);
<label><input type="radio" name="$tempkey\_value" value="yes"$yeschecked /> $lt{'yes'}</label><br />	<label><input type="radio" name="$tempkey\_value" value="yes"$yeschecked /> $lt{'yes'}</label><br />
<label><input type="radio" name="$tempkey\_value" value="no"$nochecked /> $lt{'no'}</label>	<label><input type="radio" name="$tempkey\_value" value="no"$nochecked /> $lt{'no'}</label>
ENDYESNO	ENDYESNO
} else {	} else {
$r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');	$r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');
}	}
$r->print('</td>'.&Apache::loncommon::end_data_table_row());	$r->print('</td>'.&Apache::loncommon::end_data_table_row());
}	}
$r->print(&Apache::loncommon::end_data_table().	$r->print(&Apache::loncommon::end_data_table().
Line 5034 ENDYESNO	Line 5480 ENDYESNO
return;	return;
}	}

	##################################################
	# PARAMETER CHANGES LOG
	##################################################

sub components {	sub components {
my ($key,$uname,$udom,$exeuser,$exedomain,$typeflag)=@_;	my ($key,$uname,$udom,$exeuser,$exedomain,$typeflag)=@_;

if ($typeflag) {	if ($typeflag) {
$key=~s/\.type$//;	$key=~s/\.type$//;
}	}

my ($middle,$part,$name)=	my ($middle,$part,$name)=
($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);	($key=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
my $issection;	my $issection;

my $section=&mt('All Students');	my $section=&mt('All Students');
if ($middle=~/^\[(.*)\]/) {	if ($middle=~/^\[(.*)\]/) {
$issection=$1;	$issection=$1;
$section=&mt('Group/Section').': '.$issection;	$section=&mt('Group/Section').': '.$issection;
$middle=~s/^\[(.*)\]//;	$middle=~s/^\[(.*)\]//;
}	}
$middle=~s/\.+$//;	$middle=~s/\.+$//;
$middle=~s/^\.+//;	$middle=~s/^\.+//;
if ($uname) {	if ($uname) {
$section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);	$section=&mt('User').": ".&Apache::loncommon::plainname($uname,$udom);
$issection='';	$issection='';
}	}
my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';	my $realm='<span class="LC_parm_scope_all">'.&mt('All Resources').'</span>';
my $realmdescription=&mt('all resources');	my $realmdescription=&mt('all resources');
if ($middle=~/^(.+)\_\_\_$all$$/) {	if ($middle=~/^(.+)\_\_\_$(all\|rec)$$/) {
$realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <span class="LC_parm_folder"><br />('.$1.')</span></span>';	my $mapurl = $1;
$realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($1);	my $maplevel = $2;
} elsif ($middle) {	my $leveltitle = &mt('Folder/Map');
my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);	if ($maplevel eq 'rec') {
$realm='<span class="LC_parm_scope_resource">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.' in '.$map.' id: '.$id.')</span></span>';	$leveltitle = &mt('Recursive');
$realmdescription=&mt('resource').' '.&Apache::lonnet::gettitle($middle);	}
	$realm='<span class="LC_parm_scope_folder">'.$leveltitle.
	': '.&Apache::lonnet::gettitle($mapurl).' <span class="LC_parm_folder"><br />('.
	$mapurl.')</span></span>';
	$realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($mapurl);
	} elsif ($middle) {
	my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
	$realm='<span class="LC_parm_scope_resource">'.&mt('Resource').
	': '.&Apache::lonnet::gettitle($middle).' <br /><span class="LC_parm_symb">('.$url.
	' in '.$map.' id: '.$id.')</span></span>';
	$realmdescription=&mt('resource').' '.&Apache::lonnet::gettitle($middle);
}	}
my $what=$part.'.'.$name;	my $what=$part.'.'.$name;
return ($realm,$section,$name,$part,	return ($realm,$section,$name,$part,
Line 5078 my %standard_parms_types;	Line 5538 my %standard_parms_types;
sub load_parameter_names {	sub load_parameter_names {
open(my $config,"<$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");	open(my $config,"<$Apache::lonnet::perlvar{'lonTabDir'}/packages.tab");
while (my $configline=<$config>) {	while (my $configline=<$config>) {
if ($configline !~ /\S/ \|\| $configline=~/^\#/) { next; }	if ($configline !~ /\S/ \|\| $configline=~/^\#/) { next; }
chomp($configline);	chomp($configline);
my ($short,$plain)=split(/:/,$configline);	my ($short,$plain)=split(/:/,$configline);
my (undef,$name,$type)=split(/\&/,$short,3);	my (undef,$name,$type)=split(/\&/,$short,3);
if ($type eq 'display') {	if ($type eq 'display') {
$standard_parms{$name} = $plain;	$standard_parms{$name} = $plain;
} elsif ($type eq 'type') {	} elsif ($type eq 'type') {
$standard_parms_types{$name} = $plain;	$standard_parms_types{$name} = $plain;
}	}
}	}
close($config);	close($config);
Line 5096 sub load_parameter_names {	Line 5556 sub load_parameter_names {
sub standard_parameter_names {	sub standard_parameter_names {
my ($name)=@_;	my ($name)=@_;
if (!%standard_parms) {	if (!%standard_parms) {
&load_parameter_names();	&load_parameter_names();
}	}
if ($standard_parms{$name}) {	if ($standard_parms{$name}) {
return $standard_parms{$name};	return $standard_parms{$name};
} else {	} else {
return $name;	return $name;
}	}
}	}

Line 5116 sub standard_parameter_types {	Line 5576 sub standard_parameter_types {
return;	return;
}	}

	sub standard_parameter_levels {
	my ($name)=@_;
	my %levels = (
	'resourcelevel' => 'a single resource',
	'maplevel' => 'the enclosing map/folder',
	'maplevelrecurse' => 'the enclosing map/folder (recursive into sub-folders)',
	'courselevel' => 'the general (course) level',
	);
	if ($levels{$name}) {
	return $levels{$name};
	}
	return;
	}

	# Display log for parameter changes, blog postings, user notification changes.
sub parm_change_log {	sub parm_change_log {
my ($r)=@_;	my ($r)=@_;
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 5157 sub parm_change_log {	Line 5632 sub parm_change_log {
my $shown=0;	my $shown=0;
my $folder='';	my $folder='';
if ($env{'form.displayfilter'} eq 'currentfolder') {	if ($env{'form.displayfilter'} eq 'currentfolder') {
my $last='';	my $last='';
if (tie(my %hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',	if (tie(my %hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
&GDBM_READER(),0640)) {	&GDBM_READER(),0640)) {
$last=$hash{'last_known'};	$last=$hash{'last_known'};
untie(%hash);	untie(%hash);
}	}
if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); }	if ($last) { ($folder) = &Apache::lonnet::decode_symb($last); }
}	}
foreach my $id (sort	foreach my $id (sort {
{	if ($parmlog{$b}{'exe_time'} ne $parmlog{$a}{'exe_time'}) {
if ($parmlog{$b}{'exe_time'} ne $parmlog{$a}{'exe_time'}) {	return $parmlog{$b}{'exe_time'} <=>$parmlog{$a}{'exe_time'}
return $parmlog{$b}{'exe_time'} <=>$parmlog{$a}{'exe_time'}	}
}	my $aid = (split('00000',$a))[-1];
my $aid = (split('00000',$a))[-1];	my $bid = (split('00000',$b))[-1];
my $bid = (split('00000',$b))[-1];	return $bid<=>$aid;
return $bid<=>$aid;
} (keys(%parmlog))) {	} (keys(%parmlog))) {
my @changes=keys(%{$parmlog{$id}{'logentry'}});	my @changes=keys(%{$parmlog{$id}{'logentry'}});
my $count = 0;	my $count = 0;
my $time =	my $time =
&Apache::lonlocal::locallocaltime($parmlog{$id}{'exe_time'});	&Apache::lonlocal::locallocaltime($parmlog{$id}{'exe_time'});
my $plainname =	my $plainname =
&Apache::loncommon::plainname($parmlog{$id}{'exe_uname'},	&Apache::loncommon::plainname($parmlog{$id}{'exe_uname'},
$parmlog{$id}{'exe_udom'});	$parmlog{$id}{'exe_udom'});
my $about_me_link =	my $about_me_link =
&Apache::loncommon::aboutmewrapper($plainname,	&Apache::loncommon::aboutmewrapper($plainname,
$parmlog{$id}{'exe_uname'},	$parmlog{$id}{'exe_uname'},
$parmlog{$id}{'exe_udom'});	$parmlog{$id}{'exe_udom'});
my $send_msg_link='';	my $send_msg_link='';
if ((($parmlog{$id}{'exe_uname'} ne $env{'user.name'})	if ((($parmlog{$id}{'exe_uname'} ne $env{'user.name'})
\|\| ($parmlog{$id}{'exe_udom'} ne $env{'user.domain'}))) {	\|\| ($parmlog{$id}{'exe_udom'} ne $env{'user.domain'}))) {
$send_msg_link ='<br />'.	$send_msg_link ='<br />'.
&Apache::loncommon::messagewrapper(&mt('Send message'),	&Apache::loncommon::messagewrapper(&mt('Send message'),
$parmlog{$id}{'exe_uname'},	$parmlog{$id}{'exe_uname'},
$parmlog{$id}{'exe_udom'});	$parmlog{$id}{'exe_udom'});
}	}
my $row_start=&Apache::loncommon::start_data_table_row();	my $row_start=&Apache::loncommon::start_data_table_row();
my $makenewrow=0;	my $makenewrow=0;
my %istype=();	my %istype=();
my $output;	my $output;
foreach my $changed (reverse(sort(@changes))) {	foreach my $changed (reverse(sort(@changes))) {
my $value=$parmlog{$id}{'logentry'}{$changed};	my $value=$parmlog{$id}{'logentry'}{$changed};
my $typeflag = ($changed =~/\.type$/ &&	my $typeflag = ($changed =~/\.type$/ &&
!exists($parmlog{$id}{'logentry'}{$changed.'.type'}));	!exists($parmlog{$id}{'logentry'}{$changed.'.type'}));
my ($realm,$section,$parmname,$part,$what,$middle,$uname,$udom,$issection,$realmdescription)=	my ($realm,$section,$parmname,$part,$what,$middle,$uname,$udom,$issection,$realmdescription)=
&components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'},undef,undef,$typeflag);	&components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'},undef,undef,$typeflag);
if ($env{'request.course.sec'} ne '') {	if ($env{'request.course.sec'} ne '') {
next if (($issection ne '') && ($issection ne $env{'request.course.sec'}));	next if (($issection ne '') && ($issection ne $env{'request.course.sec'}));
if ($uname ne '') {	if ($uname ne '') {
my $stusection = &Apache::lonnet::getsection($uname,$udom,$env{'request.course.id'});	my $stusection = &Apache::lonnet::getsection($uname,$udom,$env{'request.course.id'});
next if (($stusection ne '-1') && ($stusection ne $env{'request.course.sec'}));	next if (($stusection ne '-1') && ($stusection ne $env{'request.course.sec'}));
}	}
}	}
if ($env{'form.displayfilter'} eq 'currentfolder') {	if ($env{'form.displayfilter'} eq 'currentfolder') {
if ($folder) {	if ($folder) {
if ($middle!~/^\Q$folder\E/) { next; }	if ($middle!~/^\Q$folder\E/) { next; }
}	}
}	}
if ($typeflag) {	if ($typeflag) {
$istype{$parmname}=$value;	$istype{$parmname}=$value;
if (!$env{'form.includetypes'}) { next; }	if (!$env{'form.includetypes'}) { next; }
}	}
$count++;	$count++;
if ($makenewrow) {	if ($makenewrow) {
$output .= $row_start;	$output .= $row_start;
} else {	} else {
$makenewrow=1;	$makenewrow=1;
}	}
my $parmitem = &standard_parameter_names($parmname);	my $parmitem = &standard_parameter_names($parmname);
$output .='<td>'.$realm.'</td><td>'.$section.'</td><td>'.	$output .='<td>'.$realm.'</td><td>'.$section.'</td><td>'.
&mt($parmitem).'</td><td>'.	&mt($parmitem).'</td><td>'.
($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>';	($part?&mt('Part: [_1]',$part):&mt('All Parts')).'</td><td>';
my $stillactive=0;	my $stillactive=0;
if ($parmlog{$id}{'delflag'}) {	if ($parmlog{$id}{'delflag'}) {
$output .= &mt('Deleted');	$output .= &mt('Deleted');
} else {	} else {
if ($typeflag) {	if ($typeflag) {
my $parmitem = &standard_parameter_names($value);	my $parmitem = &standard_parameter_names($value);
$parmitem = &mt($parmitem);	$parmitem = &mt($parmitem);
$output .= &mt('Type: [_1]',$parmitem);	$output .= &mt('Type: [_1]',$parmitem);
} else {	} else {
my ($level,@all)=&parmval_by_symb($what,$middle,&Apache::lonnet::metadata($middle,$what),	my ($level,@all)=&parmval_by_symb($what,$middle,
$uname,$udom,$issection,$issection,$courseopt);	&Apache::lonnet::metadata($middle,$what),
	$uname,$udom,$issection,$issection,$courseopt);
my $showvalue = $value;	my $showvalue = $value;
if ($istype{$parmname} eq '') {	if ($istype{$parmname} eq '') {
my $type = &standard_parameter_types($parmname);	my $type = &standard_parameter_types($parmname);
Line 5250 sub parm_change_log {	Line 5725 sub parm_change_log {
}	}
}	}
} else {	} else {
if (&isdateparm($istype{$parmname})) {	if (&isdateparm($istype{$parmname})) {
$showvalue =	$showvalue = &Apache::lonlocal::locallocaltime($value);
&Apache::lonlocal::locallocaltime($value);	}
}
}	}
$output .= $showvalue;	$output .= $showvalue;
if ($value ne $all[$level]) {	if ($value ne $all[$level]) {
$output .= '<br /><span class="LC_warning">'.&mt('Not active anymore').'</span>';	$output .= '<br /><span class="LC_warning">'.&mt('Not active anymore').'</span>';
} else {	} else {
$stillactive=1;	$stillactive=1;
	}
	}
}	}
}	$output .= '</td><td>';
}
$output .= '</td><td>';	if ($stillactive) {

if ($stillactive) {
my $parmitem = &standard_parameter_names($parmname);	my $parmitem = &standard_parameter_names($parmname);
$parmitem = &mt($parmitem);	$parmitem = &mt($parmitem);
my $title=&mt('Changed [_1]',$parmitem);	my $title=&mt('Changed [_1]',$parmitem);
my $description=&mt('Changed [_1] for [_2] to [_3]',	my $description=&mt('Changed [_1] for [_2] to [_3]',
$parmitem,$realmdescription,	$parmitem,$realmdescription,
(&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value));	(&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value));
if (($uname) && ($udom)) {	if (($uname) && ($udom)) {
$output .=	$output .=
&Apache::loncommon::messagewrapper('Notify User',	&Apache::loncommon::messagewrapper('Notify User',
$uname,$udom,$title,	$uname,$udom,$title,
$description);	$description);
} else {	} else {
$output .=	$output .=
&Apache::lonrss::course_blog_link($id,$title,	&Apache::lonrss::course_blog_link($id,$title,
$description);	$description);
}	}
	}
	$output .= '</td>'.&Apache::loncommon::end_data_table_row();
}	}
$output .= '</td>'.&Apache::loncommon::end_data_table_row();
}
if ($env{'form.displayfilter'} eq 'containing') {	if ($env{'form.displayfilter'} eq 'containing') {
my $wholeentry=$about_me_link.':'.	my $wholeentry=$about_me_link.':'.
$parmlog{$id}{'exe_uname'}.':'.$parmlog{$id}{'exe_udom'}.':'.	$parmlog{$id}{'exe_uname'}.':'.$parmlog{$id}{'exe_udom'}.':'.
$output;	$output;
if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }	if ($wholeentry!~/\Q$env{'form.containingphrase'}\E/i) { next; }
}	}
if ($count) {	if ($count) {
$r->print($row_start.'<td rowspan="'.$count.'">'.$time.'</td>	$r->print($row_start.'<td rowspan="'.$count.'">'.$time.'</td>
<td rowspan="'.$count.'">'.$about_me_link.	<td rowspan="'.$count.'">'.$about_me_link.
'<br /><tt>'.$parmlog{$id}{'exe_uname'}.	'<br /><tt>'.$parmlog{$id}{'exe_uname'}.
':'.$parmlog{$id}{'exe_udom'}.'</tt>'.	':'.$parmlog{$id}{'exe_udom'}.'</tt>'.
$send_msg_link.'</td>'.$output);	$send_msg_link.'</td>'.$output);
$shown++;	$shown++;
}	}
if (!($env{'form.show'} eq &mt('all')	if (!($env{'form.show'} eq &mt('all')
\|\| $shown<=$env{'form.show'})) { last; }	\|\| $shown<=$env{'form.show'})) { last; }
}	}
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
&endSettingsScreen($r);	&endSettingsScreen($r);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
}	}

	##################################################
	# MISC !
	##################################################

	# Used by table UI
sub update_slots {	sub update_slots {
my ($slot_name,$cdom,$cnum,$symb,$uname,$udom) = @_;	my ($slot_name,$cdom,$cnum,$symb,$uname,$udom) = @_;
my %slot=&Apache::lonnet::get_slot($slot_name);	my %slot=&Apache::lonnet::get_slot($slot_name);
Line 5360 sub update_slots {	Line 5839 sub update_slots {
return $success;	return $success;
}	}

	# Used by table UI
sub delete_slots {	sub delete_slots {
my ($slot_name,$cdom,$cnum,$uname,$udom,$symb) = @_;	my ($slot_name,$cdom,$cnum,$uname,$udom,$symb) = @_;
my $delresult;	my $delresult;
Line 5395 sub delete_slots {	Line 5875 sub delete_slots {
return $delresult;	return $delresult;
}	}

	# Used by handler
sub check_for_course_info {	sub check_for_course_info {
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
return 1 if ($navmap);	return 1 if ($navmap);
Line 5411 sub parameter_release_vars {	Line 5892 sub parameter_release_vars {
}	}

sub parameter_releasecheck {	sub parameter_releasecheck {
my ($name,$value,$valmatch,$needsrelease,$cmajor,$cminor) = @_;	my ($name,$value,$valmatch,$namematch,$needsrelease,$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;
} elsif ($valmatch) {	} elsif ($name) {
&Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:'.$name.'::'.$valmatch});	if ($valmatch) {
} elsif ($value) {	&Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:'.$name.'::'.$valmatch.':'});
&Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:'.$name.':'.$value.':'});	} elsif ($value) {
	&Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter:'.$name.':'.$value.'::'});
	}
	} elsif ($namematch) {
	&Apache::lonnet::update_released_required($Apache::lonnet::needsrelease{'parameter::::'.$namematch});
}	}
return $needsnewer;	return $needsnewer;
}	}

	##################################################
	# HANDLER
	##################################################

	# Main handler for lonparmset.
	# Sub called based on request parameters action and command:
	# no command or action: print_main_menu
	# command 'set': assessparms (direct access to table mode for a resource)
	# (this can also be accessed simply with the symb parameter)
	# action 'setoverview': overview (display all existing parameter settings)
	# action 'addmetadata': addmetafield (called to add a portfolio metadata field)
	# action 'ordermetadata': order_meta_fields (called to order portfolio metadata fields)
	# action 'setrestrictmeta': setrestrictmeta (display or save portfolio metadata)
	# action 'newoverview': newoverview (overview mode)
	# action 'setdefaults': defaultsetter (UI to change parameter setting default actions)
	# action 'settable': assessparms (table mode)
	# action 'parameterchangelog': parm_change_log (display log for parameter changes,
	# blog postings, user notification changes)
	# action 'cleanparameters': clean_parameters (unused)
	# action 'dateshift1': date_shift_one (overview mode, shift all dates)
	# action 'dateshift2': date_shift_two (overview mode, shift all dates)
sub handler {	sub handler {
my $r=shift;	my $r=shift;

Line 5465 sub handler {	Line 5971 sub handler {
# Check first if coming from someone else headed directly for	# Check first if coming from someone else headed directly for
# the table mode	# the table mode
if ((($env{'form.command'} eq 'set') && ($env{'form.url'})	if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {	&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {
&assessparms($r);	&assessparms($r);
} elsif (! exists($env{'form.action'})) {	} elsif (! exists($env{'form.action'})) {
&print_main_menu($r,$parm_permission);	&print_main_menu($r,$parm_permission);
} elsif ($env{'form.action'} eq 'setoverview') {	} elsif ($env{'form.action'} eq 'setoverview') {
&overview($r);	&overview($r);
} elsif ($env{'form.action'} eq 'addmetadata') {	} elsif ($env{'form.action'} eq 'addmetadata') {
&addmetafield($r);	&addmetafield($r);
} elsif ($env{'form.action'} eq 'ordermetadata') {	} elsif ($env{'form.action'} eq 'ordermetadata') {
&order_meta_fields($r);	&order_meta_fields($r);
} elsif ($env{'form.action'} eq 'setrestrictmeta') {	} elsif ($env{'form.action'} eq 'setrestrictmeta') {
&setrestrictmeta($r);	&setrestrictmeta($r);
} elsif ($env{'form.action'} eq 'newoverview') {	} elsif ($env{'form.action'} eq 'newoverview') {
&newoverview($r);	&newoverview($r);
} elsif ($env{'form.action'} eq 'setdefaults') {	} elsif ($env{'form.action'} eq 'setdefaults') {
&defaultsetter($r);	&defaultsetter($r);
} elsif ($env{'form.action'} eq 'settable') {	} elsif ($env{'form.action'} eq 'settable') {
&assessparms($r);	&assessparms($r);
} elsif ($env{'form.action'} eq 'parameterchangelog') {	} elsif ($env{'form.action'} eq 'parameterchangelog') {
&parm_change_log($r);	&parm_change_log($r);
} elsif ($env{'form.action'} eq 'cleanparameters') {	} elsif ($env{'form.action'} eq 'cleanparameters') {
&clean_parameters($r);	&clean_parameters($r);
} elsif ($env{'form.action'} eq 'dateshift1') {	} elsif ($env{'form.action'} eq 'dateshift1') {
&date_shift_one($r);	&date_shift_one($r);
} elsif ($env{'form.action'} eq 'dateshift2') {	} elsif ($env{'form.action'} eq 'dateshift2') {
Line 5494 sub handler {	Line 6000 sub handler {
}	}
} else {	} else {
# ----------------------------- Not in a course, or not allowed to modify parms	# ----------------------------- Not in a course, or not allowed to modify parms
if ($exists) {	if ($exists) {
$env{'user.error.msg'}=	$env{'user.error.msg'}=
"/adm/parmset:opa:0:0:Cannot modify assessment parameters";	"/adm/parmset:opa:0:0:Cannot modify assessment parameters";
} else {	} else {
$env{'user.error.msg'}=	$env{'user.error.msg'}=
"/adm/parmset::0:1:Course environment gone, reinitialize the course";	"/adm/parmset::0:1:Course environment gone, reinitialize the course";
}	}
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
&reset_caches();	&reset_caches();

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

Removed from v.1.554
changed lines
	Added in v.1.561