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

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Wed Aug 14 23:00:00 2002


User:      heins
Date:      2002-08-15 02:59:20 GMT
Modified:  code/UserTag history_scan.tag
Log:
* Escape characters in past URLs because they were translated coming in.

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


rev 1.6, prev_rev 1.5
Index: history_scan.tag
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/code/UserTag/history_scan.tag,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- history_scan.tag	2 Aug 2002 03:42:24 -0000	1.5
+++ history_scan.tag	15 Aug 2002 02:59:20 -0000	1.6
@@ -14,7 +14,6 @@
 	$exclude =3D qr/$exclude/ if $exclude;
 	for (my $i =3D $#$ref - abs($opt->{count}); $i >=3D 0; $i--) {
 		next if $ref->[$i][0] eq 'expired';
-		#Log("checking $ref->[$i][0] for $exclude");
 		if ($exclude and $ref->[$i][0] =3D~ $exclude) {
 			next;
 		}
@@ -35,6 +34,7 @@
 		$form .=3D "\n$_=3D";
 		$form .=3D join("\n$_=3D", split /\0/, $cgi->{$_});
 	}
+	$href =3D Vend::Util::escape_chars_url($href);
 	return $Tag->area( { href =3D> $href, form =3D> $form} );
 }
 EOR