- my $query = $cgi->keywords;
- $query =~ /^(\d+)$/;
- $part_svc=qsearchs('part_svc',{'svcpart'=>$1});
+ my($query) = $cgi->keywords;
+ $query =~ /^(\d+)$/ or die "malformed query: $query";
+ $part_svc=qsearchs('part_svc', { 'svcpart'=>$1 } )
+ or die "unknown svcpart: $1";