[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.3 and 1.54.2.6

version 1.54.2.3, 2010/08/11 13:24:21 version 1.54.2.6, 2010/11/19 00:09:15
Line 3040  sub print_request_outcome { Line 3040  sub print_request_outcome {
                         push(@instsections,$sec);                          push(@instsections,$sec);
                     }                      }
                     $sections{$i}{'loncapa'} = $env{'form.loncapasec_'.$i};                      $sections{$i}{'loncapa'} = $env{'form.loncapasec_'.$i};
                       $sections{$i}{'loncapa'} =~ s/\W//g;
                       if ($sections{$i}{'loncapa'} eq 'none') {
                           $sections{$i}{'loncapa'} = '';
                       }
                 }                  }
             }              }
         }          }
Line 3128  sub print_request_outcome { Line 3132  sub print_request_outcome {
     }      }
     my $autoadds = 0;      my $autoadds = 0;
     if ($env{'form.autoadds'}) {      if ($env{'form.autoadds'}) {
         $autodrops = $env{'form.autoadds'};          $autoadds = $env{'form.autoadds'};
     }  
     if ($env{'form.autoadds'}) {  
         $autodrops = $env{'form.autoadds'};  
     }      }
     my $instcode = '';      my $instcode = '';
     if (exists($env{'form.instcode'})) {      if (exists($env{'form.instcode'})) {
Line 3598  sub retrieve_settings { Line 3599  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') && ($reqinfo{'instcode'} ne '')) {   
                  $env{'form.sectotal'} = $reqinfo{'sectotal'};              if ($reqinfo{'crstype'} eq 'official') {
                  $env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'};                  $env{'form.autoadds'} = $reqinfo{'autoadds'};
                  $env{'form.autoadds'} = $reqinfo{'autoadds'};                  $env{'form.autodrops'} = $reqinfo{'autodrops'};
                  $env{'form.autdrops'} = $reqinfo{'autodrops'};                  if ($reqinfo{'instcode'} ne '') {
                  $env{'form.instcode'} = $reqinfo{'instcode'};                      $env{'form.sectotal'} = $reqinfo{'sectotal'};
                  my $crscode = {                       $env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'};
                                  $cnum => $reqinfo{'instcode'},                      $env{'form.instcode'} = $reqinfo{'instcode'};
                                };                      my $crscode = { 
                  &extract_instcode($dom,'instcode',$crscode,$cnum);                                      $cnum => $reqinfo{'instcode'},
                                     };
                       &extract_instcode($dom,'instcode',$crscode,$cnum);
                   }
             }              }
             my @currsec;              my @currsec;
             if (ref($reqinfo{'sections'}) eq 'HASH') {              if (ref($reqinfo{'sections'}) eq 'HASH') {
Removed from v.1.54.2.3  
changed lines
  Added in v.1.54.2.6

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