[Date Prev][Date Next][Thread Prev][Thread Next][Interchange by date
][Interchange by thread
]
Re: [ic] usertrack questions
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)
_______________________________________________
interchange-users mailing list
interchange-users@interchange.redhat.com
http://interchange.redhat.com/mailman/listinfo/interchange-users