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

Diff for /loncom/lti/ltiauth.pm between versions 1.13 and 1.14

version 1.13, 2018/05/28 23:26:04 version 1.14, 2018/05/30 18:06:13
Line 57  sub handler { Line 57  sub handler {
         }          }
     }      }
 #  #
 # Retrieve data POSTed by LTI Consumer on launch    # Retrieve data POSTed by LTI Consumer on launch
 #  #
     &Apache::lonacc::get_posted_cgi($r);      &Apache::lonacc::get_posted_cgi($r);
     my $params = {};      my $params = {};
Line 436  sub handler { Line 436  sub handler {
     my (@ltiroles,@lcroles);      my (@ltiroles,@lcroles);
     my @lcroleorder = ('cc','in','ta','ep','st');      my @lcroleorder = ('cc','in','ta','ep','st');
     my ($lcrolesref,$ltirolesref) = &LONCAPA::ltiutils::get_lc_roles($params->{'roles'},      my ($lcrolesref,$ltirolesref) = &LONCAPA::ltiutils::get_lc_roles($params->{'roles'},
                                                                      \@lcroleorder);                                                                       \@lcroleorder,
                                                                        $lti{$itemid}{maproles});
     if (ref($lcrolesref) eq 'ARRAY') {      if (ref($lcrolesref) eq 'ARRAY') {
         @lcroles = @{$lcrolesref};          @lcroles = @{$lcrolesref};
     }      }
Line 661  sub lti_enroll { Line 662  sub lti_enroll {
             my %coursehash = &Apache::lonnet::coursedescription($cdom.'_'.$cnum);              my %coursehash = &Apache::lonnet::coursedescription($cdom.'_'.$cnum);
             my $start = $coursehash{'default_enrollment_start_date'};              my $start = $coursehash{'default_enrollment_start_date'};
             my $end = $coursehash{'default_enrollment_end_date'};              my $end = $coursehash{'default_enrollment_end_date'};
             my $enrollresult = &LONCAPA::ltiutils::enrolluser($role,$cdom,$cnum,$sec,$start,$end);              $enrollresult = &LONCAPA::ltiutils::enrolluser($udom,$uname,$role,$cdom,$cnum,$sec,
             if ($enrollresult eq 'ok') {                                                             $start,$end,1);
                 my (%userroles,%newrole,%newgroups);  
                 &Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum,  
                                                     $area);  
                 &Apache::lonnet::set_userprivs(\%userroles,\%newrole,\%newgroups);  
                 $userroles{'user.role.'.$spec} = $start.'.'.$end;  
                 &Apache::lonnet::appenv(\%userroles,[$role,'cm']);  
             }  
         }          }
     }      }
     return $enrollresult;      return $enrollresult;
Removed from v.1.13  
changed lines
  Added in v.1.14

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