loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.197, 2022/01/19 15:04:15
+version 1.198, 2022/09/17 23:38:51
  Line 3264  sub handler {
           'sendreply','compose','sendmail','critical','recname','recdom',
           'recordftf','sortedby','folder','startdis','interdis',
  	 'showcommentbaseurl','dismode','group','subject','text','ref',
-          'msgstatus']);
+          'msgstatus','btoken']);
      $sqs='&amp;sortedby='.$env{'form.sortedby'};
+ # ----------- Check if access was from balancer to server with existing session
+     if ($env{'form.btoken'}) {
+         my %info = &Apache::lonnet::tmpget($env{'form.btoken'});
+         &Apache::lonnet::tmpdel($env{'form.btoken'});
+         delete($env{'form.btoken'});
+         unless ($env{'form.display'}) {
+             if (($info{'display'}) && ($info{'mailrecip'})) {
+                 if (&unescape($info{'mailrecip'}) eq $env{'user.name'}.':'.$env{'user.domain'}) {
+                     $env{'form.display'} = &unescape($info{'display'});
+                 }
+             }
+         }
+     }
  # ------------------------------------------------------ They checked for email
      &Apache::lonnet::put('email_status',{'recnewemail'=>0});