[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