X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Facct_snarf.pm;h=40d21d0f22d44a9727fbf89f27bbd5a4b2a74b91;hp=480a632bb42b9560815b034b121d1f8181c3333e;hb=5372897f367498972c96f5494e142e6e11b29eb8;hpb=96bcb3256650a35d57c2ac487e990b78a2f88a74

diff --git a/FS/FS/acct_snarf.pm b/FS/FS/acct_snarf.pm
index 480a632bb..40d21d0f2 100644
--- 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??
   };
 }