[interchange-cvs] interchange - heins modified lib/Vend/Interpolate.pm

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Wed Sep 10 13:01:00 EDT 2003


User:      heins
Date:      2003-09-10 16:01:15 GMT
Modified:  lib/Vend Interpolate.pm
Log:
* Never issue a session ID on timed-build URL.

Revision  Changes    Path
2.190     +7 -2      interchange/lib/Vend/Interpolate.pm


rev 2.190, prev_rev 2.189
Index: Interpolate.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Interpolate.pm,v
retrieving revision 2.189
retrieving revision 2.190
diff -u -r2.189 -r2.190
--- Interpolate.pm	8 Aug 2003 20:49:59 -0000	2.189
+++ Interpolate.pm	10 Sep 2003 16:01:15 -0000	2.190
@@ -1,6 +1,6 @@
 # Vend::Interpolate - Interpret Interchange tags
 # 
-# $Id: Interpolate.pm,v 2.189 2003/08/08 20:49:59 jon Exp $
+# $Id: Interpolate.pm,v 2.190 2003/09/10 16:01:15 mheins Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1996-2002 Red Hat, Inc.
@@ -28,7 +28,7 @@
 require Exporter;
 @ISA = qw(Exporter);
 
-$VERSION = substr(q$Revision: 2.189 $, 10);
+$VERSION = substr(q$Revision: 2.190 $, 10);
 
 @EXPORT = qw (
 
@@ -1197,6 +1197,8 @@
 $Filter{upper} = $Filter{uc};
 $Filter{lower} = $Filter{lc};
 $Filter{entities} = $Filter{encode_entities};
+$Filter{ee} = $Filter{encode_entities};
+$Filter{de} = $Filter{decode_entities};
 $Filter{e} = $Filter{encode_entities};
 
 sub input_filter_do {
@@ -5250,6 +5252,9 @@
 					)
 				);
 	}
+
+	local ($Scratch->{mv_no_session_id});
+	$Scratch->{mv_no_session_id} = 1;
 
 	if($opt->{auto}) {
 		$opt->{login} =    1 unless defined $opt->{login};







More information about the interchange-cvs mailing list