- my $dsth = dbh->prepare($dsql) or die $DBI::errstr;
- $dsth->execute($last_srv_date, $serviceid.'_IN', $serviceid.'_OUT')
- or die $dsth->errstr;
+ my $dsth = dbh->prepare($dsql) or die $DBI::errstr;
+ warn "$dsql $last_srv_date ${serviceid}_IN ${serviceid}_OUT\n"
+ if $DEBUG;
+ $dsth->execute($last_srv_date, $serviceid.'_IN', $serviceid.'_OUT')
+ or die $dsth->errstr;