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.473 and 1.477

version 1.473, 2009/10/23 18:16:24	version 1.477, 2009/11/05 18:10:37
Line 903 sub startpage {	Line 903 sub startpage {
my ($r) = @_;	my ($r) = @_;

my %loaditems = ('onunload' => "pclose()",	my %loaditems = ('onunload' => "pclose()",
'onload' => "group_or_section('cgroup')",);	'onload' => "group_or_section('cgroup')",
	'onload' => "showHide_courseContent()",
	);

if ((($env{'form.command'} eq 'set') && ($env{'form.url'})	if ((($env{'form.command'} eq 'set') && ($env{'form.url'})
&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {	&& (!$env{'form.dis'})) \|\| ($env{'form.symb'})) {
Line 1707 function group_or_section(caller) {	Line 1709 function group_or_section(caller) {
#	#
sub displaymenu {	sub displaymenu {
my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;	my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;
$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&parmmenu($r,$allparms,$pscat,$keyorder);	&parmmenu($r,$allparms,$pscat,$keyorder);
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
Line 1839 sub levelmenu {	Line 1840 sub levelmenu {
my ($r,$alllevs,$parmlev)=@_;	my ($r,$alllevs,$parmlev)=@_;

$r->print(&Apache::lonhtmlcommon::row_title(&mt('Select Parameter Level').&Apache::loncommon::help_open_topic('Course_Parameter_Levels')));	$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 id="parmlev" name="parmlev" onchange="showHide_courseContent()">');
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{$_}) {
Line 2193 ENDPARMSELSCRIPT	Line 2194 ENDPARMSELSCRIPT
$r->print('<div id="parmsel">');	$r->print('<div id="parmsel">');
}	}


# Display Unit 1 "General Parameters"	# Display Unit 1 "General Parameters"
if (!$pssymb) {	if (!$pssymb) {
$r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('General Parameters')));	#$r->print(&Apache::lonhtmlcommon::topic_bar (1,&mt('General Parameters')));
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print('<div class="LC_Box">');
	$r->print('<h4 class="LC_hcell">'.&mt('Resource Specification').'</h4>');
	$r->print(<<COURSECONTENTSCRIPT);
	<script type="text/javascript">
	// <![CDATA[
	function showHide_courseContent(){
	var parmlevValue=document.getElementById("parmlev").value;
	if (parmlevValue == 'general') {
	document.getElementById('mapmenu').style.display="none";
	} else {
	if ((parmlevValue == "full") \|\| (parmlevValue == "map")) {
	document.getElementById('mapmenu').style.display ="";
	} else {
	document.getElementById('mapmenu').style.display="none";
	}
	}
	}
	// ]]>
	</script>
	COURSECONTENTSCRIPT

	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&levelmenu($r,\%alllevs,$parmlev);	&levelmenu($r,\%alllevs,$parmlev);

if ($parmlev ne 'general') {
$r->print(&Apache::lonhtmlcommon::row_closure());
&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);
}

$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
	$r->print('<div id="mapmenu">');
	$r->print(&Apache::lonhtmlcommon::start_pick_box());
	&mapmenu($r,\%allmaps,$pschp,\%maptitles, \%symbp);
	$r->print(&Apache::lonhtmlcommon::row_closure(1));
	$r->print(&Apache::lonhtmlcommon::end_pick_box());
	$r->print('</div>');
	$r->print('</div>');
#Display Unit 2 "Select Parameter"	#Display Unit 2 "Select Parameter"
	#$r->print(&Apache::lonhtmlcommon::topic_bar (2,&mt('Select Parameters')));
	$r->print('<div class="LC_Box">');
	$r->print('<h4 class="LC_hcell">'.&mt('Parameter Specification').'</h4>');
&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 2217 ENDPARMSELSCRIPT	Line 2243 ENDPARMSELSCRIPT
'<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 />');
}	}
$r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Selection')));	$r->print('</div>');
	#$r->print(&Apache::lonhtmlcommon::topic_bar (3,&mt('User Selection')));
	$r->print('<div class="LC_Box">');
	$r->print('<h4 class="LC_hcell">'.&mt('User Specification (optional)').'</h4>');
$r->print(&Apache::lonhtmlcommon::start_pick_box());	$r->print(&Apache::lonhtmlcommon::start_pick_box());
&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);	&usermenu($r,$uname,$id,$udom,$csec,$cgroup,$parmlev,\@usersgroups);
$r->print(&Apache::lonhtmlcommon::row_closure(1));	$r->print(&Apache::lonhtmlcommon::row_closure(1));
$r->print(&Apache::lonhtmlcommon::end_pick_box());	$r->print(&Apache::lonhtmlcommon::end_pick_box());
	$r->print('</div>');

# parm selection is shown: display parm update button	# parm selection is shown: display parm update button
$r->print('<p>'	$r->print('<p>'
Line 3618 ENDMAINFORMHEAD	Line 3648 ENDMAINFORMHEAD
my $vgr = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});	my $vgr = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
my $mgr = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});	my $mgr = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});

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

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

Line 3689 ENDMAINFORMHEAD	Line 3721 ENDMAINFORMHEAD
{ linktext => 'Change Log',	{ linktext => 'Change Log',
url => '/adm/parmset?action=parameterchangelog',	url => '/adm/parmset?action=parameterchangelog',
permission => $parm_permission,	permission => $parm_permission,
linktitle =>'View parameter and course blog posting/user notification change log.' ,	linktitle =>"View parameter and $lc_crstype blog posting/user notification change log." ,
icon => 'emblem-system.png' ,	icon => 'emblem-system.png' ,
}]}	}]}
);	);

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

Removed from v.1.473
changed lines
	Added in v.1.477