Displaying 1 result from an estimated 1 matches for "chk_cut".
Did you mean:
chk_acct
2006 Mar 01
0
perl AGI won't run from extensions.conf
...;>/home/richard/TEST.txt") or die "Can't open"
print TEST "CONTNO " . $contno . "\n";
close (TEST);
use DBI;
my $dbh = DBI->connect("DBI:mysql:database=accounting;192.168.0.1",$user,$pass);
my $q = "SELECT amount, INV_RCVD, CHK_CUT, CHK_NO
FROM payable p
WHERE contno = ?";
my $sth = $dbh->prepare($q);
$sth->execute($contno);
my ($amount, $rcvd, $cut, $cno) = $sth->fetchrow_array;
if ($cno > 1) {
$agi->exec('SayDigits', $amount);
return $amount,...