+ $$todo->{'posinclass'}= '';
+ if ($f->{'posinclass'}) {
+ my $findclass= $dbh->prepare(<<END);
+SELECT commodclass, maxposinclass FROM commodclasses WHERE commodclassid = ?
+END
+ $findclass->execute($f->{'commodclassid'});
+ my $classinfo= $findclass->fetchrow_hashref();
+ if ($classinfo->{'maxposinclass'} >= 8) {
+ my $maxpic= $classinfo->{'maxposinclass'};
+ my $inpic= $f->{'posinclass'};
+ my @tmbs= qw(TT T M B BB);
+ my $tmbi= ($inpic+0.5)*$#tmbs/$maxpic;
+ my $desc= (sprintf "%s is under %s,".
+ " commodity %d of %d",
+ $f->{'commodname'},
+ $classinfo->{'commodclass'},
+ $inpic, $maxpic);
+ $$todo->{'posinclass'}=
+ "<div class=mouseover title=\"$desc\">$tmbs[$tmbi]</div>";
+ }
+ }