4 <% $cgi->redirect($p. "search/vend_bill.html") %>
9 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
12 my($query) = $cgi->keywords;
13 $query =~ /^(\d+)$/ || die "Illegal vendbillnum";
16 my $vend_bill = qsearchs('vend_bill',{'vendbillnum'=>$vendbillnum});
18 my $error = $vend_bill->delete;