+ $$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();
+ $$todo->{'posinclass'}=
+ sprintf "(%s %d/%d)",
+ $classinfo->{'commodclass'},
+ $f->{'posinclass'},
+ $classinfo->{'maxposinclass'}
+ if $classinfo->{'maxposinclass'} > 9;
+ }