From 5b549365060315270a1028473c12407d286f27d4 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Wed, 10 Jun 2009 01:08:36 +0100
Subject: [PATCH] fix genmarketdata output file format

---
 pctb/yppsc-commod-processor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pctb/yppsc-commod-processor b/pctb/yppsc-commod-processor
index 5782a5a..0f25452 100755
--- a/pctb/yppsc-commod-processor
+++ b/pctb/yppsc-commod-processor
@@ -307,8 +307,8 @@ sub bs_gen_md ($$) {
         $current= $commod{$commod};
 	my $l= bs_p($commod,$bs,$sortmul);
 	next unless @$l;
-#print STDERR "COMMOD $commod @$l\n";
-
+#print STDERR "COMMOD $commod  has ".scalar(@$l)."\n";
+	$o .= writeint($commodmap{$commod});
 	$o .= writeint(scalar @$l);
 	foreach my $cs (@$l) {
 	    $stall= $cs->{Stall};
@@ -316,6 +316,7 @@ sub bs_gen_md ($$) {
 	    if (!defined $stallix) {
 		push @stallmap, $stall;
 		$stallmap{$stall}= $stallix= @stallmap;
+#print STDERR "STALL DEF $stallix $stall\n";
 	    }
 	    my $qty= $cs->{Qty};
 	    $qty =~ s/^\>\s*//;
-- 
2.30.2