=over 4
-=item eventnum - primary key
+=item eventnum
-=item invnum - invoice (see L<FS::cust_bill>)
+Primary key
-=item eventpart - event definition (see L<FS::part_bill_event>)
+=item invnum
-=item _date - specified as a UNIX timestamp; see L<perlfunc/"time">. Also see
+Invoice (see L<FS::cust_bill>)
+
+=item eventpart
+
+Event definition (see L<FS::part_bill_event>)
+
+=item _date
+
+Specified as a UNIX timestamp; see L<perlfunc/"time">. Also see
L<Time::Local> and L<Date::Parse> for conversion functions.
-=item status - event status: B<done> or B<failed>
+=item status
+
+Event status: B<done> or B<failed>
-=item statustext - additional status detail (i.e. error message)
+=item statustext
+
+Additional status detail (i.e. error message)
=back
sub table { 'cust_bill_event'; }
-sub cust_linked { $_[0]->cust_main_custnum; }
+sub cust_linked { $_[0]->cust_main_custnum || $_[0]->custnum }
sub cust_unlinked_msg {
my $self = shift;
"WARNING: can't find cust_main.custnum ". $self->custnum.
$self->replace($old);
}
-=item search_sql HREF
+=item search_sql_where HASHREF
Class method which returns an SQL WHERE fragment to search for parameters
-specified in HREF. Valid parameters are
+specified in HASHREF. Valid parameters are
=over 4
+
=item agentnum
-=item beginning - an epoch date setting a lower bound for _date values
-=item ending - an epoch date setting a upper bound for _date values
-=item failed - limits the search to failed events if true
-=item payby - requires that the search be JOIN'd to part_bill_event # Bug?
+
+=item beginning
+
+An epoch date setting a lower bound for _date values
+
+=item ending
+
+An epoch date setting a upper bound for _date values
+
+=item failed
+
+Limits the search to failed events if true
+
+=item payby
+
+Requires that the search be JOIN'd to part_bill_event # Bug?
+
=item invnum
-=item currentuser - specifies the user for agent virtualization
+
+=item currentuser
+
+Specifies the user for agent virtualization
+
=back
=cut
-sub search_sql {
+sub search_sql_where {
my ($class, $params) = @_;
my @search = ();
push @search, "cust_bill_event.invnum = '". $params->{invnum}. "'"
if $params->{invnum};
- if ($params->{CurrentUser}) {
- my $access_user = qsearchs('access_user',
- {username => $params->{CurrentUser} }
- );
+ my $currentuser = $params->{currentuser} || $params->{CurrentUser};
+ if ($currentuser) {
+ my $access_user = qsearchs('access_user', { username => $currentuser });
if ($access_user) {
push @search, $access_user->agentnums_sql;
}else{
process_re_X('fax', @_);
}
-use Storable qw(thaw);
use Data::Dumper;
-use MIME::Base64;
sub process_re_X {
my( $method, $job ) = ( shift, shift );
- my $param = thaw(decode_base64(shift));
+ my $param = shift;
warn Dumper($param) if $DEBUG;
re_X(
sub re_X {
my($method, $param, $job) = @_;
- my $where = FS::cust_bill_event->search_sql($param);
+ my $where = FS::cust_bill_event->search_sql_where($param);
$where = " WHERE plan LIKE 'send%'". ( $where ? " AND $where" : "" );
my $from = 'LEFT JOIN part_bill_event USING ( eventpart )'.