add customer fields option with agent, display_custnum, status and name, RT#73721

[freeside.git] / FS / FS / acct_snarf.pm

diff --git a/FS/FS/acct_snarf.pm b/FS/FS/acct_snarf.pm
index 480a632..40d21d0 100644 (file)
--- a/FS/FS/acct_snarf.pm
+++ b/FS/FS/acct_snarf.pm
@@ -1,13 +1,11 @@
 package FS::acct_snarf;
+use base qw(FS::Record);
 
 use strict;
-use vars qw( @ISA );
 use Tie::IxHash;
 use FS::Record qw( qsearchs );
 use FS::cust_svc;
 
-@ISA = qw( FS::Record );
-
 =head1 NAME
 
 FS::acct_snarf - Object methods for acct_snarf records
@@ -142,7 +140,7 @@ sub check {
     || $self->ut_alphan('protocol')
     || $self->ut_textn('username')
     || $self->ut_numbern('check_freq')
-    || $self->ut_enum('leave', [ '', 'Y' ])
+    || $self->ut_enum('leavemail', [ '', 'Y' ])
     || $self->ut_enum('apop', [ '', 'Y' ])
     || $self->ut_enum('tls', [ '', 'Y' ])
     || $self->ut_alphan('mailbox')
@@ -195,9 +193,9 @@ sub cgp_hashref {
     'domain'   => $self->machine,
     'password' => $self->_password,
     'period'   => $self->check_freq.'s',
-    'APOP'     => ( $self->apop  eq 'Y' ? 'YES' : 'NO' ),
-    'TLS'      => ( $self->tls   eq 'Y' ? 'YES' : 'NO' ),
-    'Leave'    => ( $self->leave eq 'Y' ? 'YES' : 'NO' ), #XXX leave??
+    'APOP'     => ( $self->apop      eq 'Y' ? 'YES' : 'NO' ),
+    'TLS'      => ( $self->tls       eq 'Y' ? 'YES' : 'NO' ),
+    'Leave'    => ( $self->leavemail eq 'Y' ? 'YES' : 'NO' ), #XXX leave??
   };
 }