[EMAIL PROTECTED] wrote:
> I am thinking my issue may be in my delete statement, here is the delete
> portion oof my code.
> print LOG "$datetime Attempting to delete $sequence from notify table...\n"
> if $debug > 2;
> $rows_deleted = 0;
> my $rows_deleted = $dbh->Sql(q{
> DELETE FROM "ABCD"."AC_NOTIFY"
> WHERE sequence = ?
> }, undef, $sequence ) or die $dbh->errstr;
> $dbh->Sql(q{commit});
> print LOG "$datetime Deleting $sequence - Rows Deleted :
>$rows_deleted\n" if $debug > 2;
> print "Done doing delete\n";
> }
> $notify_sth->finish();
> $dbh->close();
>
>
> In the log this writes to I get.
> 2005-09-09 08:02:41 Attempting to delete 84055 from notify table...
> 2005-09-09 08:02:41 Deleting 84055 - Rows Deleted : 1
> I never see it mention that it is done deleting
You don't specify the LOG filehandle for the "Done..." print statement,
so you'll never see it. But it is also directly behind the "Deleting..."
print without any action in between, so I would assume you would see it.
BTW, this code looks like it is using DBI and not Win32::ODBC.
Cheers,
-Jan
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
