[interchange-cvs] interchange - jon modified code/UserTag/history_scan.tag

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2002-03-21 18:08:36 GMT
Modified:  code/UserTag history_scan.tag
Log:
Re-add line that got lost in the tag breakout.

Revision  Changes    Path
1.2       +1 -0      interchange/code/UserTag/history_scan.tag


rev 1.2, prev_rev 1.1
Index: history_scan.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/history_scan.tag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- history_scan.tag	29 Jan 2002 05:52:42 -0000	1.1
+++ history_scan.tag	21 Mar 2002 18:08:36 -0000	1.2
@@ -13,6 +13,7 @@
 	my ($hist, $href, $cgi);
 	$exclude = qr/$exclude/ if $exclude;
 	for(my $i = $#$ref; $i >= 0; $i--) {
+		next if $ref->[$i][0] eq 'expired';
 		#Log("checking $ref->[$i][0] for $exclude");
 		if ($exclude and $ref->[$i][0] =~ $exclude) {
 			next;