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

Diff for /loncom/interface/selfenroll.pm between versions 1.29 and 1.30

version 1.29, 2014/04/02 16:51:11 version 1.30, 2014/04/04 23:06:32
Line 562  sub store_selfenroll_request { Line 562  sub store_selfenroll_request {
                                                    });                                                     });
             my $token;              my $token;
             if ($status eq 'pending') {              if ($status eq 'pending') {
                 $token = &Apache::lonnet::tmpput(\%selfenroll,$lonhost);;                  $token = &Apache::lonnet::tmpput(\%selfenroll,$lonhost);
                 $userenroll{$cdom.'_'.$cnum}{'token'} = $token;                  $userenroll{$cdom.'_'.$cnum}{'token'} = $token;
                 $userenroll{$cdom.'_'.$cnum}{'lonhost'} = $lonhost;                  $userenroll{$cdom.'_'.$cnum}{'lonhost'} = $lonhost;
                 $userenroll{$cdom.'_'.$cnum}{'handle'} = $handle;                   $userenroll{$cdom.'_'.$cnum}{'handle'} = $handle; 
Line 583  sub store_selfenroll_request { Line 583  sub store_selfenroll_request {
                                    'token'      => $token,                                     'token'      => $token,
                                  );                                   );
                 my %domconfig = &Apache::lonnet::get_dom('configuration',['selfenrollment'],$cdom);                  my %domconfig = &Apache::lonnet::get_dom('configuration',['selfenrollment'],$cdom);
   
                 if (ref($domconfig{'selfenrollment'}) eq 'HASH') {                  if (ref($domconfig{'selfenrollment'}) eq 'HASH') {
                     my ($url,$buttontext,$code,@fields);                      my ($url,$buttontext,$code,@fields);
                     if (ref($domconfig{'selfenrollment'}{'validation'}) eq 'HASH') {                      if (ref($domconfig{'selfenrollment'}{'validation'}) eq 'HASH') {
                         my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum,{ 'one_time' => 1});                          my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum,{ 'one_time' => 1});
                         $postvalues{'uniquecode'} = $courseinfo{'internal.uniquecode'};                          $postvalues{'uniquecode'} = $courseinfo{'internal.uniquecode'};
                           $postvalues{'description'} = $courseinfo{'description'};
                         $url = $domconfig{'selfenrollment'}{'validation'}{'url'};                          $url = $domconfig{'selfenrollment'}{'validation'}{'url'};
                         if (ref($domconfig{'selfenrollment'}{'validation'}{'fields'}) eq 'ARRAY') {                          if (ref($domconfig{'selfenrollment'}{'validation'}{'fields'}) eq 'ARRAY') {
                             @fields = @{$domconfig{'selfenrollment'}{'validation'}{'fields'}};                              @fields = @{$domconfig{'selfenrollment'}{'validation'}{'fields'}};
Line 602  sub store_selfenroll_request { Line 604  sub store_selfenroll_request {
                                     $output .= '<input type="hidden" name="'.$field.'" value="'.$postvalues{$field}.'" />'."\n";                                      $output .= '<input type="hidden" name="'.$field.'" value="'.$postvalues{$field}.'" />'."\n";
                                 }                                  }
                             }                              }
                         }                              if ($buttontext eq '') {
                         if ($buttontext eq '') {                                  $buttontext = &mt('Complete my enrollment');
                             $buttontext = &mt('Complete my enrollment');                              }
                         }                              my $protocol = $Apache::lonnet::protocol{$lonhost};
                         $output .= '<input type="submit" name="validate" value="'.$buttontext.'" />'."\n".                              $protocol = 'http' if ($protocol ne 'https');
                                    '</form>'."\n";                              my $enroller = $protocol.'://'.&Apache::lonnet::hostname($lonhost).'/cgi-bin/enrollqueued.pl';
                               $output .= '<input type="hidden" name="enroller" value="'.$enroller.'" />'."\n".
                                          '<input type="submit" name="validate" value="'.$buttontext.'" />'."\n".
                                          '</form>'."\n";
                           } else {
                               $status = 'request';
                           } 
                     }                      }
                 } else {                  } else {
                     $status eq 'request';                      $status = 'request';
                 }                  }
             }              }
             if ($status eq 'request') {              if ($status eq 'request') {
Removed from v.1.29  
changed lines
  Added in v.1.30

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