[interchange-cvs] interchange - kwalsh modified code/SystemTag/process.coretag

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sat Sep 15 14:03:33 EDT 2007


User:      kwalsh
Date:      2007-09-15 18:03:32 GMT
Modified:  code/SystemTag process.coretag
Log:
    * Add a .html suffix to process pages if mv_add_dot_html is in effect.

Revision  Changes    Path
1.10      +6 -2      interchange/code/SystemTag/process.coretag


rev 1.10, prev_rev 1.9
Index: process.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/process.coretag,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- process.coretag	9 Aug 2007 03:02:30 -0000	1.9
+++ process.coretag	15 Sep 2007 18:03:32 -0000	1.10
@@ -5,11 +5,11 @@
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.  See the LICENSE file for details.
 # 
-# $Id: process.coretag,v 1.9 2007/08/09 03:02:30 kwalsh Exp $
+# $Id: process.coretag,v 1.10 2007/09/15 18:03:32 kwalsh Exp $
 
 UserTag process             Order     target secure
 UserTag process             addAttr
-UserTag process             Version   $Revision: 1.9 $
+UserTag process             Version   $Revision: 1.10 $
 UserTag process             Routine   <<EOR
 # Returns the href to process the completed order form or do the search.
 sub {
@@ -21,6 +21,10 @@
 	if($opt->{download_name}) {
 		$page .= "/$opt->{download_name}";
 	}
+	elsif ($::Scratch->{mv_add_dot_html} || $opt->{add_dot_html}) {
+		$page .= '.html' unless $page =~ m{(?:/|\.html?)$};
+	}
+::logGlobal("DEBUG: page=$page");
 	my $url;
 	if($secure) {
 		$url = $Vend::Cfg->{SecurePostURL} || $Vend::Cfg->{SecureURL};








More information about the interchange-cvs mailing list