[interchange-cvs] interchange - racke modified
dist/etc/jobs/merchandising/topsellers
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Sep 10 13:04:00 EDT 2003
User: racke
Date: 2003-09-10 16:04:39 GMT
Modified: dist/etc/jobs/merchandising topsellers
Log:
exclude discontinued products
Revision Changes Path
1.2 +6 -2 interchange/dist/etc/jobs/merchandising/topsellers
rev 1.2, prev_rev 1.1
Index: topsellers
===================================================================
RCS file: /anon_cvs/repository/interchange/dist/etc/jobs/merchandising/topsellers,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- topsellers 4 Sep 2003 12:43:03 -0000 1.1
+++ topsellers 10 Sep 2003 16:04:38 -0000 1.2
@@ -1,4 +1,4 @@
-[perl tables="merchandising orderline transactions"]
+[perl tables="__ProductFiles_0__ 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");
@@ -14,7 +14,11 @@
}
my $db = $Db{merchandising};
for (keys %count) {
- $db->set_field($_, 'times_ordered', $count{$_});
+ if ($Tag->data($Config->{ProductFiles}[0], 'sku', $_)) {
+ $db->set_field($_, 'times_ordered', $count{$_});
+ } else {
+ $db->set_field($_, 'times_ordered', 0);
+ }
}
return;
[/perl]
More information about the interchange-cvs
mailing list