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

Diff for /loncom/interface/lontiny.pm between versions 1.3 and 1.4

version 1.3, 2018/05/10 03:49:51 version 1.4, 2018/07/01 00:03:44
Line 86  sub handler { Line 86  sub handler {
                                 }                                  }
                             }                              }
                             my @allposs = keys(%possroles);                              my @allposs = keys(%possroles);
                               if ($env{'request.lti.login'}) {
                                   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
                                   if ($env{'request.lti.target'} eq '') {
                                       if ($env{'form.ltitarget'} eq 'iframe') {
                                           &Apache::lonnet::appenv({'request.lti.target' => 'iframe'});
                                           delete($env{'form.ltitarget'});
                                       }
                                   }
                                   if ($env{'form.selectrole'}) {
                                       foreach my $role (@allposs) {
                                           my $newrole = "$role./$cdom/$cnum";
                                           if ($possroles{$allposs[0]} ne '') {
                                               $newrole .= "/$possroles{$role}";
                                           }
                                           if ($env{"form.$newrole"}) {
                                               my $destination .= '/adm/roles?selectrole=1&'.$newrole.'=1'.
                                                                  '&destinationurl='.&HTML::Entities::encode($r->uri);
                                               if ($env{'form.ltitarget'} eq 'iframe') {
                                                   $destination .= '&ltitarget=iframe';
                                               }
                                               &do_redirect($r,$destination);
                                               return OK;
                                           }
                                       }
                                   }
                               }
                             if (@allposs == 0) {                              if (@allposs == 0) {
                                 &show_roles($r,\%crsenv,\%possroles)                                  &show_roles($r,\%crsenv,\%possroles);
                             } elsif (@allposs == 1) {                              } elsif (@allposs == 1) {
                                 my $newrole = "$allposs[0]./$cdom/$cnum";                                  my $newrole = "$allposs[0]./$cdom/$cnum";
                                 $newrole = "$allposs[0]./$cdom/$cnum";                                  $newrole = "$allposs[0]./$cdom/$cnum";
Removed from v.1.3  
changed lines
  Added in v.1.4

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