diff options
| -rw-r--r-- | FS/bin/freeside-torrus-srvderive | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/FS/bin/freeside-torrus-srvderive b/FS/bin/freeside-torrus-srvderive index 38dfdbbe8..71c1874d9 100644 --- a/FS/bin/freeside-torrus-srvderive +++ b/FS/bin/freeside-torrus-srvderive @@ -92,7 +92,10 @@ MAIN: while (1) { warn "searching for times to add $serviceid\n" if $DEBUG; warn $ssql if $DEBUG > 2; my $sth = dbh->prepare($ssql) or die $DBI::errstr; #better recovery? + + warn "executing search" if $DEBUG; $sth->execute($serviceid, $serviceid) or die $sth->errstr; + warn "search executed; checking results" if $DEBUG; my $prev = 0; while ( my $row = $sth->fetchrow_arrayref ) { |