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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.252 and 1.253.2.2

version 1.252, 2009/12/01 18:07:50 version 1.253.2.2, 2009/12/08 05:19:08
Line 72  sub coursepreflink { Line 72  sub coursepreflink {
    }     }
 }  }
   
   sub raw_href_to_link {
      my ($message)=@_;
      $message=~s/(https?\:\/\/[^\s\'\"]+)(\s|$)/<a href="$1"><tt>$1<\/tt><\/a>$2/gi;
      return $message;
   }
   
 ##############################################  ##############################################
 ##############################################  ##############################################
   
Line 1372  returns: nothing Line 1378  returns: nothing
         # The first one should be the course or a menu link          # The first one should be the course or a menu link
         if (!defined($menulink)) { $menulink=1; }          if (!defined($menulink)) { $menulink=1; }
         if ($menulink) {          if ($menulink) {
             my $description = 'Menu';              if ($menulink eq '_nomenu') {
             my $no_mt_descr = 0;                  return unless($last);
             if (exists($env{'request.course.id'}) &&   
                 $env{'request.course.id'} ne '') {  
                 $description =   
                     $env{'course.'.$env{'request.course.id'}.'.description'};  
                 $no_mt_descr = 1;  
             }  
             $menulink =  {  href   =>'/adm/menu',  
                             title  =>'Go to main menu',  
                             target =>'_top',  
                             text   =>$description,  
                             no_mt  =>$no_mt_descr, };  
             if($last) {  
                 #$last set, so we have some crumbs  
                 unshift(@Crumbs,$menulink);  
             } else {              } else {
                 #only menulink crumb present                  my $description = 'Menu';
                 $last = $menulink;                  my $no_mt_descr = 0;
                   $menulink =  {  href   =>'/adm/menu',
                                   title  =>'Go to main menu',
                                   target =>'_top',
                                   text   =>$description,
                                   no_mt  =>$no_mt_descr, };
                   if($last) {
                       #$last set, so we have some crumbs
                       unshift(@Crumbs,$menulink);
                   } else {
                       #only menulink crumb present
                       $last = $menulink;
                   }
             }              }
         }          }
         my $links = join "",           my $links = join "", 
Removed from v.1.252  
changed lines
  Added in v.1.253.2.2

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