elsif (s/^( $iqtyrex ) \s* ([a-z ]+) \s+ //xo) {
my ($qty,$spec) = ($1,$2);
$debugf->("VALUE COMMOD $qty '$spec'");
+ expected_error("Capacity specification must start with".
+ " ship size or amount with units")
+ if $first_term;
$commodsth ||=
$dbh->prepare("SELECT commodname,unitmass,unitvolume
FROM commods WHERE commodname LIKE ?");