|
version 1.33, 2003/10/17 19:56:13
|
version 1.35, 2003/12/29 17:11:53
|
|
Line 835 sub Close_PrgWin {
|
Line 835 sub Close_PrgWin {
|
| $r->rflush(); |
$r->rflush(); |
| } |
} |
| |
|
| |
|
| |
# ------------------------------------------------------- Puts directory header |
| |
|
| |
sub crumbs { |
| |
my ($uri,$target,$prefix)=@_; |
| |
my $output='<br /><tt><b><font size="+2">'.$prefix.'/'; |
| |
if ($ENV{'user.adv'}) { |
| |
my $path=$prefix.'/'; |
| |
foreach (split('/',$uri)) { |
| |
unless ($_) { next; } |
| |
$path.=$_.'/'; |
| |
$output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/'; |
| |
} |
| |
} else { |
| |
$output.=$uri; |
| |
} |
| |
return $output.'</font></b></tt><br />'; |
| |
} |
| |
|
| |
|
| 1; |
1; |
| |
|
| __END__ |
__END__ |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhtmlcommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface