archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

(UpdatePageTrail): Eliminate duplicates.

Browse Source
This commit is contained in:
Alex Schroeder
2004-10-04 20:41:01 +00:00
parent 6b1b6ad79a
commit 0551bf52a6
1 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
modules/page-trail.pl
View File

@@ -20,7 +20,7 @@ use vars qw($PageTrailLength);
$PageTrailLength = 10;
$ModulesDescription .= '<p>$Id: page-trail.pl,v 1.2 2004/01/30 21:35:44 as Exp $</p>';
$ModulesDescription .= '<p>$Id: page-trail.pl,v 1.3 2004/10/04 20:41:01 as Exp $</p>';
$CookieParameters{trail} = '';
$InvisibleCookieParameters{trail} = 1;
@@ -38,10 +38,13 @@ sub NewPageTrailBrowsePage {
sub UpdatePageTrail {
my $id = shift;
my $US = "\x1f";
@PageTrail = split(/$US/, GetParam('trail', ''));
unshift(@PageTrail, $id);
@PageTrail = @PageTrail[0..$PageTrailLength-1] if $PageTrail[$PageTrailLength];
SetParam('trail', join($US, @PageTrail));
my @trail = ($id);
foreach my $page (split(/$US/, GetParam('trail', ''))) {
push(@trail, $page) unless $page eq $id;
}
@trail = @trail[0..$PageTrailLength-1] if $trail[$PageTrailLength];
SetParam('trail', join($US, @trail));
@PageTrail = @trail;
}
*OldPageTrailGetGotoBar = *GetGotoBar;