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

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

version 1.2, 2018/04/14 02:29:44 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";
Line 276  ENDJS Line 302  ENDJS
   
 sub generic_error {  sub generic_error {
     my ($r) = @_;      my ($r) = @_;
     my $linktext;      my $continuelink;
     if ($env{'user.adv'}) {      unless ($env{'request.lti.login'}) {
         $linktext = &mt('Continue to your roles page');          my $linktext;
     } else {          if ($env{'user.adv'}) {
         $linktext = &mt('Continue to your courses page');              $linktext = &mt('Continue to your roles page');
           } else {
               $linktext = &mt('Continue to your courses page');
           }
           $continuelink='<a href="/adm/roles">'.$linktext.'</a>';
     }      }
     my $continuelink='<a href="/adm/roles">'.$linktext.'</a>';  
     my $msg = &mt('The page you requested does not exist.');      my $msg = &mt('The page you requested does not exist.');
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
Removed from v.1.2  
changed lines
  Added in v.1.4

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