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

[interchange-cvs at icdevgroup.org]

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