[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