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

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

version 1.27.2.2, 2014/04/05 13:17:16 version 1.29, 2014/04/02 16:51:11
Line 349  sub enrollment_limit_check { Line 349  sub enrollment_limit_check {
 sub page_header {  sub page_header {
     my ($r,$courseid,$js,$desc) = @_;      my ($r,$courseid,$js,$desc) = @_;
     my $start_page =      my $start_page =
         &Apache::loncommon::start_page('Self-enroll in a LON-CAPA course',$js,          &Apache::loncommon::start_page('Self-enroll in a LON-CAPA course',$js);
                                        {'no_inline_link'   => 1,});  
     $r->print($start_page);      $r->print($start_page);
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::createaccount::selfenroll_crumbs($r,$courseid,$desc);      &Apache::createaccount::selfenroll_crumbs($r,$courseid,$desc);
Line 563  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 584  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 605  sub store_selfenroll_request { Line 602  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 '') {                          }
                                 $buttontext = &mt('Complete my enrollment');                          if ($buttontext eq '') {
                             }                              $buttontext = &mt('Complete my enrollment');
                             my $protocol = $Apache::lonnet::protocol{$lonhost};                          }
                             $protocol = 'http' if ($protocol ne 'https');                          $output .= '<input type="submit" name="validate" value="'.$buttontext.'" />'."\n".
                             my $enroller = $protocol.'://'.&Apache::lonnet::hostname($lonhost).'/cgi-bin/enrollqueued.pl';                                     '</form>'."\n";
                             $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 = 'request';                      $status eq 'request';
                 }                  }
             }              }
             if ($status eq 'request') {              if ($status eq 'request') {
Removed from v.1.27.2.2  
changed lines
  Added in v.1.29

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