version 1.41, 2004/01/26 19:55:44
|
version 1.43, 2004/01/29 00:51:06
|
Line 924 sub crumbs {
|
Line 924 sub crumbs {
|
my ($uri,$target,$prefix,$form)=@_; |
my ($uri,$target,$prefix,$form)=@_; |
my $output='<br /><tt><b><font size="+2">'.$prefix.'/'; |
my $output='<br /><tt><b><font size="+2">'.$prefix.'/'; |
if ($ENV{'user.adv'}) { |
if ($ENV{'user.adv'}) { |
my $path=$prefix; |
my $path=$prefix.'/'; |
foreach (split('/',$uri)) { |
foreach (split('/',$uri)) { |
unless ($_) { next; } |
unless ($_) { next; } |
$path.='/'.$_; |
$path.=$_; |
|
unless ($path eq $uri) { $path.='/'; } |
my $linkpath=$path; |
my $linkpath=$path; |
if ($form) { |
if ($form) { |
$linkpath="javascript:$form.action='$path';$form.submit();"; |
$linkpath="javascript:$form.action='$path';$form.submit();"; |