[interchange-cvs] interchange - jon modified
code/UserTag/history_scan.tag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Thu Mar 25 12:03:54 EST 2004
User: jon
Date: 2004-03-25 17:03:54 GMT
Modified: code/UserTag history_scan.tag
Log:
Make pageonly=1 option work correctly when there's no History saved in
the user's session.
Revision Changes Path
1.13 +5 -1 interchange/code/UserTag/history_scan.tag
rev 1.13, prev_rev 1.12
Index: history_scan.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/history_scan.tag,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -u -r1.12 -r1.13
--- history_scan.tag 10 Sep 2003 15:46:47 -0000 1.12
+++ history_scan.tag 25 Mar 2004 17:03:54 -0000 1.13
@@ -70,7 +70,11 @@
sub {
my ($find, $exclude, $default, $opt) = @_;
$default ||= $Config->{SpecialPage}{catalog};
- my $ref = $Vend::Session->{History} or return $Tag->area($default);
+ my $ref = $Vend::Session->{History};
+ unless ($ref) {
+ return $default if $opt->{pageonly};
+ return $Tag->area($default);
+ }
my ($hist, $href, $cgi);
$exclude = qr/$exclude/ if $exclude;
for (my $i = $#$ref - abs($opt->{count}); $i >= 0; $i--) {
More information about the interchange-cvs
mailing list