summaryrefslogtreecommitdiff
path: root/FS/FS/banned_pay.pm
diff options
context:
space:
mode:
Diffstat (limited to 'FS/FS/banned_pay.pm')
-rw-r--r--FS/FS/banned_pay.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/banned_pay.pm b/FS/FS/banned_pay.pm
index a862028..3379653 100644
--- a/FS/FS/banned_pay.pm
+++ b/FS/FS/banned_pay.pm
@@ -4,6 +4,7 @@ use strict;
use base qw( FS::otaker_Mixin FS::Record );
use FS::Record qw( qsearch qsearchs );
use FS::UID qw( getotaker );
+use FS::CurrentUser;
=head1 NAME
@@ -41,7 +42,7 @@ supported:
=item _date - specified as a UNIX timestamp; see L<perlfunc/"time">. Also see
L<Time::Local> and L<Date::Parse> for conversion functions.
-=item otaker - order taker (assigned automatically, see L<FS::UID>)
+=item usernum - order taker (assigned automatically, see L<FS::access_user>)
=item reason - reason (text)
@@ -115,7 +116,7 @@ sub check {
$self->_date(time) unless $self->_date;
- $self->otaker(getotaker) unless $self->otaker;
+ $self->usernum($FS::CurrentUser::CurrentUser->usernum) unless $self->usernum;
$self->SUPER::check;
}