X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fcheck_capacitystring;fp=yarrg%2Fweb%2Fcheck_capacitystring;h=a79b6f1ac06f1dffbed02820e33a819a1e31bb29;hp=3c779727ea005d2ce3e6766a59702bbb1c937890;hb=ca34a4bd396774ba8d98df14eb4bba753202d981;hpb=7c001291cf839e1b53ac0ead2a124366149c662f

diff --git a/yarrg/web/check_capacitystring b/yarrg/web/check_capacitystring
index 3c77972..a79b6f1 100644
--- a/yarrg/web/check_capacitystring
+++ b/yarrg/web/check_capacitystring
@@ -88,6 +88,9 @@ my $parse_values= sub {
 	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 ?");