chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix genmarketdata output file format
[ypp-sc-tools.db-live.git]
/
pctb
/
yppsc-commod-processor
diff --git
a/pctb/yppsc-commod-processor
b/pctb/yppsc-commod-processor
index 5782a5aaa65d515ebeb961f6bd67b1cdf80bbbde..0f2545201d9de876f9ee5c1d88ff1458724f15a3 100755
(executable)
--- 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;
$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};
$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;
if (!defined $stallix) {
push @stallmap, $stall;
$stallmap{$stall}= $stallix= @stallmap;
+#print STDERR "STALL DEF $stallix $stall\n";
}
my $qty= $cs->{Qty};
$qty =~ s/^\>\s*//;
}
my $qty= $cs->{Qty};
$qty =~ s/^\>\s*//;