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

Diff for /loncom/interface/lonrequestcourse.pm between versions 1.21 and 1.23

version 1.21, 2009/08/22 18:12:37 version 1.23, 2009/08/22 21:08:39
Line 1873  sub print_request_outcome { Line 1873  sub print_request_outcome {
                         }                          }
                     }                      }
                 }                  }
                 $xlistinfo .= $env{'form.crosslist_'.$i.'_instsec'};                  $crosslistings{$i}{'instcode'} = $xlistinfo;
                 $crosslistings{$i}{'inst'} = $xlistinfo;                  $crosslistings{$i}{'instsec'} = $env{'form.crosslist_'.$i.'_instsec'}; 
                 $crosslistings{$i}{'loncapa'} = $env{'form.crosslist_'.$i.'_lcsec'};                  $crosslistings{$i}{'loncapa'} = $env{'form.crosslist_'.$i.'_lcsec'};
             }              }
         }          }
Line 2044  sub print_request_outcome { Line 2044  sub print_request_outcome {
             if ($validation =~ /^error(.*)$/) {              if ($validation =~ /^error(.*)$/) {
                 $disposition = 'approval';                  $disposition = 'approval';
                 $validationerror = $1;                  $validationerror = $1;
               } else {
                   $disposition = $validation;
             }              }
         } else {          } else {
             $disposition = 'approval';              $disposition = 'approval';
Line 2207  sub get_processtype { Line 2209  sub get_processtype {
             if (ref($domconfig->{'requestcourses'}) eq 'HASH') {              if (ref($domconfig->{'requestcourses'}) eq 'HASH') {
                 %settings = %{$domconfig->{'requestcourses'}};                  %settings = %{$domconfig->{'requestcourses'}};
                 if (ref($settings{$crstype}) eq 'HASH') {                  if (ref($settings{$crstype}) eq 'HASH') {
                     if (($env{'user.adv'}) && (exists($settings{$crstype}{'_LC_adv'}))) {                      if (($env{'user.adv'}) && ($settings{$crstype}{'_LC_adv'} ne '')) {
                         $val = $settings{$crstype}{'_LC_adv'};                          $val = $settings{$crstype}{'_LC_adv'};
                         @{$inststatuses} = ('_LC_adv_');                          @{$inststatuses} = ('_LC_adv_');
                     } else {                      } else {
Line 2366  sub retrieve_settings { Line 2368  sub retrieve_settings {
                         my %crscode = (                          my %crscode = (
                                         $i => $reqinfo{'crosslistings'}{$i}{'instcode'},                                          $i => $reqinfo{'crosslistings'}{$i}{'instcode'},
                                       );                                        );
                         &extract_instcode($dom,'crosslist',\%crscode,$1,$xlistsec);                          &extract_instcode($dom,'crosslist',\%crscode,$i,$xlistsec);
                     }                      }
                 }                  }
             }              }
Removed from v.1.21  
changed lines
  Added in v.1.23

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