[interchange-cvs] interchange - kwalsh modified
code/SystemTag/process.coretag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Aug 8 23:02:30 EDT 2007
User: kwalsh
Date: 2007-08-09 03:02:30 GMT
Modified: code/SystemTag process.coretag
Log:
* Removed the extra "?" character from the front of the URI argument
names.
* Lower-cased the tag's "target" attribute name that's output when
the [process] tag is called with a "target" parameter.
Revision Changes Path
1.9 +6 -6 interchange/code/SystemTag/process.coretag
rev 1.9, prev_rev 1.8
Index: process.coretag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/process.coretag,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- process.coretag 30 Mar 2007 23:40:49 -0000 1.8
+++ process.coretag 9 Aug 2007 03:02:30 -0000 1.9
@@ -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.8 2007/03/30 23:40:49 pajamian Exp $
+# $Id: process.coretag,v 1.9 2007/08/09 03:02:30 kwalsh Exp $
UserTag process Order target secure
UserTag process addAttr
-UserTag process Version $Revision: 1.8 $
+UserTag process Version $Revision: 1.9 $
UserTag process Routine <<EOR
# Returns the href to process the completed order form or do the search.
sub {
@@ -32,11 +32,11 @@
$url .= $page;
if($Global::TolerateGet and ! $opt->{no_session}) {
my @args;
- push @args, "?$::VN->{mv_session_id}=$Vend::SessionID"
+ push @args, "$::VN->{mv_session_id}=$Vend::SessionID"
unless $::Scratch->{no_session_id};
- push @args, "?$::VN->{mv_pc}=" . ++$Vend::Session->{pageCount}
+ push @args, "$::VN->{mv_pc}=" . ++$Vend::Session->{pageCount}
unless $::Scratch->{no_count};
- push @args, "?$::VN->{mv_cat}=" . ++$Vend::Cat
+ push @args, "$::VN->{mv_cat}=" . ++$Vend::Cat
if $Vend::VirtualCat;
if(@args) {
$url .= '?';
@@ -44,6 +44,6 @@
}
}
return $url unless $target;
- return qq{$url" TARGET="$target};
+ return qq{$url" target="$target};
}
EOR
More information about the interchange-cvs
mailing list