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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.181.2.9.2.3 and 1.181.2.10

version 1.181.2.9.2.3, 2023/10/07 01:47:21 version 1.181.2.10, 2023/09/13 13:57:55
Line 2504  sub displaymessage { Line 2504  sub displaymessage {
                               $showsymb,$env{'user.domain'},$env{'user.name'});                                $showsymb,$env{'user.domain'},$env{'user.name'});
                 if ($symb) {                  if ($symb) {
                     if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {                      if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
                         unless ($showsymb =~ m{^/enc/}) {                          $showsymb = &Apache::lonenc::check_encrypt($symb);
                             $showsymb = &Apache::lonenc::encrypted($showsymb);  
                         }  
                     }                      }
                     $symblink = '?symb='.$showsymb;                      $symblink = '?symb='.$showsymb;
                 }                  }
                 if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {                  if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
                     unless ($showurl =~ m{^/enc/}) {                      $showurl = $baseurl;
                         $showurl = &Apache::lonenc::encrypted($showurl);  
                     }  
                 }                  }
                 $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))                  $r->print(&Apache::lonhtmlcommon::row_title(&mt('Refers to'))
                          .'<a href="'.$showurl.$symblink.'">'.$restitle.'</a>'                           .'<a href="'.$showurl.$symblink.'">'.$restitle.'</a>'
Line 3171  sub handler { Line 3167  sub handler {
          'sendreply','compose','sendmail','critical','recname','recdom',           'sendreply','compose','sendmail','critical','recname','recdom',
          'recordftf','sortedby','folder','startdis','interdis',           'recordftf','sortedby','folder','startdis','interdis',
  'showcommentbaseurl','dismode','group','subject','text','ref',   'showcommentbaseurl','dismode','group','subject','text','ref',
          'msgstatus','btoken']);           'msgstatus']);
     $sqs='&amp;sortedby='.$env{'form.sortedby'};      $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  # ------------------------------------------------------ They checked for email
     &Apache::lonnet::put('email_status',{'recnewemail'=>0});      &Apache::lonnet::put('email_status',{'recnewemail'=>0});
   
Removed from v.1.181.2.9.2.3  
changed lines
  Added in v.1.181.2.10

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