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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.251 and 1.253.2.1

version 1.251, 2009/11/30 06:32:26 version 1.253.2.1, 2009/12/07 17:30:01
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 1130  sub r_print { Line 1136  sub r_print {
 # ------------------------------------------------------- Puts directory header  # ------------------------------------------------------- Puts directory header
   
 sub crumbs {  sub crumbs {
     my ($uri,$target,$prefix,$form,$size,$noformat,$skiplast)=@_;      my ($uri,$target,$prefix,$form,$skiplast)=@_;
     if (! defined($size)) {  
         $size = '+2';  
     }  
     if ($target) {      if ($target) {
         $target = ' target="'.          $target = ' target="'.
                   &Apache::loncommon::escape_single($target).'"';                    &Apache::loncommon::escape_single($target).'"';
     }      }
     my $output='';      my $output='<span class="LC_filename">';
     unless ($noformat) { $output.='<br /><tt><b>'; }      $output.=$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; }
             $path .= $dir;              $path .= $dir;
     if ($path eq $uri) {              if ($path eq $uri) {
  if ($skiplast) {                  if ($skiplast) {
     $output.=$dir;                      $output.=$dir;
                     last;                      last;
  }                   } 
     } else {              } else {
  $path.='/';                   $path.='/'; 
     }                  }
             my $href_path = &HTML::Entities::encode($path,'<>&"');              my $href_path = &HTML::Entities::encode($path,'<>&"');
     &Apache::loncommon::inhibit_menu_check(\$href_path);              &Apache::loncommon::inhibit_menu_check(\$href_path);
     if ($form) {              if ($form) {
         my $href = 'javascript:'.$form.".action='".$href_path."';".$form.'.submit();';                  my $href = 'javascript:'.$form.".action='".$href_path."';".$form.'.submit();';
         $output.=qq{<a href="$href" $target>$dir</a>/};                  $output.=qq{<a href="$href"$target>$dir</a>/};
     } else {              } else {
         $output.=qq{<a href="$href_path" $target>$dir</a>/};                  $output.=qq{<a href="$href_path"$target>$dir</a>/};
     }              }
  }          }
     } else {      } else {
  foreach my $dir (split('/',$uri)) {          foreach my $dir (split('/',$uri)) {
             if (! $dir) { next; }              if (! $dir) { next; }
     $output.=$dir.'/';              $output.=$dir.'/';
  }          }
     }      }
     if ($uri !~ m|/$|) { $output=~s|/$||; }      if ($uri !~ m|/$|) { $output=~s|/$||; }
     return $output.'</font>'.($noformat?'':'</b></tt><br />');      $output.='</span>';
   
       return $output;
 }  }
   
 # --------------------- A function that generates a window for the spellchecker  # --------------------- A function that generates a window for the spellchecker
Line 1374  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';              unless ($menulink eq '_nomenu') {
             my $no_mt_descr = 0;                  my $description = 'Menu';
             if (exists($env{'request.course.id'}) &&                   my $no_mt_descr = 0;
                 $env{'request.course.id'} ne '') {                  $menulink =  {  href   =>'/adm/menu',
                 $description =                                   title  =>'Go to main menu',
                     $env{'course.'.$env{'request.course.id'}.'.description'};                                  target =>'_top',
                 $no_mt_descr = 1;                                  text   =>$description,
                                   no_mt  =>$no_mt_descr, };
             }              }
             $menulink =  {  href   =>'/adm/menu',  
                             title  =>'Go to main menu',  
                             target =>'_top',  
                             text   =>$description,  
                             no_mt  =>$no_mt_descr, };  
             if($last) {              if($last) {
                 #$last set, so we have some crumbs                  #$last set, so we have some crumbs
                 unshift(@Crumbs,$menulink);                  unshift(@Crumbs,$menulink);
Removed from v.1.251  
changed lines
  Added in v.1.253.2.1

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