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

Diff for /loncom/interface/loncommon.pm between versions 1.1363 and 1.1365

version 1.1363, 2021/08/04 19:59:10 version 1.1365, 2021/09/05 05:55:50
Line 9188  sub deeplink_login_symb { Line 9188  sub deeplink_login_symb {
     my ($cnum,$cdom) = @_;      my ($cnum,$cdom) = @_;
     my $login_symb;      my $login_symb;
     if ($env{'request.deeplink.login'}) {      if ($env{'request.deeplink.login'}) {
         if ($env{'request.deeplink.login'} =~ m{^\Q/tiny/$cdom/\E(\w+)$}) {          $login_symb = &symb_from_tinyurl($env{'request.deeplink.login'},$cnum,$cdom);
             my $key = $1;      }
             my ($tinyurl,$login);      return $login_symb;
             my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$cdom."\0".$key);  }
             if (defined($cached)) {  
                 $tinyurl = $result;  sub symb_from_tinyurl {
             } else {      my ($url,$cnum,$cdom) = @_;
                 my $configuname = &Apache::lonnet::get_domainconfiguser($cdom);      if ($url =~ m{^\Q/tiny/$cdom/\E(\w+)$}) {
                 my %currtiny = &Apache::lonnet::get('tiny',[$key],$cdom,$configuname);          my $key = $1;
                 if ($currtiny{$key} ne '') {          my ($tinyurl,$login);
                     $tinyurl = $currtiny{$key};          my ($result,$cached)=&Apache::lonnet::is_cached_new('tiny',$cdom."\0".$key);
                     &Apache::lonnet::do_cache_new('tiny',$cdom."\0".$key,$currtiny{$key},600);          if (defined($cached)) {
                 }              $tinyurl = $result;
           } else {
               my $configuname = &Apache::lonnet::get_domainconfiguser($cdom);
               my %currtiny = &Apache::lonnet::get('tiny',[$key],$cdom,$configuname);
               if ($currtiny{$key} ne '') {
                   $tinyurl = $currtiny{$key};
                   &Apache::lonnet::do_cache_new('tiny',$cdom."\0".$key,$currtiny{$key},600);
             }              }
             if ($tinyurl ne '') {          }
                 my ($cnumreq,$posslogin) = split(/\&/,$tinyurl);          if ($tinyurl ne '') {
                 if ($cnumreq eq $cnum) {              my ($cnumreq,$symb) = split(/\&/,$tinyurl);
                     $login_symb = $posslogin;              if (wantarray) {
                 }                  return ($cnumreq,$symb);
               } elsif ($cnumreq eq $cnum) {
                   return $symb;
             }              }
         }          }
     }      }
     return $login_symb;      if (wantarray) {
           return ();
       } else {
           return;
       }
 }  }
   
 sub wishlist_window {  sub wishlist_window {
Line 9302  ENDLINK Line 9314  ENDLINK
 }  }
   
 sub modal_adhoc_script {  sub modal_adhoc_script {
     my ($funcname,$width,$height,$content)=@_;      my ($funcname,$width,$height,$content,$possmathjax)=@_;
       my $mathjax;
       if ($possmathjax) {
           $mathjax = <<'ENDJAX';
                  if (typeof MathJax == 'object') {
                      MathJax.Hub.Queue(["Typeset",MathJax.Hub]);
                  }
   ENDJAX
       }
     return (<<ENDADHOC);      return (<<ENDADHOC);
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
Line 9313  sub modal_adhoc_script { Line 9333  sub modal_adhoc_script {
                 modalWindow.height = $height;                  modalWindow.height = $height;
                 modalWindow.content = '$content';                  modalWindow.content = '$content';
                 modalWindow.open();                  modalWindow.open();
                   $mathjax
         };            };  
 // ]]>  // ]]>
 </script>  </script>
Line 9320  ENDADHOC Line 9341  ENDADHOC
 }  }
   
 sub modal_adhoc_inner {  sub modal_adhoc_inner {
     my ($funcname,$width,$height,$content)=@_;      my ($funcname,$width,$height,$content,$possmathjax)=@_;
     my $innerwidth=$width-20;      my $innerwidth=$width-20;
     $content=&js_ready(      $content=&js_ready(
                  &start_page('Dialog',undef,{'only_body'=>1,'bgcolor'=>'#FFFFFF'}).                   &start_page('Dialog',undef,{'only_body'=>1,'bgcolor'=>'#FFFFFF'}).
Line 9329  sub modal_adhoc_inner { Line 9350  sub modal_adhoc_inner {
                  &end_scrollbox().                   &end_scrollbox().
                  &end_page()                   &end_page()
              );               );
     return &modal_adhoc_script($funcname,$width,$height,$content);      return &modal_adhoc_script($funcname,$width,$height,$content,$possmathjax);
 }  }
   
 sub modal_adhoc_window {  sub modal_adhoc_window {
     my ($funcname,$width,$height,$content,$linktext)=@_;      my ($funcname,$width,$height,$content,$linktext,$possmathjax)=@_;
     return &modal_adhoc_inner($funcname,$width,$height,$content).      return &modal_adhoc_inner($funcname,$width,$height,$content,$possmathjax).
            "<a href=\"javascript:$funcname();void(0);\">".$linktext."</a>";             "<a href=\"javascript:$funcname();void(0);\">".$linktext."</a>";
 }  }
   
Removed from v.1.1363  
changed lines
  Added in v.1.1365

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