[interchange-cvs] interchange - racke modified lib/Vend/Track.pm

[interchange-core@interchange.redhat.com]

User:      racke
Date:      2001-09-11 10:14:25 GMT
Modified:  lib/Vend Tag: LINUXIA Track.pm
Log:
merged changes 1.5 vs 1.6

Revision  Changes    Path
No                   revision



No                   revision



1.3.4.3   +13 -4     interchange/lib/Vend/Track.pm


rev 1.3.4.3, prev_rev 1.3.4.2
Index: Track.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Track.pm,v
retrieving revision 1.3.4.2
retrieving revision 1.3.4.3
diff -u -r1.3.4.2 -r1.3.4.3
--- Track.pm	2001/09/11 10:12:07	1.3.4.2
+++ Track.pm	2001/09/11 10:14:25	1.3.4.3
@@ -1,6 +1,6 @@
 # Vend::Track - Interchange User Tracking
 #
-# $Id: Track.pm,v 1.3.4.2 2001/09/11 10:12:07 racke Exp $
+# $Id: Track.pm,v 1.3.4.3 2001/09/11 10:14:25 racke Exp $
 #
 # Copyright (C) 2000 by Stefan Hornburg <racke@linuxia.de>
 #
@@ -35,7 +35,7 @@
 require Exporter;
 
 use vars qw($VERSION);
-$VERSION = substr(q$Revision: 1.3.4.2 $, 10);
+$VERSION = substr(q$Revision: 1.3.4.3 $, 10);
 
 @ISA = qw(Exporter);
 
@@ -92,8 +92,17 @@
 
 sub view_page {
 	my ($self, $page) = @_;
+	my @params;
 
-	push (@{$self->{actions}}, ['VIEWPAGE', {page => $page}]);
+	if (exists $Vend::Cfg->{TrackPageParam}->{$page}) {
+		for (split /,/, $Vend::Cfg->{TrackPageParam}->{$page}) {
+			next if $_ eq 'mv_credit_card_number' || $_ eq 'mv_credit_card_cvv2';
+			if ($CGI::values{$_} =~ /\S/) {
+				push(@params, "$_=$CGI::values{$_}");
+			}
+		}
+	}
+	push (@{$self->{actions}}, ['VIEWPAGE', {page => $page, params => \@params}]);
 }
 
 sub view_product {
@@ -119,7 +128,7 @@
 											   $_->{'quantity'},
 											   $_->{'price'})}
 									 @{$href->{'items'}});},
-			   'VIEWPAGE' => sub {my $href = shift; $href->{'page'}},
+			   'VIEWPAGE' => sub {my $href = shift; join ("\t", $href->{'page'}, @{$href->{'params'}})},
 			   'VIEWPROD' => sub {my $href = shift; join ("\t", $href->{'code'}, $href->{'description'}, $href->{'category'});});
 
 sub header {