[ic] usertrack questions

[Stefan Hornburg Racke]

Joachim Leidinger <jojo@blackpoint.de> writes:

> Hi list,
> 
> I can see the page name of the UI in my usertrack file. But I want to
> see, which sku did my customer edit/change. What I mean is, I've
> 
> -----------snip--------------
> 20010731        rVsTsP7s:192.168.3.1    jojo     192.168.3.1    
> 996593873       VIEWPAGE=admin/item_edit
> -----------snip--------------
> 
> and i want to see
> 
> -----------snip--------------
> 20010731        rVsTsP7s:192.168.3.1    jojo     192.168.3.1    
> 996593873       VIEWPAGE=admin/item_edit/<sku number>
> -----------snip--------------
> 
> Any tips, helps and suggestions are very welcome!

Changes vs. 4.8.1:

racke@snowflake:~/interchange/dev/lib/Vend$ cvschanges Config.pm Track.pm
Running cvs diff -r 2.2 -r 2.3 Config.pm
Index: Config.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Config.pm,v
retrieving revision 2.2
retrieving revision 2.3
diff -u -r2.2 -r2.3
--- Config.pm	2001/08/01 00:58:49	2.2
+++ Config.pm	2001/08/15 11:55:59	2.3
@@ -1,6 +1,6 @@
 # Vend::Config - Configure Interchange
 #
-# $Id: Config.pm,v 2.2 2001/08/01 00:58:49 heins Exp $
+# $Id: Config.pm,v 2.3 2001/08/15 11:55:59 racke Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -95,7 +95,7 @@
 use Vend::Parse;
 use Vend::Util;
 
-$VERSION = substr(q$Revision: 2.2 $, 10);
+$VERSION = substr(q$Revision: 2.3 $, 10);
 
 my %CDname;
 
@@ -472,6 +472,7 @@
 	['EncryptKey',		 undef,     	     ''],
 	['AsciiTrack',	 	 undef,     	     ''],
 	['TrackFile',	 	 undef,     	     ''],
+	['TrackPageParam',	 'hash',     	     ''],
 	['SalesTax',		 undef,     	     ''],
 	['SalesTaxFunction', undef,     	     ''],
 	['StaticDBM',  	 	 undef,     	     ''],
/usr/bin/cvschanges: Couldn't assign branch for revision "1.3.2.1"
Running cvs diff -r 2.0 -r 2.1 Track.pm
Index: Track.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Track.pm,v
retrieving revision 2.0
retrieving revision 2.1
diff -u -r2.0 -r2.1
--- Track.pm	2001/07/18 02:23:14	2.0
+++ Track.pm	2001/08/15 11:55:59	2.1
@@ -1,6 +1,6 @@
 # Vend::Track - Interchange User Tracking
 #
-# $Id: Track.pm,v 2.0 2001/07/18 02:23:14 jon Exp $
+# $Id: Track.pm,v 2.1 2001/08/15 11:55:59 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: 2.0 $, 10);
+$VERSION = substr(q$Revision: 2.1 $, 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 {


Usage example:
TrackPageParam admin/item mv_data_table,ui_sort_field

Ciao
        Racke

-- 
Racke happily hacks Interchange and maintains Debian packages like Courier.

For projects and other business stuff please refer to COBOLT NetServices
(URL: http://www.cobolt.net; Email: info@cobolt.net; Phone: 0041-1-3884400)