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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.198 and 1.201

version 1.198, 2022/09/17 23:38:51 version 1.201, 2025/01/28 21:57:52
Line 111  use Apache::loncommunicate; Line 111  use Apache::loncommunicate;
 use Apache::lonfeedback;  use Apache::lonfeedback;
 use Apache::lonrss();  use Apache::lonrss();
 use Apache::lonselstudent();  use Apache::lonselstudent();
   use Apache::lonenc();
 use lib '/home/httpd/lib/perl/';  use lib '/home/httpd/lib/perl/';
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   
Line 261  function folder_choice(targetform,caller Line 262  function folder_choice(targetform,caller
    </fieldset></div>     </fieldset></div>
 '."\n".  '."\n".
     '<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />'.      '<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />'.
     '<input type="hidden" name="renamed" value="" />'.      '<input type="hidden" name="renamed" value="" />';
         ($folder=~/^critical/?'</form>':'');  
     return $output;      return $output;
 }  }
   
Line 1134  ENDDISHEADER Line 1134  ENDDISHEADER
             $r->print(&blocked_in_folder($numblocked,$startblock,$endblock,$by_ip,$clientip,$blockdom,              $r->print(&blocked_in_folder($numblocked,$startblock,$endblock,$by_ip,$clientip,$blockdom,
                                          \%setters));                                           \%setters));
         }          }
           $r->print('</form>');
         return;          return;
     }      }
     my $interdis = $env{'form.interdis'};      my $interdis = $env{'form.interdis'};
Line 2503  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'}) {
                         $showsymb = &Apache::lonenc::check_encrypt($symb);                          unless ($showsymb =~ m{^/enc/}) {
                               $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'}) {
                     $showurl = $baseurl;                      unless ($showurl =~ m{^/enc/}) {
                           $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 2702  sub displayresource { Line 2707  sub displayresource {
      && (&Apache::lonnet::allowed('vgr',$content{'courseid'}))) {       && (&Apache::lonnet::allowed('vgr',$content{'courseid'}))) {
         my $symb;          my $symb;
         if (defined($content{'symb'})) {          if (defined($content{'symb'})) {
             $symb = $content{'symb'};              $symb = &Apache::lonenc::check_decrypt($content{'symb'});
         } else {           } elsif (defined($content{'baseurl'})) {
     $symb=&Apache::lonnet::symbread($content{'baseurl'});              $symb =
                   &Apache::lonnet::symbread(&Apache::lonenc::check_decrypt($content{'baseurl'}));
         }          }
 # Could not get a symb, give up  # Could not get a symb, give up
  unless ($symb) { return $content{'citation'}; }   unless ($symb) { return $content{'citation'}; }
Removed from v.1.198  
changed lines
  Added in v.1.201

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