[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