[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.55

version 1.54.2.6, 2010/11/19 00:09:15 version 1.55, 2010/08/10 17:16:05
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 2538  sub print_review { Line 2534  sub print_review {
     if (($env{'form.cloning'}) &&      if (($env{'form.cloning'}) &&
         ($env{'form.clonecrs'} =~ /^$match_name$/) &&           ($env{'form.clonecrs'} =~ /^$match_name$/) && 
         ($env{'form.clonedom'} =~ /^$match_domain$/)) {          ($env{'form.clonedom'} =~ /^$match_domain$/)) {
         my $canclone = &Apache::loncoursequeueadmin::can_clone_course($uname,          my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'},
                            $udom,$env{'form.clonecrs'},$env{'form.clonedom'},                             $env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'},
                            $env{'form.crstype'});                             $env{'form.crstype'});
         if ($canclone) {          if ($canclone) {
             my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'},              my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'},
Line 3040  sub print_request_outcome { Line 3036  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 3132  sub print_request_outcome { Line 3124  sub print_request_outcome {
     }      }
     my $autoadds = 0;      my $autoadds = 0;
     if ($env{'form.autoadds'}) {      if ($env{'form.autoadds'}) {
         $autoadds = $env{'form.autoadds'};          $autodrops = $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 3599  sub retrieve_settings { Line 3594  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 '')) { 
             if ($reqinfo{'crstype'} eq 'official') {                   $env{'form.sectotal'} = $reqinfo{'sectotal'};
                 $env{'form.autoadds'} = $reqinfo{'autoadds'};                   $env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'};
                 $env{'form.autodrops'} = $reqinfo{'autodrops'};                   $env{'form.autoadds'} = $reqinfo{'autoadds'};
                 if ($reqinfo{'instcode'} ne '') {                   $env{'form.autdrops'} = $reqinfo{'autodrops'};
                     $env{'form.sectotal'} = $reqinfo{'sectotal'};                   $env{'form.instcode'} = $reqinfo{'instcode'};
                     $env{'form.crosslisttotal'} = $reqinfo{'crosslisttotal'};                   my $crscode = { 
                     $env{'form.instcode'} = $reqinfo{'instcode'};                                   $cnum => $reqinfo{'instcode'},
                     my $crscode = {                                  };
                                     $cnum => $reqinfo{'instcode'},                   &extract_instcode($dom,'instcode',$crscode,$cnum);
                                   };  
                     &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.6  
changed lines
  Added in v.1.55

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