--- loncom/interface/lonrequestcourse.pm 2010/08/19 17:17:51 1.54.2.4 +++ loncom/interface/lonrequestcourse.pm 2010/09/10 20:25:51 1.58 @@ -1,7 +1,7 @@ # The LearningOnline Network # Request a course # -# $Id: lonrequestcourse.pm,v 1.54.2.4 2010/08/19 17:17:51 raeburn Exp $ +# $Id: lonrequestcourse.pm,v 1.58 2010/09/10 20:25:51 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -647,11 +647,7 @@ sub onload_action { sub print_main_menu { my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_; my ($types,$typename) = &Apache::loncommon::course_types(); - my $onchange; - unless ($env{'form.interface'} eq 'textual') { - $onchange = 'this.form.submit()'; - } - + my $onchange = 'this.form.submit()'; my $nextstate_setter = "\n"; if (ref($states) eq 'HASH') { foreach my $key (keys(%{$states})) { @@ -3040,6 +3036,10 @@ sub print_request_outcome { push(@instsections,$sec); } $sections{$i}{'loncapa'} = $env{'form.loncapasec_'.$i}; + $sections{$i}{'loncapa'} =~ s/\W//g; + if ($sections{$i}{'loncapa'} eq 'none') { + $sections{$i}{'loncapa'} = ''; + } } } }