diff options
author | ivan <ivan> | 2008-07-18 22:29:09 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-07-18 22:29:09 +0000 |
commit | 083d1fef19686b9b72f1b92e72a4fa56a3f392a9 (patch) | |
tree | 09890f80e4b3854e275ebed6375b96124e81f9d0 /FS/FS/UI | |
parent | a7f1c52780340da144f8eab67a8fef8170641963 (diff) |
some random cleanups
Diffstat (limited to 'FS/FS/UI')
-rw-r--r-- | FS/FS/UI/Web.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm index e4a9ac1b8..98d812d5e 100644 --- a/FS/FS/UI/Web.pm +++ b/FS/FS/UI/Web.pm @@ -332,8 +332,8 @@ setting is supplied, the <B>cust-fields</B> configuration value. =cut sub cust_fields { - my $svc_x = shift; - warn "FS::UI::Web::cust_fields called for $svc_x ". + my $record = shift; + warn "FS::UI::Web::cust_fields called for $record ". "(cust_fields: @cust_fields)" if $DEBUG > 1; @@ -342,12 +342,12 @@ sub cust_fields { my $seen_unlinked = 0; map { - if ( $svc_x->custnum ) { - warn " $svc_x -> $_" + if ( $record->custnum ) { + warn " $record -> $_" if $DEBUG > 1; - $svc_x->$_(@_); + $record->$_(@_); } else { - warn " ($svc_x unlinked)" + warn " ($record unlinked)" if $DEBUG > 1; $seen_unlinked++ ? '' : '(unlinked)'; } |