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

Diff for /loncom/interface/lonmsgdisplay.pm between versions 1.61 and 1.63

version 1.61, 2007/01/04 02:02:36 version 1.63, 2007/01/04 20:58:26
Line 2045  sub displaymessage { Line 2045  sub displaymessage {
         if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {          if (defined($content{'courseid'}) && defined($env{'request.course.id'})) {
             if ($content{'courseid'} eq $env{'request.course.id'}) {              if ($content{'courseid'} eq $env{'request.course.id'}) {
                 my $symblink;                  my $symblink;
                   my $showsymb = &Apache::lonenc::check_decrypt($symb);
                   my $showurl = &Apache::lonenc::check_decrypt($baseurl);
                   my $encrypturl = &Apache::lonnet::EXT('resource.0.encrypturl',
                                 $showsymb,$env{'user.domain'},$env{'user.name'});
                 if ($symb) {                  if ($symb) {
                     &Apache::lonenc::check_decrypt(\$symb);                      if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
                     $symblink = '?symb='.$symb;                          $showsymb = &Apache::lonenc::check_encrypt($symb);
                       }
                       $symblink = '?symb='.$showsymb;
                   }
                   if ($encrypturl =~ /^yes$/i && !$env{'request.role.adv'}) {
                       $showurl = $baseurl;
                 }                  }
                 &Apache::lonenc::check_decrypt(\$baseurl);                  $r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$showurl.$symblink.'">'.$restitle.'</a>');
                 $r->print('<br /><b>'.&mt('Refers to').':</b> <a href="'.$baseurl.$symblink.'">'.$restitle.'</a>');  
                 $refers_to = 1;                  $refers_to = 1;
             }              }
         }          }
         if (!$refers_to) {          if (!$refers_to) {
             if ($baseurl =~ m-^/enc/-) {              if ($baseurl =~ m-^/enc/-) {
                 if (defined($content{'courseid'})) {                  if (defined($content{'courseid'})) {
                     my $unencurl =                       if (!$env{'request.course.id'}) {
                        &Apache::lonenc::unencrypted($baseurl,                          my $unencurl =
                                                     $content{'courseid'});                              &Apache::lonenc::unencrypted($baseurl,
                     if (defined($unencurl)) {                                                          $content{'courseid'});
                         if (&Apache::lonnet::allowed('bre',$unencurl)) {                          if ($unencurl ne '') {
                             $r->print('<br /><b>'.&mt('Refers to').                              if (&Apache::lonnet::allowed('bre',$unencurl)) {
                                       ':</b> <a href="'.$unencurl.'">'.$restitle.'</a>');                                  $r->print('<br /><b>'.&mt('Refers to').
                                             ':</b> <a href="'.$unencurl.'">'.
                                             $restitle.'</a>');
                               }
                         }                          }
                     }                      }
                 }                  }
Removed from v.1.61  
changed lines
  Added in v.1.63

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