$desc.= (sprintf ", commodity %d of %d",
$incl, $maxpic);
if ($classinfo->{'maxposinclass'} >= 8) {
- my @tmbs= qw(tt t m b bb);
+ my @tmbs= qw(0 1 2 3 4 5 6 7 8 9);
my $tmbi= ($incl+0.5)*$#tmbs/$maxpic;
- $abbrev.= " ".$tmbs[$tmbi];
+ $abbrev.= " ".$tmbs[$tmbi]." ";
}
}
$$todo->{'posinclass'}=