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

Diff for /loncom/interface/createaccount.pm between versions 1.65 and 1.69

version 1.65, 2014/05/05 21:28:10 version 1.69, 2015/01/09 15:41:49
Line 277  sub handler { Line 277  sub handler {
     } elsif (!$token) {      } elsif (!$token) {
         &print_header($r,$start_page,$courseid);          &print_header($r,$start_page,$courseid);
         my $now=time;          my $now=time;
         my $gotlondes;          if ((grep(/^login$/,@{$cancreate})) && (!grep(/^email$/,@{$cancreate}))) {
         if (grep(/^login$/,@{$cancreate})) {  
             if (open(my $jsh,"<$include/londes.js")) {              if (open(my $jsh,"<$include/londes.js")) {
                 while(my $line = <$jsh>) {                  while(my $line = <$jsh>) {
                     $r->print($line);                      $r->print($line);
                 }                  }
                 close($jsh);                  close($jsh);
                 $r->print(&javascript_setforms($now));                  $r->print(&javascript_setforms($now));
                 $gotlondes = 1;  
             }              }
         }          }
         if (grep(/^email$/,@{$cancreate})) {          if (grep(/^email$/,@{$cancreate})) {
Line 293  sub handler { Line 291  sub handler {
         }          }
         my $usertype = &get_usertype($domain);          my $usertype = &get_usertype($domain);
         $output = &print_username_form($r,$domain,$domdesc,$cancreate,$now,$lonhost,          $output = &print_username_form($r,$domain,$domdesc,$cancreate,$now,$lonhost,
                                        $include,$courseid,$gotlondes,$emailusername,                                         $include,$courseid,$emailusername,$usertype);
                                        $usertype);  
     }      }
     $r->print($output);      $r->print($output);
     &print_footer($r);      &print_footer($r);
Line 512  ENDSCRIPT Line 509  ENDSCRIPT
 }  }
   
 sub print_username_form {  sub print_username_form {
     my ($r,$domain,$domdesc,$cancreate,$now,$lonhost,$include,$courseid,$gotlondes,$emailusername,      my ($r,$domain,$domdesc,$cancreate,$now,$lonhost,$include,$courseid,$emailusername,
         $usertype) = @_;          $usertype) = @_;
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                                          unam => 'username',                                           unam => 'username',
Line 571  sub print_username_form { Line 568  sub print_username_form {
                                $lt{'yopw'}.'<br />';                                 $lt{'yopw'}.'<br />';
                 }                  }
                 $output .= &print_dataentry_form($r,$domain,$lonhost,$include,$now,$captchaform,                  $output .= &print_dataentry_form($r,$domain,$lonhost,$include,$now,$captchaform,
                                                  $courseid,$gotlondes,$emailusername,$captcha,                                                   $courseid,$emailusername,$captcha,$usertype);
                                                  $usertype);  
             }              }
             $output .= '</div>';              $output .= '</div>';
         }          }
Line 860  sub process_mailtoken { Line 856  sub process_mailtoken {
   
 sub start_session {  sub start_session {
     my ($r,$username,$domain,$uhome,$courseid,$token) = @_;      my ($r,$username,$domain,$uhome,$courseid,$token) = @_;
       my ($is_balancer) = &Apache::lonnet::check_loadbalancing($username,$domain);
     if ($r->dir_config('lonBalancer') eq 'yes') {      if ($is_balancer) {
         Apache::lonauth::success($r, $username, $domain, $uhome,          Apache::lonauth::success($r, $username, $domain, $uhome,
             'noredirect', undef, {});              'noredirect', undef, {});
   
Line 875  sub start_session { Line 871  sub start_session {
             ($courseid ? "/adm/selfenroll?courseid=$courseid" : '/adm/roles'),              ($courseid ? "/adm/selfenroll?courseid=$courseid" : '/adm/roles'),
             undef, {});               undef, {}); 
     }      }
   
     return;      return;
 }  }
   
Line 885  sub start_session { Line 880  sub start_session {
 # Stores token to store DES-key and stage during creation session  # Stores token to store DES-key and stage during creation session
 #  #
 sub print_dataentry_form {  sub print_dataentry_form {
     my ($r,$domain,$lonhost,$include,$now,$captchaform,$courseid,$gotlondes,$emailusername,$captcha,      my ($r,$domain,$lonhost,$include,$now,$captchaform,$courseid,$emailusername,$captcha,
         $usertype) = @_;          $usertype) = @_;
     my ($error,$output);      my ($error,$output);
     unless ($gotlondes) {      if (open(my $jsh,"<$include/londes.js")) {
         if (open(my $jsh,"<$include/londes.js")) {          while(my $line = <$jsh>) {
             while(my $line = <$jsh>) {              $r->print($line);
                 $r->print($line);          }
             }          close($jsh);
             close($jsh);          $output = &javascript_setforms($now,$emailusername,$captcha,$usertype)."\n".
             $output = &javascript_setforms($now,$emailusername,$captcha,$usertype)."\n";                    &javascript_checkpass($now,'email');
             $gotlondes = 1;  
         }  
     }  
     if ($gotlondes) {  
         $output .= &javascript_checkpass($now,'email');  
         my ($lkey,$ukey) = &Apache::loncommon::des_keys();          my ($lkey,$ukey) = &Apache::loncommon::des_keys();
         my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);          my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);
         my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount:createaccount',          my $logtoken=Apache::lonnet::reply('tmpput:'.$ukey.$lkey.'&createaccount:createaccount',
Line 1003  sub get_creation_controls { Line 993  sub get_creation_controls {
             if (ref($usercreation->{'cancreate'}{'emailusername'}) eq 'HASH') {              if (ref($usercreation->{'cancreate'}{'emailusername'}) eq 'HASH') {
                 $emailusername = $usercreation->{'cancreate'}{'emailusername'};                  $emailusername = $usercreation->{'cancreate'}{'emailusername'};
             } else {              } else {
                 $emailusername =  {'lastname' => '1', 'firstname' => 1, };                  $emailusername = {
                                       default =>  {
                                                      'lastname' => '1',
                                                      'firstname' => 1,
                                                   },
                                    };
             }              }
         }          }
     }      }
Line 1230  sub username_check { Line 1225  sub username_check {
         $output = '<form method="post" action="/adm/createaccount">';          $output = '<form method="post" action="/adm/createaccount">';
         if (ref($shibenv) eq 'HASH') {          if (ref($shibenv) eq 'HASH') {
             foreach my $key (keys(%{$shibenv})) {              foreach my $key (keys(%{$shibenv})) {
                  $inst_results{$username.':'.$domain}{$key} = $shibenv->{$key};                  if ($ENV{$shibenv->{$key}} ne '') {
                       $inst_results{$username.':'.$domain}{$key} = $ENV{$shibenv->{$key}};
                   }
             }              }
         }          }
         (my $datatable,$rowcount,$editable) =           (my $datatable,$rowcount,$editable) = 
Removed from v.1.65  
changed lines
  Added in v.1.69

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