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.442 and 1.450

version 1.442, 2009/04/05 17:31:04	version 1.450, 2009/05/17 01:02:10
Line 214 Variables used (guessed by Jeremy):	Line 214 Variables used (guessed by Jeremy):
When storing information, store as part 0	When storing information, store as part 0
When requesting information, request from full part	When requesting information, request from full part

=item crsenv()

Show and set course data and parameters. This is a large routine that should
be simplified and shortened... someday.

Inputs: $r

Returns: nothing

=item can_modify_catsettings()

=item assign_course_categories()

=item tablestart()	=item tablestart()

=item tableend()	=item tableend()
Line 322 Set portfolio metadata	Line 309 Set portfolio metadata

=item handler() :	=item handler() :

Main handler. Calls &assessparms and &crsenv subroutines.	Main handler. Calls &assessparms subroutine.


=back	=back
Line 366 sub parmval_by_symb {	Line 353 sub parmval_by_symb {
my $result='';	my $result='';
my @outpar=();	my @outpar=();
# ----------------------------------------------------- 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);

my $symbparm=$symb.'.'.$what;	my $symbparm=$symb.'.'.$what;
Line 468 sub parmval_by_symb {	Line 455 sub parmval_by_symb {

# --- Caches local to lonparmset	# --- Caches local to lonparmset


sub reset_caches {	sub reset_caches {
&resetparmhash();	&resetparmhash();
&resetsymbcache();	&resetsymbcache();
Line 482 sub reset_caches {	Line 469 sub reset_caches {
undef($parmhashid);	undef($parmhashid);
undef(%parmhash);	undef(%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;
Line 493 sub reset_caches {	Line 480 sub reset_caches {
$parmhashid=$env{'request.course.fn'};	$parmhashid=$env{'request.course.fn'};
}	}
}	}

sub parmhash {	sub parmhash {
my ($id) = @_;	my ($id) = @_;
&cacheparmhash();	&cacheparmhash();
Line 501 sub reset_caches {	Line 488 sub reset_caches {
}	}
}	}

{	{
my $symbsid;	my $symbsid;
my %symbs;	my %symbs;
sub resetsymbcache {	sub resetsymbcache {
undef($symbsid);	undef($symbsid);
undef(%symbs);	undef(%symbs);
}	}

sub symbcache {	sub symbcache {
my $id=shift;	my $id=shift;
if ($symbsid ne $env{'request.course.id'}) {	if ($symbsid ne $env{'request.course.id'}) {
Line 529 sub reset_caches {	Line 516 sub reset_caches {
}	}
}	}

{	{
my $rulesid;	my $rulesid;
my %rules;	my %rules;
sub resetrulescache {	sub resetrulescache {
undef($rulesid);	undef($rulesid);
undef(%rules);	undef(%rules);
}	}

sub rulescache {	sub rulescache {
my $id=shift;	my $id=shift;
if ($rulesid ne $env{'request.course.id'}	if ($rulesid ne $env{'request.course.id'}
Line 683 sub storeparm_by_symb_inner {	Line 670 sub storeparm_by_symb_inner {
my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;	my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$cgroup)=@_;
# ---------------------------------------------------------- Construct prefixes	# ---------------------------------------------------------- Construct prefixes
$spnam=~s/\_([^\_]+)$/\.$1/;	$spnam=~s/\_([^\_]+)$/\.$1/;
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);

my $symbparm=$symb.'.'.$spnam;	my $symbparm=$symb.'.'.$spnam;
Line 696 sub storeparm_by_symb_inner {	Line 683 sub storeparm_by_symb_inner {
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 $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 $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==14) \|\| ($snum==3)) { $storeunder=$courselevel; }
if (($snum==13) \|\| ($snum==2)) { $storeunder=$courselevelm; }	if (($snum==13) \|\| ($snum==2)) { $storeunder=$courselevelm; }
Line 712 sub storeparm_by_symb_inner {	Line 699 sub storeparm_by_symb_inner {
if ($snum==5) { $storeunder=$grplevelm; }	if ($snum==5) { $storeunder=$grplevelm; }
if ($snum==4) { $storeunder=$grplevelr; }	if ($snum==4) { $storeunder=$grplevelr; }


my $delete;	my $delete;
if ($nval eq '') { $delete=1;}	if ($nval eq '') { $delete=1;}
my %storecontent = ($storeunder => $nval,	my %storecontent = ($storeunder => $nval,
Line 769 sub storeparm_by_symb_inner {	Line 756 sub storeparm_by_symb_inner {
}	}
&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>";
}	}
Line 926 sub startpage {	Line 913 sub startpage {
text=>"Table Mode",	text=>"Table Mode",
help => 'Course_Setting_Parameters'});	help => 'Course_Setting_Parameters'});
}	}
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Set/Modify Course Parameters',	&Apache::loncommon::start_page('Set/Modify Course Parameters',
&page_js(),	&page_js(),
{'add_entries' => \%loaditems,});	{'add_entries' => \%loaditems,});
my $breadcrumbs =	my $breadcrumbs =
&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');	&Apache::lonhtmlcommon::breadcrumbs('Table Mode Parameter Setting','Table_Mode');
$r->print(<<ENDHEAD);	$r->print(<<ENDHEAD);
$start_page	$start_page
Line 962 sub print_row {	Line 949 sub print_row {
# cascade down manually	# cascade down manually
my $cascadetype=$$defaulttype{$which};	my $cascadetype=$$defaulttype{$which};
for (my $i=14;$i>0;$i--) {	for (my $i=14;$i>0;$i--) {
if ($typeoutpar[$i]) {	if ($typeoutpar[$i]) {
$cascadetype=$typeoutpar[$i];	$cascadetype=$typeoutpar[$i];
} else {	} else {
$typeoutpar[$i]=$cascadetype;	$typeoutpar[$i]=$cascadetype;
Line 981 sub print_row {	Line 968 sub print_row {
$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>');

my $thismarker=$which;	my $thismarker=$which;
$thismarker=~s/^parameter\_//;	$thismarker=~s/^parameter\_//;
my $mprefix=$rid.'&'.$thismarker.'&';	my $mprefix=$rid.'&'.$thismarker.'&';
Line 995 sub print_row {	Line 982 sub print_row {
} elsif ($cgroup) {	} elsif ($cgroup) {
&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,6,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
} elsif ($csec) {	} elsif ($csec) {
&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
} else {	} else {
&print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,14,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
}	}
} elsif ($parmlev eq 'map') {	} elsif ($parmlev eq 'map') {

Line 1034 sub print_row {	Line 1021 sub print_row {
&print_td($r,12,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,12,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,11,'#FFDDDD',$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,10,$defbgone,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);

if ($csec) {	if ($csec) {
&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,9,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,8,$defbgtwo,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
Line 1046 sub print_row {	Line 1033 sub print_row {
&print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,5,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
&print_td($r,4,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);	&print_td($r,4,$defbgthree,$result,\@outpar,$mprefix,$_,\@typeoutpar,$display);
}	}

if ($uname) {	if ($uname) {
if ($othergrp) {	if ($othergrp) {
$r->print($othergrp);	$r->print($othergrp);
Line 1107 sub print_usergroups {	Line 1094 sub print_usergroups {
$courseopt);	$courseopt);
my $bgcolor = $defbg;	my $bgcolor = $defbg;
my $grp_parm;	my $grp_parm;
if (($coursereply) && ($cgroup ne $resultgroup)) {	if (($coursereply) && ($cgroup ne $resultgroup)) {
if ($result > 3) {	if ($result > 3) {
$bgcolor = '#AAFFAA';	$bgcolor = '#AAFFAA';
$grp_parm = &valout($coursereply,$resulttype);	$grp_parm = &valout($coursereply,$resulttype);
Line 1221 sub extractResourceInformation {	Line 1208 sub extractResourceInformation {
}	}
#	#
# Put in order	# Put in order
#	#
unless ($$keyorder{$key}) {	unless ($$keyorder{$key}) {
$$keyorder{$key}=$keyordercnt;	$$keyorder{$key}=$keyordercnt;
$keyordercnt++;	$keyordercnt++;
}	}
}	}


if (!exists($$mapp{$mapid})) {	if (!exists($$mapp{$mapid})) {
$$mapp{$id}=	$$mapp{$id}=
&Apache::lonnet::declutter($resource->enclosing_map_src());	&Apache::lonnet::declutter($resource->enclosing_map_src());
Line 1238 sub extractResourceInformation {	Line 1225 sub extractResourceInformation {
$$maptitles{$mapid}=&mt('Main Course Documents');	$$maptitles{$mapid}=&mt('Main Course Documents');
} else {	} else {
$$maptitles{$mapid}=	$$maptitles{$mapid}=
&Apache::lonnet::gettitle($$mapp{$id});	&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)';
Line 1296 sub parmmenu {	Line 1283 sub parmmenu {
checkthis('contentopen','pscat');	checkthis('contentopen','pscat');
checkthis('contentclose','pscat');	checkthis('contentclose','pscat');
}	}


function checkvisi() {	function checkvisi() {
checkthis('hiddenresource','pscat');	checkthis('hiddenresource','pscat');
Line 1322 sub parmmenu {	Line 1309 sub parmmenu {
</script>	</script>
ENDSCRIPT	ENDSCRIPT
$r->print();	$r->print();
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameters to View')));
$r->print("\n".'<table id="LC_parm_overview_parm_menu"><tr>');	$r->print("\n".'<table id="LC_parm_overview_parm_menu"><tr>');
my $cnt=0;	my $cnt=0;
foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {	foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
Line 1383 ENDSCRIPT	Line 1371 ENDSCRIPT

sub partmenu {	sub partmenu {
my ($r,$allparts,$psprt)=@_;	my ($r,$allparts,$psprt)=@_;

$r->print('<select multiple="multiple" name="psprt" size="8">');	$r->print('<select multiple="multiple" name="psprt" size="8">');
$r->print('<option value="all"');	$r->print('<option value="all"');
$r->print(' selected="selected"') unless (@{$psprt});	$r->print(' selected="selected"') unless (@{$psprt});
Line 1457 function group_or_section(caller) {	Line 1446 function group_or_section(caller) {
}	}
</script>	</script>
\|;	\|;
}	}

if (%grouphash) {	if (%grouphash) {
$groups=&mt('Group:').' <select name="cgroup"';	$groups=&mt('Group:').' <select name="cgroup"';
Line 1484 function group_or_section(caller) {	Line 1473 function group_or_section(caller) {
}	}

if (%sectionhash \|\| %grouphash) {	if (%sectionhash \|\| %grouphash) {
$g_s_header='<fieldset><legend>'.&mt('Group/Section').'</legend><div>';	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Group/Section')));
$g_s_footer='</div></fieldset>';	$r->print($sections.$groups);
	$r->print(&Apache::lonhtmlcommon::row_closure());
}	}

$r->print('<b>'	$r->print(&Apache::lonhtmlcommon::row_title(&mt('User')));
.$g_s_header	$r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'
.$sections
.$groups
.$g_s_footer
.'<fieldset><legend>'.&mt('User').'</legend><div>'
.&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'
,'<input type="text" value="'.$uname.'" size="12" name="uname" />'	,'<input type="text" value="'.$uname.'" size="12" name="uname" />'
,'<input type="text" value="'.$id.'" size="12" name="id" /> '	,'<input type="text" value="'.$id.'" size="12" name="id" /> '
,$chooseopt)	,$chooseopt));
.'</div></fieldset>'
.'</b>'
);
}	}

sub displaymenu {	sub displaymenu {
my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;	my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;
$r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'.	$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));
&mt('Select Parts to View').'</th></tr><tr><td>');	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&parmmenu($r,$allparms,$pscat,$keyorder);	&parmmenu($r,$allparms,$pscat,$keyorder);
$r->print('</td><td valign="top" align="center">');	$r->print(&Apache::lonhtmlcommon::row_closure());

	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parts to View')));
&partmenu($r,$allparts,$psprt);	&partmenu($r,$allparts,$psprt);
$r->print('</td></tr></table>');	$r->print(&Apache::lonhtmlcommon::row_closure(1));
	$r->print(&Apache::lonhtmlcommon::end_pick_box());
}	}

sub mapmenu {	sub mapmenu {
my ($r,$allmaps,$pschp,$maptitles)=@_;	my ($r,$allmaps,$pschp,$maptitles)=@_;
$r->print('<b>'.&mt('Select Enclosing Map or Folder').'</b> ');
	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Enclosing Map or Folder')));
$r->print('<select name="pschp">');	$r->print('<select name="pschp">');
$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');	$r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {	foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {
Line 1524 sub mapmenu {	Line 1510 sub mapmenu {
$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');	$r->print('>'.$$maptitles{$_}.($$allmaps{$_}!~/^uploaded/?' ['.$$allmaps{$_}.']':'').'</option>');
}	}
$r->print("</select>");	$r->print("</select>");

}	}

sub levelmenu {	sub levelmenu {
my ($r,$alllevs,$parmlev)=@_;	my ($r,$alllevs,$parmlev)=@_;
$r->print('<b>'.&mt('Select Parameter Level').
&Apache::loncommon::help_open_topic('Course_Parameter_Levels').'</b> ');	$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameter Level').&Apache::loncommon::help_open_topic('Course_Parameter_Levels')));
$r->print('<select name="parmlev">');	$r->print('<select name="parmlev">');
foreach (reverse sort keys %{$alllevs}) {	foreach (reverse sort keys %{$alllevs}) {
$r->print('<option value="'.$$alllevs{$_}.'"');	$r->print('<option value="'.$$alllevs{$_}.'"');
if ($parmlev eq $$alllevs{$_}) {	if ($parmlev eq $$alllevs{$_}) {
$r->print(' selected="selected"');	$r->print(' selected="selected"');
}	}
$r->print('>'.&mt($_).'</option>');	$r->print('>'.&mt($_).'</option>');
}	}
Line 1674 sub assessparms {	Line 1661 sub assessparms {
my $csec;	my $csec;
my $cgroup;	my $cgroup;
my @usersgroups = ();	my @usersgroups = ();

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

$alllevs{'Resource Level'}='full';	$alllevs{'Resource Level'}='full';
Line 1711 sub assessparms {	Line 1698 sub assessparms {

my $pssymb='';	my $pssymb='';
my $parmlev='';	my $parmlev='';

unless ($env{'form.parmlev'}) {	unless ($env{'form.parmlev'}) {
$parmlev = 'map';	$parmlev = 'map';
} else {	} else {
Line 1762 sub assessparms {	Line 1749 sub assessparms {
} else {	} else {
$csec=&Apache::lonnet::getsection($udom,$uname,	$csec=&Apache::lonnet::getsection($udom,$uname,
$env{'request.course.id'});	$env{'request.course.id'});

if ($csec eq '-1') {	if ($csec eq '-1') {
$message='<span class="LC_error">'.	$message='<span class="LC_error">'.
&mt("User")." '$uname' ".&mt("at domain")." '$udom' ".	&mt("User")." '$uname' ".&mt("at domain")." '$udom' ".
Line 1792 sub assessparms {	Line 1779 sub assessparms {
unless ($cgroup) { $cgroup=''; }	unless ($cgroup) { $cgroup=''; }

# --------------------------------------------------------- Get all assessments	# --------------------------------------------------------- Get all assessments
&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,	&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
\%mapp, \%symbp,\%maptitles,\%uris,	\%mapp, \%symbp,\%maptitles,\%uris,
\%keyorder);	\%keyorder);

Line 1848 sub assessparms {	Line 1835 sub assessparms {
}	}
#----------------------------------------------- if all selected, fill in array	#----------------------------------------------- if all selected, fill in array
if ($pscat[0] eq "all") {@pscat = (keys %allparms);}	if ($pscat[0] eq "all") {@pscat = (keys %allparms);}
if (!@pscat) { @pscat=('duedate','opendate','answerdate','weight','maxtries') };	if (!@pscat) { @pscat=('duedate','opendate','answerdate','weight','maxtries') };
if ($psprt[0] eq "all" \|\| !@psprt) {@psprt = (keys %allparts);}	if ($psprt[0] eq "all" \|\| !@psprt) {@psprt = (keys %allparts);}
# ------------------------------------------------------------------ Start page	# ------------------------------------------------------------------ Start page

Line 1860 sub assessparms {	Line 1847 sub assessparms {
&HTML::Entities::encode($env{'form.recent_'.$_},'"&<>').	&HTML::Entities::encode($env{'form.recent_'.$_},'"&<>').
'" name="recent_'.$_.'" />');	'" name="recent_'.$_.'" />');
}	}

if (!$pssymb) {	if (!$pssymb) {
$r->print('<table border="1"><tr><td>');	$r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('General Parameters')));
	$r->print(&Apache::lonhtmlcommon::start_pick_box());

&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);
$r->print('</td>');
if ($parmlev ne 'general') {	if ($parmlev ne 'general') {
$r->print('<td>');	$r->print(&Apache::lonhtmlcommon::row_closure());
&mapmenu($r,\%allmaps,$pschp,\%maptitles);	&mapmenu($r,\%allmaps,$pschp,\%maptitles);
$r->print('</td>');
}	}
$r->print('</tr></table>');
	$r->print(&Apache::lonhtmlcommon::row_closure(1));
	$r->print(&Apache::lonhtmlcommon::end_pick_box());

&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);	&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
} else {	} else {
my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);	my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
Line 1880 sub assessparms {	Line 1871 sub assessparms {
'<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.	'<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.
($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');	($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');
}	}
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);	$r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Selection')));
	$r->print(&Apache::lonhtmlcommon::start_pick_box());
	&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
	$r->print(&Apache::lonhtmlcommon::row_closure(1));
	$r->print(&Apache::lonhtmlcommon::end_pick_box());


$r->print('<p>'.$message.'</p>');	$r->print('<p>'.$message.'</p>');

Line 1905 sub assessparms {	Line 1901 sub assessparms {
my $userspan=3;	my $userspan=3;
if ($cgroup ne '') {	if ($cgroup ne '') {
$coursespan += 3;	$coursespan += 3;
}	}

$r->print('<p><table border="2">');	$r->print('<p><table border="2">');
$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>');
Line 1982 ENDTABLEHEADFOUR	Line 1978 ENDTABLEHEADFOUR
my $rid=$_;	my $rid=$_;
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})) {
Line 2087 ENDTABLEHEADFOUR	Line 2083 ENDTABLEHEADFOUR
my %maplist;	my %maplist;

if ($pschp eq 'all') {	if ($pschp eq 'all') {
%maplist = %allmaps;	%maplist = %allmaps;
} else {	} else {
%maplist = ($pschp => $mapp{$pschp});	%maplist = ($pschp => $mapp{$pschp});
}	}
Line 2107 ENDTABLEHEADFOUR	Line 2103 ENDTABLEHEADFOUR
my $map = 0;	my $map = 0;

# $r->print("Catmarker: @catmarker<br />\n");	# $r->print("Catmarker: @catmarker<br />\n");

foreach (@ids) {	foreach (@ids) {
($map)=(/([\d]*?)\./);	($map)=(/([\d]*?)\./);
my $rid = $_;	my $rid = $_;

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

if ($map eq $mapid) {	if ($map eq $mapid) {
Line 2129 ENDTABLEHEADFOUR	Line 2125 ENDTABLEHEADFOUR
my $tempkeyp = $_;	my $tempkeyp = $_;
my $fullkeyp = $tempkeyp;	my $fullkeyp = $tempkeyp;
$tempkeyp =~ s/_\w+_/_0_/;	$tempkeyp =~ s/_\w+_/_0_/;

if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {	if ((grep $_ eq $fullkeyp, @catmarker) &&(!$name{$tempkeyp})) {
$part{$tempkeyp}="0";	$part{$tempkeyp}="0";
$name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');	$name{$tempkeyp}=&Apache::lonnet::metadata($uri,$fullkeyp.'.name');
Line 2152 ENDTABLEHEADFOUR	Line 2148 ENDTABLEHEADFOUR
} # end loop through keys	} # end loop through keys
}	}
} # end loop through ids	} # end loop through ids

#---------------------------------------------------- print header information	#---------------------------------------------------- print header information
my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');	my $foldermap=&mt($maptitle=~/^uploaded/?'Folder':'Map');
my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');	my $showtitle=$maptitles{$maptitle}.($maptitle!~/^uploaded/?' ['.$maptitle.']':'');
Line 2215 ENDTABLEHEADFOUR	Line 2211 ENDTABLEHEADFOUR
my %display = ();	my %display = ();
my %type = ();	my %type = ();
my %default = ();	my %default = ();

foreach (@ids) {	foreach (@ids) {
my $rid = $_;	my $rid = $_;

my $uri=&Apache::lonnet::declutter($uris{$rid});	my $uri=&Apache::lonnet::declutter($uris{$rid});

#--------------------------------------------------------------------	#--------------------------------------------------------------------
Line 2253 ENDTABLEHEADFOUR	Line 2249 ENDTABLEHEADFOUR
}	}
} # end loop through keys	} # end loop through keys
} # end loop through ids	} # end loop through ids

#---------------------------------------------------- print header information	#---------------------------------------------------- print header information
my $setdef=&mt("Set Defaults for All Resources in Course");	my $setdef=&mt("Set Defaults for All Resources in Course");
$r->print(<<ENDMAPONE);	$r->print(<<ENDMAPONE);
Line 2267 ENDMAPONE	Line 2263 ENDMAPONE
} else {	} else {
$r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");	$r->print("<i><font color=\"red\"> ".&mt("ALL")."</i> ".&mt("USERS")."</font> \n");
}	}

if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};	if ($csec) {$r->print(&mt("Section")."<font color=\"red\"> <i>$csec</i></font>\n")};
if ($cgroup) {$r->print(&mt("Group")."<font color=\"red\"> <i>$cgroup</i></font>\n")};	if ($cgroup) {$r->print(&mt("Group")."<font color=\"red\"> <i>$cgroup</i></font>\n")};
$r->print("</h4>\n");	$r->print("</h4>\n");
Line 2295 ENDMAPONE	Line 2291 ENDMAPONE
$r->print('</form>'.&Apache::loncommon::end_page());	$r->print('</form>'.&Apache::loncommon::end_page());
} # end sub assessparms	} # end sub assessparms



sub crsenv {
my $r=shift;
my $setoutput='';

&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
text=>"Course Environment"});
my $breadcrumbs =
&Apache::lonhtmlcommon::breadcrumbs('Edit Course Environment');
my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};

my (%crsinfo,$chome);
my $crstype = &Apache::loncommon::course_type();

#
# Go through list of changes
foreach (keys %env) {
next if ($_!~/^form\.(.+)\_setparmval$/);
my $name = $1;
my $value = $env{'form.'.$name.'_value'};
if ($name eq 'newp') {
$name = $env{'form.newp_name'};
}
if ($name =~ /^rolenames_([^_]+)$/) {
$name = $1.'.plaintext';
my $standardtitle =
&Apache::lonnet::plaintext($1,$crstype,$env{'request.course.id'},1);
my %adv_roles =
&Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);
if ($value ne '') {
foreach my $role (keys(%adv_roles)) {
if ($role =~ m{^cr/$match_domain/$match_name/\Q$value\E$}) {
$setoutput.= '<span class="LC_error">'.
&mt('Requested replacement title for [_1] role is already used as the name of a custom role ([_2]).',$standardtitle,$value).
'</span><br />';
undef($value);
}
}
}
}
if ($name eq 'url') {
$value=~s/^\/res\///;
my $bkuptime=time;
my @tmp = &Apache::lonnet::get
('environment',['url'],$dom,$crs);
$setoutput.=&mt('Backing up previous URL').': '.
&Apache::lonnet::put
('environment',
{'top level map backup '.$bkuptime => $tmp[1] },
$dom,$crs).
'<br />';
}
#
# Deal with modified default spreadsheets
if ($name =~ /^spreadsheet_default_(classcalc\|
studentcalc\|
assesscalc)$/x) {
my $sheettype = $1;
if ($sheettype eq 'classcalc') {
# no need to do anything since viewing the sheet will
# cause it to be updated.
} elsif ($sheettype eq 'studentcalc') {
# expire all the student spreadsheets
&Apache::lonnet::expirespread('','','studentcalc');
} else {
# expire all the assessment spreadsheets
# this includes non-default spreadsheets, but better to
# be safe than sorry.
&Apache::lonnet::expirespread('','','assesscalc');
# expire all the student spreadsheets
&Apache::lonnet::expirespread('','','studentcalc');
}
}
#
# Deal with the enrollment dates
if ($name =~ /^default_enrollment_(start\|end)_date$/) {
$value=&Apache::lonhtmlcommon::get_date_from_form($name.'_value');
}
#
# Deal with the emails
if ($name =~ /\.email$/) {
foreach my $specifier (split(',',$value)) {
my ($user,$sections_or_groups)=
($specifier=~/^([^$]+)\(([^$]+)\)/);
if (!$sections_or_groups) {
$user = $specifier;
}
my ($name,$domain) = split(':',$user);
if (!defined($user) \|\| !defined($domain)) {
$setoutput.= '<br /> <span class="LC_error">'.
&mt("Invalid e-mail address specified, address must be of the form username:domain what was specified was ([_1])",$user).
'</span>';
undef($value);
} elsif (&Apache::lonnet::homeserver($user,$domain) eq 'no_host') {
$setoutput.= '<br /> <span class="LC_error">'.
&mt("Invalid e-mail address specified, user [_1] is unknown.",$name).
'</span>';
undef($value);
}
}
}
# Get existing cloners
my @oldcloner = ();
if ($name eq 'cloners') {
my %clonenames=&Apache::lonnet::dump('environment',$dom,$crs,'cloners');
if ($clonenames{'cloners'} =~ /,/) {
@oldcloner = split/,/,$clonenames{'cloners'};
} else {
$oldcloner[0] = $clonenames{'cloners'};
}
}
#
# Let the user know we made the changes
if ($name && defined($value)) {
my %failed_cloners;
if ($name eq 'cloners') {
$value =~ s/\s//g;
$value =~ s/^,//;
$value =~ s/,$//;
# check requested clones are valid users.
%failed_cloners = &check_cloners(\$value,\@oldcloner);
}
my $put_result = &Apache::lonnet::put('environment',
{$name=>$value},$dom,$crs);
if ($put_result eq 'ok') {
$setoutput.=&mt('Set').' <b>'.$name.'</b> '.&mt('to').' <b>';
if ($name =~ /^default_enrollment_(start\|end)_date$/) {
$setoutput .= &Apache::lonlocal::locallocaltime($value);
} elsif ($name eq 'categories') {
$setoutput .= $env{'form.categories_display'};
} else {
$setoutput .= $value;
}
$setoutput .= '</b>.<br />';
if ($name eq 'cloners') {
&change_clone($value,\@oldcloner);
}
# Update environment and nohist_courseids.db
if (($name eq 'description') \|\| ($name eq 'cloners') \|\|
($name eq 'hidefromcat') \|\| ($name eq 'categories')) {
if ($chome eq '') {
%crsinfo =
&Apache::lonnet::courseiddump($dom,'.',1,'.','.',
$crs,undef,undef,'.');
$chome = &Apache::lonnet::homeserver($crs,$dom);
}
}
if ($name eq 'description' && defined($value)) {
&Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.description' => $value});
if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {
$crsinfo{$env{'request.course.id'}}{'description'} = $value;
my $putresult =
&Apache::lonnet::courseidput($dom,\%crsinfo,
$chome,'notime');
}
}
if (($name eq 'cloners') \|\| ($name eq 'hidefromcat') \|\| ($name eq 'categories')) {
if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {
&Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.'.$name => $value});
$crsinfo{$env{'request.course.id'}}{$name} = $value;
my $putresult =
&Apache::lonnet::courseidput($dom,\%crsinfo,
$chome,'notime');
}
}
} else {
$setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';
}
if (($name eq 'cloners') && (keys(%failed_cloners) > 0)) {
$setoutput.= &mt('Unable to include').': ';
my @fails;
my $num = 0;
if (defined($failed_cloners{'format'})) {
$fails[$num] .= '<b>'.$failed_cloners{'format'}.
'</b>, '.&mt('reason').' - '.
&mt('Invalid format');
$num ++;
}
if (defined($failed_cloners{'domain'})) {
$fails[$num] .= '<b>'.$failed_cloners{'domain'}.
'</b>, '.&mt('reason').' - '.
&mt('Domain does not exist');
$num ++;
}
if (defined($failed_cloners{'newuser'})) {
$fails[$num] .= '<b>'.$failed_cloners{'newuser'}. '</b>, '.&mt('reason').' - '.
&mt('LON-CAPA user(s) do(es) not exist.').
'.<br />'.&mt('Please ').
' <a href="/adm/createuser">'.
&mt('add the user(s)').'</a>, '.
&mt('and then return to the ').
'<a href="/adm/parmset?action=crsenv">'.
&mt('Course Parameters page').'</a> '.
&mt('to add the new user(s) to the list of possible cloners');
}
$setoutput .= join(';  ',@fails).'.<br />';
}
}
}

# ------------------------- Re-init course environment entries for this session

&Apache::lonnet::coursedescription($env{'request.course.id'},
{'freshen_cache' => 1});

# -------------------------------------------------------- Get parameters again

my %values=&Apache::lonnet::dump('environment',$dom,$crs);
my $SelectStyleFile=&mt('Select Style File');
my $SelectSpreadsheetFile=&mt('Select Spreadsheet File');
my $output='';
my $output_SB = ''; # will be replaced by "$output" when all changes are done
my $can_categorize;
my %lt=&Apache::lonlocal::texthash(
'par' => 'Parameter',
'val' => 'Value',
'set' => 'Set?',
'sav' => 'Save',
);
if (! exists($values{'con_lost'})) {
my %descriptions=
('url' => '<b>'.&mt('Top Level Map').'</b><br />'.
'<a href="javascript:openbrowser'.
"('envform','url','sequence')\">".
&mt('Select Map').'</a><br /><span class="LC_warning"> '.
&mt('Modification may make assessment data inaccessible!').
'</span>',
'description' => '<b>'.&mt('Course Title').'</b>',
'courseid' => '<b>'.&mt('Course ID or number').
'</b><br />'.
'('.&mt('internal, optional').')',
'cloners' => '<b>'.&mt('Users allowed to clone course').'</b><br />'
.'("<tt>'.&mt('user:domain,user:domain,*:domain').'</tt>")<br />'
.&mt('Users with active Course Coordinator role in this course are permitted to clone and need not be included.').'<br />'
.&mt('Use [_1] to allow course to be cloned by anyone in the specified domain.','"<tt>*:domain</tt>"').'<br />'
.&mt('Use [_1] to allow unrestricted cloning in all domains.','"<tt>*</tt>"'),
'grading' => '<b>'.&mt('Grading').'</b><br />'.
&mt('[_1], [_2], or [_3]','"<tt>standard</tt>"','"<tt>external</tt>"','"<tt>spreadsheet</tt>"').&Apache::loncommon::help_open_topic('GradingOptions'),
'task_grading' => '<b>'.&mt('Bridge Task Grading').'</b><br />'
.&mt('Instructors and TAs in sections, when grading bridge tasks, should be allowed to grade other sections.').'<br />'
.'('.&mt('[_1]: they are allowed (this is the default). [_2]: no, they can only grade their own section.','"<tt>any</tt>"','"<tt>section</tt>"').')',
'default_xml_style' => '<b>'.&mt('Default XML Style File').'</b><br />'.
'<a href="javascript:openbrowser'.
"('envform','default_xml_style'".
",'sty')\">$SelectStyleFile</a><br />",
'question.email' => '<b>'.&mt('Feedback Addresses for Resource Content Question').'</b><br />'
.'("<tt>'.&mt('user:domain,user:domain(section;section;...;*;...),...').'</tt>")',
'question.email.text' => '<b>'.&mt('Custom Text for Resource Content Question Option in Feedback').'</b>',
'comment.email' => '<b>'.&mt('Feedback Addresses for Course Content Comments').'</b><br />'
.'("<tt>'.&mt('user:domain,user:domain(section;section;...;*;...),...').'</tt>")',
'comment.email.text' => '<b>'.&mt('Custom Text for Course Content Option in Feedback').'</b>',
'policy.email' => '<b>'.&mt('Feedback Addresses for Course Policy').'</b><br />'
.'("<tt>'.&mt('user:domain,user:domain(section;section;...;*;...),...').'</tt>")',
'policy.email.text' => '<b>'.&mt('Custom Text for Course Policy Option in Feedback').'</b>',
'hideemptyrows' => '<b>'.&mt('Hide Empty Rows in Spreadsheets').'</b><br />'
.'('.&mt('[_1] for default hiding','"<tt>yes</tt>"').')',
'pageseparators' => '<b>'.&mt('Visibly Separate Items on Pages').'</b><br />'
.'('.&mt('[_1] for visible separation.','"<tt>yes</tt>"').' '
.&mt('Changes will not show until next login.').')',
'student_classlist_view' => '<b>'.&mt('Allow students to view classlist.').'</b><br />'
.'('.&mt('[_1]: students can view all sections. [_2]: students can only view their own section. blank or [_3] prevents student view.','"<tt>all</tt>"','"<tt>section</tt>"','"<tt>disabled</tt>"').')',
'student_classlist_portfiles' => '<b>'.&mt('Include link to accessible portfolio files').'</b><br />'
.'('.&mt("[_1] for link to each a listing of each student's files.",'"<tt>yes</tt>"').')',
'student_classlist_opt_in' => '<b>'.&mt("Student's agreement needed for listing in student-viewable roster").'</b><br />'
.'('.&mt('[_1] to require students to opt-in to listing in the roster (on the roster page).','"<tt>yes</tt>"').')',
'plc.roles.denied'=> '<b>'.&mt('Disallow chat room use for Roles').'</b><br />'
.'('.&mt('[_1]: student, [_2]: TA, [_3]: instructor','"<tt>st</tt>"','"<tt>ta</tt>"','"<tt>in</tt>"').')<br />'
.'("<tt>'.&mt('role,role,...').'</tt>") '
.Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
'plc.users.denied' =>
'<b>'.&mt('Disallow chat room use for Users').'</b><br />'.
'("<tt>'.&mt('user:domain,user:domain,...').'</tt>")',

'pch.roles.denied'=> '<b>'.&mt('Disallow Resource Discussion for Roles').'</b><br />'
.'('.&mt('[_1]: student, [_2]: TA, [_3]: instructor','"<tt>st</tt>"','"<tt>ta</tt>"','"<tt>in</tt>"')
.'("<tt>'.&mt('role,role,...').'</tt>") '
.Apache::loncommon::help_open_topic("Course_Disable_Discussion"),
'pch.users.denied' =>
'<b>'.&mt('Disallow Resource Discussion for Users').'</b><br />'.
'("<tt>'.&mt('user:domain,user:domain,...').'</tt>")',
'spreadsheet_default_classcalc'
=> '<b>'.&mt('Default Course Spreadsheet').'</b> '.
'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_classcalc'".
",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
'spreadsheet_default_studentcalc'
=> '<b>'.&mt('Default Student Spreadsheet').'</b><br />'.
'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_calc'".
",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
'spreadsheet_default_assesscalc'
=> '<b>'.&mt('Default Assessment Spreadsheet').'</b> '.
'<a href="javascript:openbrowser'.
"('envform','spreadsheet_default_assesscalc'".
",'spreadsheet')\">$SelectSpreadsheetFile</a><br />",
'allow_limited_html_in_feedback'
=> '<b>'.&mt('Allow limited HTML in discussion posts').'</b><br />'.
'('.&mt('Set value to [_1] to allow.','"<tt>yes</tt>"').')',
'allow_discussion_post_editing'
=> '<b>'.&mt('Allow users with specified roles to edit/delete their own discussion posts').'</b><br />'
.'('.&mt('[_1]: student, [_2]: TA, [_3]: instructor','"<tt>st</tt>"','"<tt>ta</tt>"','"<tt>in</tt>"').')<br />'
.'('.&mt('Set value to [_1] to allow all roles.','"<tt>yes</tt>"').')'
.'("<tt>'.&mt('role:section,role:section,...').'</tt>")<br />'
.'('.&mt('Example: "<tt>st:001,st:002,in,cc</tt>" would permit students in sections 001 and 002 and instructors in any section, and course coordinators to edit their own posts.').')',
'rndseed'
=> '<b>'.&mt('Randomization algorithm used').'</b><br />'
.'<span class="LC_error">'
.&mt('Modifying this will make problems have different numbers and answers!')
.'</span>',
'receiptalg'
=> '<b>'.&mt('Receipt algorithm used').'</b> <br />'.
&mt('This controls how receipt numbers are generated.'),
'suppress_tries'
=> '<b>'.&mt('Suppress number of tries in printing').'</b><br />'.
' ('.&mt('[_1] to suppress, anything else to not suppress','"<tt>yes</tt>"').')',
'problem_stream_switch'
=> '<b>'.&mt('Allow problems to be split over pages').'</b><br />'.
' ('.&mt('[_1] if allowed, anything else if not','"<tt>yes</tt>"').')',
'default_paper_size'
=> '<b>'.&mt('Default paper type').'</b><br />'.
' ('.&mt('supported types').': Letter [8 1/2x11 in], Legal [8 1/2x14 in],'.
' Tabloid [11x17 in], Executive [7 1/2x10 in], A2 [420x594 mm],'.
' A3 [297x420 mm], A4 [210x297 mm], A5 [148x210 mm], A6 [105x148 mm])',
'print_header_format'
=> ' <b>'.&mt('Print header format').'</b><br />'
.&mt('Substitutions:<br />[_1]: student name, [_2]: course id, [_3]: assignment note. Numbers after the <tt>%</tt> limit the field size.','"<tt>%n</tt>"','"<tt>%c</tt>"','"<tt>%a</tt>"'),
'default_enrollment_start_date' => '<b>'.&mt('Default beginning date for student access.').'</b>',
'default_enrollment_end_date' => '<b>'.&mt('Default ending date for student access.').'</b>',
'nothideprivileged' => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b><br />'
.'("<tt>'.&mt('user:domain,user:domain,*:domain').'</tt>")',
'languages' => '<b>'.&mt('Languages used').'</b>',
'disable_receipt_display'
=> '<b>'.&mt('Disable display of problem receipts').'</b><br />'.
' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
'task_messages'
=> '<b>'.&mt('Send message to student when clicking Done on Tasks').'</b><br /> ('.&mt('[_1] to send a message only to student, [_2] to send message to student and add record to user information page for instructors. Leave blank to disable.','"<tt>only_student</tt>"','"<tt>student_and_user_notes_screen</tt>"').')',
'disablesigfigs'
=> '<b>'.&mt('Disable checking of Significant Figures').'</b><br />'.
' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
'disableexampointprint'
=> '<b>'.&mt('Disable automatically printing point values onto exams.').'</b><br />'.
' ('.&mt('"[_1]" to disable, anything else if not','<tt>yes</tt>').')',
'externalsyllabus'
=> '<b>'.&mt('URL of Syllabus (not using internal handler)').'</b>',
'tthoptions'
=> '<b>'.&mt('Default set of options to pass to tth/m when converting TeX').'</b>',

'texengine'
=> '<b>'.&mt('Force all students in the course to use a specific math rendering engine.').'</b><br />'
.'('.&mt("[_1], [_2] (Convert to Images), [_3] (TeX to HTML), or blank for student's preference",'"<tt>jsMath</tt>"','"<tt>mimetex</tt>"','"<tt>tth</tt>"').')',
'timezone'
=> '<b>'.&mt('Timezone in which the course takes place').'</b>',

'suppress_embed_prompt'
=> '<b>'.&mt('Suppress prompt to upload items referenced in a web page being uploaded to portfolio, when current role is student.').'</b><br />'.
' ('.&mt('[_1] to suppress, anything else to not suppress','"<tt>yes</tt>"').')',
'hidefromcat'
=> '<b>'.&mt('Exclude from course catalog').'</b><br />'.
' ('.&mt('[_1] to exclude, anything else to include - included if assigned an institutional code, or manually catagorized','"<tt>yes</tt>"').')',
'categories'
=> '<b>'.&mt('Categorize course').'</b> <a href="javascript:catsbrowser()">'.
&mt('Display Categories').'</a>',
'datelocale'
=> '<b>'.&mt('Locale used for course calendar').'</b>',
'rolenames'
=> '<b>'.&mt('Replacement titles for standard course roles').'</b><br />'.
'('.&mt('To replace the standard title for a course role, enter the title you wish to use, otherwise leave blank.').')',
);


# ----------------------------------------------------------------
# Begin: New Version with Parameter Categories

sub parameter_row {
# Create parameter row for course environment screen

my ($parameter, $description) = @_;

# Start Parameter Row
my $output = &Apache::loncommon::start_data_table_row();

# Column 1/3: Descriptive text of current parameter
$output .= '<td>'.$description.'</td>';

# Column 2/3: Input field (Sometimes special field(s), depending on parameter)

# onchange is javascript to automatically check the 'Set' button.
my $onchange = 'onFocus="javascript:window.document.forms'
."['envform'].elements['".$parameter."_setparmval']"
.'.checked=true;"';
if ($parameter =~ /^default_enrollment_(start\|end)_date$/) {
$output .= '<td>'.
&Apache::lonhtmlcommon::date_setter('envform',
$parameter.'_value',
$values{$parameter},
$onchange).
'</td>';
} elsif ($parameter eq 'timezone') {
my $includeempty = 1;
my $timezone = &Apache::lonlocal::gettimezone();
$output .= '<td>'.
&Apache::loncommon::select_timezone($parameter.'_value',
$timezone,
$onchange,$includeempty).'</td>';
} elsif ($parameter eq 'datelocale') {
my $includeempty = 1;
my $locale_obj = &Apache::lonlocal::getdatelocale();
my $currdatelocale;
if (ref($locale_obj)) {
$currdatelocale = $locale_obj->id();
}
$output .= '<td>'.
&Apache::loncommon::select_datelocale($parameter.'_value',
$currdatelocale,
$onchange,$includeempty).'</td>';
} elsif ($parameter eq 'rolenames') {
$output.= '<td><table>';
foreach my $role ('cc','in','ta','ep','ad','st') {
my $onchange = 'onFocus="javascript:window.document.forms'.
"['envform'].elements['".
$parameter.'_'.$role."_setparmval']".
'.checked=true;"';
$output.= '<tr><td>'.&Apache::lonnet::plaintext($role,$crstype,undef,1).
'</td><td>'.
&Apache::lonhtmlcommon::textbox($parameter.'_'.$role.'_value',
$values{$role.'.plaintext'},
15,$onchange).
'</td></tr>';
}
$output .= '</table></td><td><table>';
foreach my $role ('cc','in','ta','ep','ad','st') {
$output .= '<tr><td>'.&Apache::lonhtmlcommon::checkbox($parameter.'_'.$role.'_setparmval').
'</td></tr>';
}
$output .= '</table></td>';
} elsif ($parameter eq 'categories') {
my $catdisplay;
if ($values{'categories'} ne '') {
my @curritems = split(/\&/,$values{'categories'});
foreach my $item (@curritems) {
my ($name,$parent,$pos) = split(/:/,$item);
$catdisplay .= &unescape($name).'&';
}
$catdisplay =~ s/\&$//;
}
$output .= '<td>'.
'<input type="hidden" name="categories_value" value="'.
$values{'categories'}.'" />'.
'<input type="textbox" name="categories_display" value="'.
$catdisplay.'" readonly="readonly" size="40" /></td>';
} else { # Display default textbox in all other cases
$output .= '<td>'
.&Apache::lonhtmlcommon::textbox($parameter.'_value',
$values{$parameter},
40,
$onchange)
.'</td>';
}

# Column 3/3: Check Box (in most cases)
unless ($parameter eq 'rolenames') {
$output .= '<td>'
.&Apache::lonhtmlcommon::checkbox($parameter.'_setparmval')
.'</td>';
}

# End Parameter Row
$output .= &Apache::loncommon::end_data_table_row();

return $output;
} # End sub parameter_row


# Parameter Category Names
my %parm_cat_names = &Apache::lonlocal::texthash (
'cat_0' => 'Parameter Category Zero',
'cat_1' => 'Parameter Category One',
'cat_2' => 'Parameter Category Two',
'cat_3' => 'Parameter Category Three',
'cat_4' => 'Parameter Category Four',
'cat_5' => 'Parameter Category Five',
'cat_6' => 'Parameter Category Six',
'cat_7' => 'Parameter Category Seven',
'cat_can' => 'Parameter Category Can',
'cat_custom' => 'Parameter Category Custom',
);

# Display Order of Parameter Categories
my @Display_Order = (
'cat_0',
'cat_1',
'cat_2',
'cat_3',
'cat_4',
'cat_5',
'cat_6',
'cat_7',
'cat_can',
'cat_custom',
);

# Link Parameter Categories with Parameters
# Order of parameters is display order
my %parm_cat_parms = (
'cat_0' => [
'url',
'description',
'courseid',
'cloners'
],
'cat_1' => [
'grading',
'externalsyllabus',
'default_xml_style',
'pageseparators'
],
'cat_2' => [
'question.email',
'question.email.text',
'comment.email',
'comment.email.text',
'policy.email',
'policy.email.text',
],
'cat_3' => [
'student_classlist_view',
'student_classlist_opt_in',
'student_classlist_portfiles',
'plc.roles.denied',
'plc.users.denied',
'pch.roles.denied',
'pch.users.denied',
'allow_limited_html_in_feedback',
'allow_discussion_post_editing',
],
'cat_4' => [
'languages',
'timezone',
'datelocale',
'rolenames',
'nothideprivileged',
'rndseed',
'receiptalg',
'problem_stream_switch',
'suppress_tries',
'suppress_embed_prompt',
'default_paper_size',
'print_header_format',
'disable_receipt_display',
],
'cat_5' => [
'spreadsheet_default_classcalc',
'spreadsheet_default_studentcalc',
'spreadsheet_default_assesscalc',
'hideemptyrows',
],
'cat_6' => [
'default_enrollment_start_date',
'default_enrollment_end_date',
],
'cat_7' => [
'tthoptions',
'texengine',
'disablesigfigs',
'disableexampointprint',
'task_messages',
'task_grading',
],
);

# Add special parameters depending on special context to parameter categories hash
my @can_cats;
(my $can_toggle_cat,$can_categorize) = &can_modify_catsettings($dom);
if ($can_toggle_cat) {
push(@can_cats,'hidefromcat');
}
if ($can_categorize) {
push(@can_cats,'categories');
}
$parm_cat_parms{'cat_can'} = [@can_cats];

# Add custom parameters to custom parameter category
my @custom_cats;
foreach my $parameter (sort(keys(%values))) {
unless (($parameter =~ m/^internal\./)\|\|($parameter =~ m/^metadata\./) \|\|
($parameter =~ m/^selfenroll_/) \|\| ($parameter =~ /_selfenroll$/)
\|\| ($parameter eq 'type') \|\|
($parameter =~ m/^(cc\|in\|ta\|ep\|ad\|st)\.plaintext$/)) {
if (! $descriptions{$parameter}) {
$descriptions{$parameter}=$parameter;
push(@custom_cats,$parameter);
}
}
}
$parm_cat_parms{'cat_custom'} = [@custom_cats];


# Display Course Parameter Overview
# Provide hyperlinks to detailed parameter settings
$output_SB .= '<a name="parmlist" />'
.'<div class="LC_ContentBoxSpecial">'
.'<h2 class="LC_hcell">'.&mt('Course Parameter Overview').'</h2>'
.'<ul>';
foreach my $catkey (@Display_Order) {
if (!@{$parm_cat_parms{$catkey}}) { next; } # Only display non-empty categories
$output_SB .= '<li>'
.'<a href="#parmlist_'.$catkey.'">'
.$parm_cat_names{$catkey}
.'</a>'
.'</li>';
}
$output_SB .= '</ul>'
.'</div>';


my $buttons='<div align="right">'
.'<input type="submit" name="crsenv" value="'.&mt('Save All').'" />'
.'<br /><a href="#parmlist">'.&mt('Back to Course Parameter Overview').'</a>'
.'</div>';

# Display all Parameters grouped by categories
$output_SB .= '<h2>'.&mt('Course Parameters').'</h2>';

foreach my $catkey (@Display_Order) {
if (!@{$parm_cat_parms{$catkey}}) { next; } # Only display non-empty categories
$output_SB .= &Apache::loncommon::start_data_table();
$output_SB .= &Apache::loncommon::start_data_table_empty_row()
.'<td colspan="3">'
.'<a name="parmlist_'.$catkey.'" />'
.'<h3>'.$parm_cat_names{$catkey}.'</h3>'
.'</td>'
.&Apache::loncommon::end_data_table_empty_row
.&Apache::loncommon::start_data_table_header_row()
.'<th>'.$lt{'par'}.'</th><th>'.$lt{'val'}.'</th><th>'.$lt{'set'}.'</th>'
.&Apache::loncommon::end_data_table_header_row();

foreach my $parameter (@{$parm_cat_parms{$catkey}}) {
my $description = $descriptions{$parameter};
$output_SB .= &parameter_row($parameter, $description);
}
# Add special row to custom category
# Offer possibilty to create a new environment variable
if ($catkey eq 'cat_custom') {
my $onchange = 'onFocus="javascript:window.document.forms'
.'[\'envform\'].elements[\'newp_setparmval\']'
.'.checked=true;"';
$output_SB .= &Apache::loncommon::start_data_table_row()
.'<td>'
.'<i>'.&mt('Create New Environment Variable').'</i><br />'
.'<input type="text" size="40" name="newp_name" '.$onchange.' />'
.'</td><td>'
.'<input type="text" size="40" name="newp_value" '.$onchange.' />'
.'</td><td>'
.'<input type="checkbox" name="newp_setparmval" /></td>'
.&Apache::loncommon::end_data_table_row();
}
# Add buttons row at end of each category
$output_SB .= &Apache::loncommon::start_data_table_empty_row()
.'<td colspan="3">'
.$buttons
.'</td>'
.&Apache::loncommon::end_data_table_empty_row;

$output_SB .= &Apache::loncommon::end_data_table()
. '<br />';
}

# End: New Version with Parameter Categories
# ----------------------------------------------------------------


}

my ($jscript,$categorize_js);
my $browse_js = &Apache::loncommon::browser_and_searcher_javascript('parmset');
if ($can_categorize) {
$categorize_js = <<ENDSCRIPT;
function catsbrowser() {
var catswin = null;
var url = '/adm/parmset?action=categorizecourse';
if (!catswin \|\| catswin.closed) {
catswin=window.open(url,'categorieswin','height=480,width=600,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
} else {
catswin.focus();
}
}
ENDSCRIPT
}
$jscript = '<script type="text/javascript" language="Javascript">'."\n".
$browse_js."\n".$categorize_js."\n".'</script>';
my $start_page =
&Apache::loncommon::start_page('Set Course Environment',
$jscript);
my $end_page =
&Apache::loncommon::end_page();
$r->print(<<ENDENV);
$start_page
$breadcrumbs
<form method="post" action="/adm/parmset?action=crsenv" name="envform">
$setoutput
$output_SB
</form>
$end_page
ENDENV
}

sub can_modify_catsettings {
my ($dom) = @_;
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom);
my ($can_toggle_cat,$can_categorize);
if (ref($domconf{'coursecategories'}) eq 'HASH') {
if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') {
$can_toggle_cat = 1;
}
if ($domconf{'coursecategories'}{'categorize'} eq 'crs') {
$can_categorize = 1;
}
}
return ($can_toggle_cat,$can_categorize);
}

sub assign_course_categories {
my ($r) = @_;
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $hascats = 0;
my $cathash;
my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$cdom);
if (ref($domconf{'coursecategories'}) eq 'HASH') {
$cathash = $domconf{'coursecategories'}{'cats'};
if (ref($cathash) eq 'HASH') {
$hascats = 1;
}
}
my $catwin_js;
if ($hascats) {
my $alert = &mt('Use \"Save\" in the main window to save course categories');
$catwin_js = <<ENDSCRIPT;
<script type="text/javascript">

function updateCategories() {
var newcategories = '';
var unescapedcats = '';
if (document.chgcats.usecategory.length) {
for (var i=0; i<document.chgcats.usecategory.length; i++) {
if (document.chgcats.usecategory[i].checked == true) {
newcategories = newcategories + document.chgcats.usecategory[i].value + '&';
unescapedcats = unescapedcats + document.chgcats.catname[i].value + ' & ';
}
}
if (newcategories.length > 0) {
newcategories = newcategories.slice(0,-1);
}
if (unescapedcats.length > 0) {
unescapedcats = unescapedcats.slice(0,-3);
}
} else {
if (document.chgcats.usecategory.checked == true) {
newcategories = document.chgcats.usecategory.value;
unescapedcats = document.chgcats.catname.value;
}
}
opener.document.envform.categories_value.value = newcategories;
opener.document.envform.categories_display.value = unescapedcats;
opener.document.envform.categories_setparmval.checked = true;
alert("$alert");
self.close();
return;
}

</script>
ENDSCRIPT
} else {
my $onload;
}
my $start_page =
&Apache::loncommon::start_page('Course Categories',$catwin_js,
{'only_body' => 1,});
my $end_page = &Apache::loncommon::end_page();
my $categoriesform = '<h3>'.&mt('Categorize Course').'</h3>';
if ($hascats) {
my %currsettings =
&Apache::lonnet::get('environment',['hidefromcat','categories'],$cdom,$cnum);
$categoriesform .= &mt('Assign one or more categories to this course.').'<br /><br />'.
'<form name="chgcats" action="/adm/parmset" method="post">'."\n"
.&Apache::loncommon::assign_categories_table($cathash,
$currsettings{'categories'})."\n"
.'<br /><input type="button" name="changes" value="'
.&mt('Copy to main window').'" '
.'onclick="javascript:updateCategories()" /></form><br />';
} else {
$categoriesform .= &mt('No categories defined for this domain');
}
$r->print($start_page.$categoriesform.$end_page);
return;
}

##################################################	##################################################
# Overview mode	# Overview mode
##################################################	##################################################
Line 3178 sub storedata {	Line 2374 sub storedata {
$typeof=$env{'form.typeof_'.$thiskey};	$typeof=$env{'form.typeof_'.$thiskey};
$text = &mt('Saved modified date for');	$text = &mt('Saved modified date for');
}	}
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},
Line 3193 sub storedata {	Line 2389 sub storedata {
&Apache::lonnet::devalidateuserresdata($tuname,$tudom);	&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
} else {	} else {
$newdata{$thiskey}=$data;	$newdata{$thiskey}=$data;
$newdata{$thiskey.'.type'}=$typeof;	$newdata{$thiskey.'.type'}=$typeof;
}	}
}	}
} elsif ($cmd eq 'del') {	} elsif ($cmd eq 'del') {
if ($tuname) {	if ($tuname) {
Line 3248 sub parse_listdata_key {	Line 2444 sub parse_listdata_key {
my ($key,$listdata) = @_;	my ($key,$listdata) = @_;
# split into student/section affected, and	# split into student/section affected, and
# the realm (folder/resource part and parameter	# the realm (folder/resource part and parameter
my ($student,$realm) =	my ($student,$realm) =
($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)) {
Line 3289 sub listdata {	Line 2485 sub listdata {
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);
Line 3303 sub listdata {	Line 2499 sub listdata {
$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);
Line 3453 sub default_selector {	Line 2649 sub default_selector {
return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'" />';	return '<input type="text" name="set_'.$thiskey.'" value="'.$showval.'" />';
}	}

my %strings =	my %strings =
(	(
'string_yesno'	'string_yesno'
=> [[ 'yes', 'Yes' ],	=> [[ 'yes', 'Yes' ],
Line 3468 my %strings =	Line 2664 my %strings =

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

if (!exists($strings{$thistype})) {	if (!exists($strings{$thistype})) {
return &default_selector($thiskey,$showval);	return &default_selector($thiskey,$showval);
}	}
Line 3561 ENDOVER	Line 2757 ENDOVER
my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');	my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
if (!@psprt) { $psprt[0]='0'; }	if (!@psprt) { $psprt[0]='0'; }

my @selected_sections =	my @selected_sections =
&Apache::loncommon::get_env_multiple('form.Section');	&Apache::loncommon::get_env_multiple('form.Section');
@selected_sections = ('all') if (! @selected_sections);	@selected_sections = ('all') if (! @selected_sections);
foreach my $sec (@selected_sections) {	foreach my $sec (@selected_sections) {
Line 3574 ENDOVER	Line 2770 ENDOVER

my $pssymb='';	my $pssymb='';
my $parmlev='';	my $parmlev='';

unless ($env{'form.parmlev'}) {	unless ($env{'form.parmlev'}) {
$parmlev = 'map';	$parmlev = 'map';
} else {	} else {
$parmlev = $env{'form.parmlev'};	$parmlev = $env{'form.parmlev'};
}	}

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

Line 3590 ENDOVER	Line 2786 ENDOVER
}	}
# Menu to select levels, etc	# Menu to select levels, etc

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

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

	$r->print('<div class="LC_ContentBoxSpecial">');
	$r->print('<div class="LC_BoxPadding">' );
my $sortorder=$env{'form.sortorder'};	my $sortorder=$env{'form.sortorder'};
unless ($sortorder) { $sortorder='realmstudent'; }	unless ($sortorder) { $sortorder='realmstudent'; }
&sortmenu($r,$sortorder);	&sortmenu($r,$sortorder);
	$r->print('</div></div>');

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

Line 3762 ENDOVER	Line 2978 ENDOVER
$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);
}	}
$r->print(&mt('Parameter: "[_1]" with value: "[_2]"',	$r->print(&mt('Parameter: "[_1]" with value: "[_2]"',
Line 3795 ENDOVER	Line 3011 ENDOVER
}	}
$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>'.
Line 3885 sub parse_key {	Line 3101 sub parse_key {
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;
$data{'parameter_name'} = $name;	$data{'parameter_name'} = $name;

Line 3925 sub check_cloners {	Line 3141 sub check_cloners {
$disallowed{'format'} .= $currclone.',';	$disallowed{'format'} .= $currclone.',';
}	}
} elsif ($currclone !~/^($match_username)\:($match_domain)$/) {	} elsif ($currclone !~/^($match_username)\:($match_domain)$/) {
$disallowed{'format'} .= $currclone.',';	$disallowed{'format'} .= $currclone.',';
} else {	} else {
if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {	if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
$disallowed{'newuser'} .= $currclone.',';	$disallowed{'newuser'} .= $currclone.',';
Line 3954 sub change_clone {	Line 3170 sub change_clone {
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $clone_crs = $cnum.':'.$cdom;	my $clone_crs = $cnum.':'.$cdom;

if ($cnum && $cdom) {	if ($cnum && $cdom) {
my @allowclone;	my @allowclone;
&extract_cloners($clonelist,\@allowclone);	&extract_cloners($clonelist,\@allowclone);
Line 4035 ENDMAINFORMHEAD	Line 3251 ENDMAINFORMHEAD
my @menu =	my @menu =
( { categorytitle=>'Settings for this Course',	( { categorytitle=>'Settings for this Course',
items => [	items => [
{ linktext => 'Course Environment',	{ linktext => 'Course Configuration',
url => '/adm/parmset?action=crsenv',	url => '/adm/courseprefs?origin=params',
permission => $parm_permission,	permission => $parm_permission,
linktitle =>'Edit environment settings for this course.' ,	linktitle =>'Edit course configuration.' ,
icon => 'preferences-desktop-remote-desktop.png' ,	icon => 'preferences-desktop-remote-desktop.png' ,
#help => 'Course_Environment',	#help => 'Course_Environment',
},	},
Line 4066 ENDMAINFORMHEAD	Line 3282 ENDMAINFORMHEAD
permission => $parm_permission,	permission => $parm_permission,
linktitle =>'Set default actions for parameters.' ,	linktitle =>'Set default actions for parameters.' ,
icon => 'folder-new.png' ,	icon => 'folder-new.png' ,
}]},	}]},
{ categorytitle => 'New and Existing Parameter Settings for Resources',	{ categorytitle => 'New and Existing Parameter Settings for Resources',
items => [	items => [
{ linktext => 'Edit Resource Parameters - Helper Mode',	{ linktext => 'Edit Resource Parameters - Helper Mode',
Line 4098 ENDMAINFORMHEAD	Line 3314 ENDMAINFORMHEAD
linktitle =>'Set/Modify existing resource parameters in overview mode.' ,	linktitle =>'Set/Modify existing resource parameters in overview mode.' ,
icon => 'preferences-desktop-wallpaper.png' ,	icon => 'preferences-desktop-wallpaper.png' ,
#help => 'Parameter_Overview',	#help => 'Parameter_Overview',
},	},
{ linktext => 'Change Log',	{ linktext => 'Change Log',
url => '/adm/parmset?action=parameterchangelog',	url => '/adm/parmset?action=parameterchangelog',
permission => $parm_permission,	permission => $parm_permission,
Line 4215 sub order_meta_fields {	Line 3431 sub order_meta_fields {
}	}
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'});
Line 4228 sub order_meta_fields {	Line 3444 sub order_meta_fields {
$ordered_fields = join ",", @fields_in_order;	$ordered_fields = join ",", @fields_in_order;
}	}
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);
}	}
$r->print('<table>');	$r->print('<table>');
my $num_fields = scalar(@fields_in_order);	my $num_fields = scalar(@fields_in_order);
foreach my $key (@fields_in_order) {	foreach my $key (@fields_in_order) {
Line 4280 sub addmetafield {	Line 3496 sub addmetafield {
$options =~ s/,,/,/;	$options =~ s/,,/,/;
my $put_result = &Apache::lonnet::put('environment',	my $put_result = &Apache::lonnet::put('environment',
{'metadata.'.$meta_field.'.options'=>$options},$dom,$crs);	{'metadata.'.$meta_field.'.options'=>$options},$dom,$crs);

$r->print('Undeleted Metadata Field <strong>'.$env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.added'}."</strong> with result ".$put_result.'<br />');	$r->print('Undeleted Metadata Field <strong>'.$env{'course.'.$env{'request.course.id'}.'.metadata.'.$meta_field.'.added'}."</strong> with result ".$put_result.'<br />');
}	}
$r->print(&continue());	$r->print(&continue());
Line 4339 sub setrestrictmeta {	Line 3555 sub setrestrictmeta {
$save_field = $meta_field;	$save_field = $meta_field;
if ($env{'form.'.$meta_field.'_stuadd'}) {	if ($env{'form.'.$meta_field.'_stuadd'}) {
$options.='stuadd,';	$options.='stuadd,';
}	}
if ($env{'form.'.$meta_field.'_choices'}) {	if ($env{'form.'.$meta_field.'_choices'}) {
$options.='choices,';	$options.='choices,';
}	}
if ($env{'form.'.$meta_field.'_onlyone'} eq 'single') {	if ($env{'form.'.$meta_field.'_onlyone'} eq 'single') {
$options.='onlyone,';	$options.='onlyone,';
}	}
if ($env{'form.'.$meta_field.'_active'}) {	if ($env{'form.'.$meta_field.'_active'}) {
$options.='active,';	$options.='active,';
}	}
Line 4391 ENDButtons	Line 3607 ENDButtons
$output.= &output_row($r, $field, $$added_metadata_fields{$field},$added_flag, $row_alt);	$output.= &output_row($r, $field, $$added_metadata_fields{$field},$added_flag, $row_alt);
}	}
$output .= &Apache::loncommon::end_data_table();	$output .= &Apache::loncommon::end_data_table();
$r->print(<<ENDenv);	$r->print(<<ENDenv);
<form method="post" action="/adm/parmset?action=setrestrictmeta" name="form">	<form method="post" action="/adm/parmset?action=setrestrictmeta" name="form">
$output	$output
$buttons	$buttons
Line 4437 sub defaultsetter {	Line 3653 sub defaultsetter {

&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',	&Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
text=>"Set Defaults"});	text=>"Set Defaults"});
my $start_page =	my $start_page =
&Apache::loncommon::start_page('Parameter Setting Default Actions');	&Apache::loncommon::start_page('Parameter Setting Default Actions');
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Defaults');
$r->print(<<ENDDEFHEAD);	$r->print(<<ENDDEFHEAD);
Line 4461 ENDDEFHEAD	Line 3677 ENDDEFHEAD
my %keyorder=&standardkeyorder();	my %keyorder=&standardkeyorder();
my %defkeytype=();	my %defkeytype=();

&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,	&extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps,
\%mapp, \%symbp,\%maptitles,\%uris,	\%mapp, \%symbp,\%maptitles,\%uris,
\%keyorder,\%defkeytype);	\%keyorder,\%defkeytype);
if ($env{'form.storerules'}) {	if ($env{'form.storerules'}) {
Line 4524 ENDDEFHEAD	Line 3740 ENDDEFHEAD
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 4575 ENDINPUTDATE	Line 3791 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').'" />');
Line 4618 sub components {	Line 3834 sub components {
$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$$/) {
$realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <span class="LC_parm_folder"><br />('.$1.')</span></span>';	$realm='<span class="LC_parm_scope_folder">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <span class="LC_parm_folder"><br />('.$1.')</span></span>';
$realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($1);	$realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($1);
Line 4649 sub load_parameter_names {	Line 3865 sub load_parameter_names {
close($config);	close($config);
$standard_parms{'int_pos'} = 'Positive Integer';	$standard_parms{'int_pos'} = 'Positive Integer';
$standard_parms{'int_zero_pos'} = 'Positive Integer or Zero';	$standard_parms{'int_zero_pos'} = 'Positive Integer or Zero';
%standard_parms=&Apache::lonlocal::texthash(%standard_parms);	%standard_parms=&Apache::lonlocal::texthash(%standard_parms);
}	}

sub standard_parameter_names {	sub standard_parameter_names {
Line 4658 sub standard_parameter_names {	Line 3874 sub standard_parameter_names {
&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 4681 sub parm_change_log {	Line 3897 sub parm_change_log {

$r->print('<form action="/adm/parmset?action=parameterchangelog"	$r->print('<form action="/adm/parmset?action=parameterchangelog"
method="post" name="parameterlog">');	method="post" name="parameterlog">');

my %saveable_parameters = ('show' => 'scalar',);	my %saveable_parameters = ('show' => 'scalar',);
&Apache::loncommon::store_course_settings('parameter_log',	&Apache::loncommon::store_course_settings('parameter_log',
\%saveable_parameters);	\%saveable_parameters);
Line 4709 sub parm_change_log {	Line 3925 sub parm_change_log {
}	}
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'}
Line 4722 sub parm_change_log {	Line 3938 sub parm_change_log {
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'),
Line 4753 sub parm_change_log {	Line 3969 sub parm_change_log {
}	}
}	}
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) {
Line 4792 sub parm_change_log {	Line 4008 sub parm_change_log {
my $description=&mt('Changed [_1] for [_2] to [_3]',&standard_parameter_names($parmname),$realmdescription,	my $description=&mt('Changed [_1] for [_2] to [_3]',&standard_parameter_names($parmname),$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);
}	}
Line 4808 sub parm_change_log {	Line 4024 sub parm_change_log {
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>
Line 4818 sub parm_change_log {	Line 4034 sub parm_change_log {
$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());
Line 4963 sub handler {	Line 4179 sub handler {
&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 'crsenv') {
&crsenv($r);
} 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') {
Line 4989 sub handler {	Line 4203 sub handler {
&date_shift_two($r);	&date_shift_two($r);
} elsif ($env{'form.action'} eq 'categorizecourse') {	} elsif ($env{'form.action'} eq 'categorizecourse') {
&assign_course_categories($r);	&assign_course_categories($r);
}	}
} else {	} else {
# ----------------------------- Not in a course, or not allowed to modify parms	# ----------------------------- Not in a course, or not allowed to modify parms
if ($exists) {	if ($exists) {

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

Removed from v.1.442
changed lines
	Added in v.1.450