[BACK]Return to lonrequestcourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.54.2.6 and 1.59

version 1.54.2.6, 2010/11/19 00:09:15 version 1.59, 2010/11/19 00:01:25
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})) {
Line 3599  sub retrieve_settings { Line 3595  sub retrieve_settings {
             }              }
             $env{'form.datemode'} = $reqinfo{'datemode'};              $env{'form.datemode'} = $reqinfo{'datemode'};
             $env{'form.dateshift'} = $reqinfo{'dateshift'};              $env{'form.dateshift'} = $reqinfo{'dateshift'};
   
             if ($reqinfo{'crstype'} eq 'official') {              if ($reqinfo{'crstype'} eq 'official') {
                 $env{'form.autoadds'} = $reqinfo{'autoadds'};                  $env{'form.autoadds'} = $reqinfo{'autoadds'};
                 $env{'form.autodrops'} = $reqinfo{'autodrops'};                  $env{'form.autodrops'} = $reqinfo{'autodrops'};
                 if ($reqinfo{'instcode'} ne '') {                  if ($reqinfo{'instcode'} ne '') { 
                     $env{'form.sectotal'} = $reqinfo{'sectotal'};                      $env{'form.sectotal'} = $reqinfo{'sectotal'};
                     $env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'};                      $env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'};
                     $env{'form.instcode'} = $reqinfo{'instcode'};                      $env{'form.instcode'} = $reqinfo{'instcode'};
Removed from v.1.54.2.6  
changed lines
  Added in v.1.59

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