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

Diff for /loncom/interface/loncoursequeueadmin.pm between versions 1.43 and 1.44

version 1.43, 2014/02/12 20:47:40 version 1.44, 2014/03/03 17:11:41
Line 876  sub update_request_queue { Line 876  sub update_request_queue {
                           
             if (ref($curr{$uname}) eq 'HASH') {              if (ref($curr{$uname}) eq 'HASH') {
                 my ($username,$logtoken,$serverid,$encpass,$courseid,$id,$firstname,                  my ($username,$logtoken,$serverid,$encpass,$courseid,$id,$firstname,
                     $middlename,$lastname,$generation);                      $middlename,$lastname,$generation,$inststatus);
                 $curr{$uname}{'timestamp'} = $now;                  $curr{$uname}{'timestamp'} = $now;
                 $curr{$uname}{'adjudicator'} = $env{'user.name'}.':'.$env{'user.domain'};                  $curr{$uname}{'adjudicator'} = $env{'user.name'}.':'.$env{'user.domain'};
                 $courseid   = $curr{$uname}{'courseid'};                  $courseid   = $curr{$uname}{'courseid'};
Line 885  sub update_request_queue { Line 885  sub update_request_queue {
                 $middlename = $curr{$uname}{'middlename'};                  $middlename = $curr{$uname}{'middlename'};
                 $lastname   = $curr{$uname}{'lastname'};                  $lastname   = $curr{$uname}{'lastname'};
                 $generation = $curr{$uname}{'generation'};                  $generation = $curr{$uname}{'generation'};
                   $inststatus = $curr{$uname}{'usertype'};
   
                 my ($key,$caller)=split(/&/,$curr{$uname}{'tmpinfo'});                  my ($key,$caller)=split(/&/,$curr{$uname}{'tmpinfo'});
                 if ($caller eq 'createaccount') {                  if ($caller eq 'createaccount') {
Line 901  sub update_request_queue { Line 902  sub update_request_queue {
                         if ($uhome eq 'no_host') {                          if ($uhome eq 'no_host') {
                             push(@warn_approves,$uname);                              push(@warn_approves,$uname);
                         } else {                          } else {
                               unless (($inststatus eq 'default') || ($inststatus eq '')) {
                                   &Apache::lonnet::put('environment',{inststatus => $inststatus},$cdom,$uname);
                               }
                             &send_selfserve_notification($uname.':'.$cdom,                              &send_selfserve_notification($uname.':'.$cdom,
                                                          $approvedmsg,undef,undef,$now,                                                           $approvedmsg,undef,undef,$now,
                                                          $beneficiary,$sender);                                                           $beneficiary,$sender);
Removed from v.1.43  
changed lines
  Added in v.1.44

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