[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