loncom/interface/lonmainmenu.pm - diff

Return to lonmainmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8.4.3, 2009/12/07 22:33:26	version 1.8.4.5, 2009/12/15 05:17:52
Line 81 ENDSCRIPT	Line 81 ENDSCRIPT
$switcher_js = &gcitest_switcher_js($current,$numcourses);	$switcher_js = &gcitest_switcher_js($current,$numcourses);
$script_tag= <<"ENDSCRIPT";	$script_tag= <<"ENDSCRIPT";
<script type="text/javascript">	<script type="text/javascript">
	// <![CDATA[

$switcher_js	$switcher_js

	// ]]>
</script>	</script>
ENDSCRIPT	ENDSCRIPT
}	}
Line 132 sub gcitest_switcher {	Line 136 sub gcitest_switcher {
}	}
if ($default) {	if ($default) {
$output = '<form name="pickrole" action="/adm/roles" method="post">'.	$output = '<form name="pickrole" action="/adm/roles" method="post">'.
'<select name="newrole" method="post" onchange="javascript:courseswitcher();">'.	'<select name="newrole" onchange="javascript:courseswitcher();">'.
'<option value="" selected="selected">'.$default.'</option>';	'<option value="" selected="selected">'.$default.'</option>';
foreach my $item (@sorted_courses) {	foreach my $item (@sorted_courses) {
foreach my $course (@{$Sortby{$item}}) {	foreach my $course (@{$Sortby{$item}}) {
my ($cdom,$cnum) = split('_',$course);	my ($cdom,$cnum) = split('_',$course);
$output .= '<option value="cc./'.$cdom.'/'.$cnum.'">'.$item.'</option>';	$output .= '<option value="cc./'.$cdom.'/'.$cnum.'">'.$courses{$course}{'description'}.'</option>';
}	}
}	}
$output .= '</select><input type="hidden" name="selectrole" value="" /></form>';	$output .= '</select><input type="hidden" name="selectrole" value="" /></form>';