[interchange-cvs] interchange - racke modified 2 files

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Thu Sep 4 09:43:00 EDT 2003


User:      racke
Date:      2003-09-04 12:43:03 GMT
Modified:  .        MANIFEST
Added:     dist/etc/jobs/merchandising topsellers
Log:
added job to automatically calculate topsellers

Revision  Changes    Path
2.118     +1 -0      interchange/MANIFEST


rev 2.118, prev_rev 2.117
Index: MANIFEST
===================================================================
RCS file: /anon_cvs/repository/interchange/MANIFEST,v
retrieving revision 2.117
retrieving revision 2.118
diff -u -r2.117 -r2.118
--- MANIFEST	24 Jul 2003 18:04:37 -0000	2.117
+++ MANIFEST	4 Sep 2003 12:42:55 -0000	2.118
@@ -263,6 +263,7 @@
 dist/error.log
 dist/etc/.empty
 dist/etc/jobs/i18n/update_locales
+dist/etc/jobs/merchandising/topsellers
 dist/foundation/backup/.empty
 dist/foundation/catalog.cfg
 dist/foundation/config/additional_fields



1.1                  interchange/dist/etc/jobs/merchandising/topsellers


rev 1.1, prev_rev 1.0
Index: topsellers
===================================================================
[perl tables="merchandising orderline transactions"]
my (%count, $order_number, $last_order_number, $order_state);
my $set = $Db{orderline}->query("select sku,quantity,order_number from orderline order by order_number");

for (@$set) {
    $order_number = $_->[2];
	if ($last_order_number ne $order_number) {
		$order_state = $Tag->data('transactions', 'status', $order_number);
		$last_order_number = $order_number;
	}	
	# don't count unverified orders
	next unless ($order_state eq 'shipped' || $order_state eq 'partial');
    $count{$_->[0]} += $_->[1];
}
my $db = $Db{merchandising};
for (keys %count) {
    $db->set_field($_, 'times_ordered', $count{$_});
}
return;
[/perl]






More information about the interchange-cvs mailing list