diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/svc_Common.pm | 4 | ||||
| -rw-r--r-- | FS/FS/svc_acct.pm | 10 |
2 files changed, 7 insertions, 7 deletions
diff --git a/FS/FS/svc_Common.pm b/FS/FS/svc_Common.pm index fdb4132c4..17942c7ec 100644 --- a/FS/FS/svc_Common.pm +++ b/FS/FS/svc_Common.pm @@ -72,7 +72,7 @@ sub new { } #empty default -sub _fieldhandlers { (); } +sub _fieldhandlers { {}; } sub virtual_fields { @@ -475,7 +475,7 @@ sub setx { my $self = shift; my $x = shift; my @x = ref($x) ? @$x : ($x); - my $coderef = scalar(@_) ? shift : {}; + my $coderef = scalar(@_) ? shift : $self->_fieldhandlers; my $error = $self->ut_numbern('svcnum') diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index e7d2b37b6..c50dfd540 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -192,11 +192,11 @@ sub _fieldhandlers { { #false laziness with edit/svc_acct.cgi 'usergroup' => sub { - my $usergroup = shift; - if ( ref($usergroup) eq 'ARRAY' ) { - $usergroup; - } elsif ( length($usergroup) ) { - [ split(/\s*,\s*/, $usergroup) ]; + my( $self, $groups ) = @_; + if ( ref($groups) eq 'ARRAY' ) { + $groups; + } elsif ( length($groups) ) { + [ split(/\s*,\s*/, $groups) ]; } else { []; } |