$query = qq|SELECT id, description FROM business ORDER BY id|;
$form->{all_business} = selectall_hashref_query($form, $dbh, $query);
- # get tax zones
- $query = qq|SELECT id, description FROM tax_zones|;
- $form->{TAXZONE} = selectall_hashref_query($form, $dbh, $query);
-
# get shipto address
$query =
qq|SELECT shipto_id, shiptoname, shiptodepartment_1 | .
$form->{l_invnumber} = $form->{l_ordnumber} = $form->{l_quonumber} = "";
}
+ if ($form->{obsolete} eq "Y") {
+ $where .= qq| AND obsolete|;
+ } elsif ($form->{obsolete} eq "N") {
+ $where .= qq| AND NOT obsolete|;
+ }
+
+ if ($form->{business_id}) {
+ $where .= qq| AND (business_id = ?)|;
+ push(@values, conv_i($form->{business_id}));
+ }
+
my $query =
qq|SELECT ct.*, b.description AS business | .
qq|FROM $cv ct | .