[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface lonrequestcourse.pm

[raeburn]

raeburn		Fri Jul 30 23:51:41 2010 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	lonrequestcourse.pm 
  Log:
  - Reverse changes in 1.52 for 2.9.X. 
    ("Accessibility options" still included in 2.9).  
  
  
Index: loncom/interface/lonrequestcourse.pm
diff -u loncom/interface/lonrequestcourse.pm:1.54 loncom/interface/lonrequestcourse.pm:1.54.2.1
--- loncom/interface/lonrequestcourse.pm:1.54	Wed Jul  7 17:27:41 2010
+++ loncom/interface/lonrequestcourse.pm	Fri Jul 30 23:51:41 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Request a course
 #
-# $Id: lonrequestcourse.pm,v 1.54 2010/07/07 17:27:41 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.54.2.1 2010/07/30 23:51:41 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -647,7 +647,11 @@
 sub print_main_menu {
     my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_;
     my ($types,$typename) = &Apache::loncommon::course_types();
-    my $onchange = 'this.form.submit()';
+    my $onchange;
+    unless ($env{'form.interface'} eq 'textual') {
+        $onchange = 'this.form.submit()';
+    }
+
     my $nextstate_setter = "\n";
     if (ref($states) eq 'HASH') {
         foreach my $key (keys(%{$states})) {