$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};
if (!defined $stallix) {
push @stallmap, $stall;
$stallmap{$stall}= $stallix= @stallmap;
+#print STDERR "STALL DEF $stallix $stall\n";
}
my $qty= $cs->{Qty};
$qty =~ s/^\>\s*//;