)
)
END
-
+
my $where_event = join(' OR ', map {
my $eventtable = $_;
my $extra_sql = ( scalar(%search) ? ' AND ' : ' WHERE ' ).
"( $where_pkg OR $where_event )";
-
+
my @cust_main;
if ( @ARGV ) {
@cust_main = map { qsearchs('cust_main', { custnum => $_, %search } ) } @ARGV
}
- my($cust_main,%saw);
- foreach $cust_main ( @cust_main ) {
+ foreach my $cust_main ( @cust_main ) {
if ( $opt{'m'} ) {
'secure' => 'Y',
};
my $error = $queue->insert(
- 'custnum' => $cust_main->custnum,
+ 'custnum' => $cust_main->custnum,
'time' => $time,
'invoice_time' => $invoice_time,
'check_freq' => $check_freq,
);
}
-
+
}
}