+ $$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 @tmbds= ( 'in Top fifth of list',
+ 'in 2nd fifth of the list',
+ 'in Middle fifth of the list',
+ 'in 2nd-bottom fifth of list',
+ 'in Bottom fifth of the list');
+ my $tmbi= ($inpic+0.5)*$#tmbs/$maxpic;
+ my $desc= (sprintf "%s is under %s,".
+ " commodity %d of %d;".
+ " i.e. %s or %s",
+ $f->{'commodname'},
+ $classinfo->{'commodclass'},
+ $inpic, $maxpic,
+ $tmbs[$tmbi], $tmbds[$tmbi]);
+ $$todo->{'posinclass'}=
+ "<div class=mouseover title=\"$desc\">$tmbs[$tmbi]</div>";
+ }
+ }