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.474

version 1.473, 2009/10/23 18:16:24	version 1.474, 2009/10/23 18:49:10
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 1839 sub levelmenu {	Line 1841 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 2195 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(<<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>');
#Display Unit 2 "Select Parameter"	#Display Unit 2 "Select Parameter"
&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);	&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
} else {	} else {

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

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