loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.51, 2010/03/31 18:58:34	version 1.52, 2010/06/08 16:37:20
Line 647 sub onload_action {	Line 647 sub onload_action {
sub print_main_menu {	sub print_main_menu {
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_;	my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_;
my ($types,$typename) = &Apache::loncommon::course_types();	my ($types,$typename) = &Apache::loncommon::course_types();
my $onchange;	my $onchange = 'this.form.submit()';
unless ($env{'form.interface'} eq 'textual') {
$onchange = 'this.form.submit()';
}

my $nextstate_setter = "\n";	my $nextstate_setter = "\n";
if (ref($states) eq 'HASH') {	if (ref($states) eq 'HASH') {
foreach my $key (keys(%{$states})) {	foreach my $key (keys(%{$states})) {