loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.97, 2004/11/19 20:17:52
+version 1.99, 2004/11/23 16:04:33
  Line 904  sub crumbs {
      $output.='<font size="'.$size.'">'.$prefix.'/';
      if ($ENV{'user.adv'}) {
  	my $path=$prefix.'/';
- 	foreach (split('/',$uri)) {
+ 	foreach my $dir (split('/',$uri)) {
- 	    unless ($_) { next; }
+             if (! $dir) { next; }
- 	    $path.=$_;
+             $path .= $dir;
  	    unless ($path eq $uri) { $path.='/'; }
- 	    my $linkpath=$path;
+             my $linkpath = &Apache::loncommon::escape_single($path);
- 	    if ($form) {
+             if ($form) {
- 		my $escaped_path = &Apache::loncommon::escape_single($path);
+ 		$linkpath=
- 		$linkpath="javascript:$form.action='$escaped_path';$form.submit();";
+                     qq{javascript:$form.action='$linkpath';$form.submit();};
- 	    }
+             }
- 	    my $escaped_linkpath = &Apache::loncommon::escape_single($linkpath);
+             if ($target) {
- 	    my $escaped_target   = &Apache::loncommon::escape_single($target);
+                 $target = ' target="'.
- 	    $output.='<a href="'.$escaped_linkpath.'"'.($target?' target="'.$escaped_target.'"':'').'>'.$_.'</a>/';
+                     &Apache::loncommon::escape_single($target).'"';
+             }
+ 	    $output.=qq{<a href="$linkpath" $target>$dir</a>/};
  	}
      } else {
  	$output.=$uri;