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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.182.4.9 and 1.182.4.10

version 1.182.4.9, 2010/01/22 13:54:06 version 1.182.4.10, 2010/01/22 14:24:16
Line 62  use Apache::lonlocal; Line 62  use Apache::lonlocal;
 use Apache::lonnet;  use Apache::lonnet;
 use LONCAPA;  use LONCAPA;
   
   sub coursepreflink {
       my ($text,$category)=@_;
       if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
           return '<a href="/adm/courseprefs?phase=display&actions='.$category.'">'.$text.'</a>';
       } else {
           return '';
       }
   }
   
   sub raw_href_to_link {
       my ($message)=@_;
       $message=~s/(https?\:\/\/[^\s\'\"]+)(\s|$)/<a href="$1"><tt>$1<\/tt><\/a>$2/gi;
       return $message;
   }
   
 ##############################################  ##############################################
 ##############################################  ##############################################
   
Line 222  sub select_recent { Line 237  sub select_recent {
  unless ($value =~/^error\:/) {   unless ($value =~/^error\:/) {
     my $escaped = &Apache::loncommon::escape_url($value);      my $escaped = &Apache::loncommon::escape_url($value);
     &Apache::loncommon::inhibit_menu_check(\$escaped);      &Apache::loncommon::inhibit_menu_check(\$escaped);
               if ($area eq 'residx') {
                   next if ((!&Apache::lonnet::allowed('bre',$value)) && (!&Apache::lonnet::allowed('bro',$value)));
               }
     $return.="\n<option value='$escaped'>".      $return.="\n<option value='$escaped'>".
  &unescape((split(/\&/,$recent{$value}))[1]).   &unescape((split(/\&/,$recent{$value}))[1]).
  '</option>';   '</option>';
Line 1136  sub crumbs { Line 1154  sub crumbs {
     my $output='';      my $output='';
     unless ($noformat) { $output.='<br /><tt><b>'; }      unless ($noformat) { $output.='<br /><tt><b>'; }
     $output.='<font size="'.$size.'">'.$prefix.'/';      $output.='<font size="'.$size.'">'.$prefix.'/';
     if (($env{'user.adv'}) | ($env{'user.author'})) {      if (($env{'user.adv'}) || ($env{'user.author'})) {
  my $path=$prefix.'/';   my $path=$prefix.'/';
  foreach my $dir (split('/',$uri)) {   foreach my $dir (split('/',$uri)) {
             if (! $dir) { next; }              if (! $dir) { next; }
Removed from v.1.182.4.9  
changed lines
  Added in v.1.182.4.10

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