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

Diff for /loncom/lti/ltiauth.pm between versions 1.20 and 1.24

version 1.20, 2021/08/04 19:59:11 version 1.24, 2021/11/03 01:04:04
Line 68  sub handler { Line 68  sub handler {
         }          }
     }      }
 #  #
 # Check for existing session, and restored temporarily  # Check for existing session, and restore temporarily
 # deleted form items to %env, if session exists.  # deleted form items to %env, if session exists.
 #  #
     if ($handle ne '') {      if ($handle ne '') {
Line 197  sub handler { Line 197  sub handler {
                                 delete($env{'form.'.$key});                                  delete($env{'form.'.$key});
                             }                              }
                             my $ltoken = &Apache::lonnet::tmpput({'linkprot' => $itemid.$ltitype.':'.$tail},                              my $ltoken = &Apache::lonnet::tmpput({'linkprot' => $itemid.$ltitype.':'.$tail},
                                                                  $lonhost);                                                                   $lonhost,'link');
                             if ($ltoken) {                              if ($ltoken) {
                                 $r->internal_redirect($tail.'?ltoken='.$ltoken);                                  $r->internal_redirect($tail.'?ltoken='.$ltoken);
                                 $r->set_handlers('PerlHandler'=> undef);                                  $r->set_handlers('PerlHandler'=> undef);
Line 854  sub lti_session { Line 854  sub lti_session {
             my $lowest_load;              my $lowest_load;
             ($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($udom);              ($otherserver,undef,undef,undef,$lowest_load) = &Apache::lonnet::choose_server($udom);
             if ($lowest_load > 100) {              if ($lowest_load > 100) {
                 $otherserver = &Apache::lonnet::spareserver($lowest_load,$lowest_load,1,$udom);                  $otherserver = &Apache::lonnet::spareserver($r,$lowest_load,$lowest_load,1,$udom);
             }              }
         }          }
         if ($otherserver ne '') {          if ($otherserver ne '') {
Line 1036  sub course_from_tinyurl { Line 1036  sub course_from_tinyurl {
     my ($tail) = @_;      my ($tail) = @_;
     my ($urlcdom,$urlcnum);      my ($urlcdom,$urlcnum);
     if ($tail =~ m{^/tiny/($match_domain)/(\w+)$}) {      if ($tail =~ m{^/tiny/($match_domain)/(\w+)$}) {
         my ($urlcdom,$key) = ($1,$2);          ($urlcdom,my $key) = ($1,$2);
         my $tinyurl;          my $tinyurl;
         my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$urlcdom."\0".$key);          my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$urlcdom."\0".$key);
         if (defined($cached)) {          if (defined($cached)) {
Removed from v.1.20  
changed lines
  Added in v.1.24

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