X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_pay_void.pm;h=ce4e7da78b4e8f2fbc09323db55fb2967056ebc8;hp=8fd5396160a4d7a30ea1313ce376f17880ae1361;hb=20f03d52cc6c930f610c0b4466eeeeda54fdbb40;hpb=55c7e3cc18a45620f48ae62d3bc044a830bd8c95 diff --git a/FS/FS/cust_pay_void.pm b/FS/FS/cust_pay_void.pm index 8fd539616..ce4e7da78 100644 --- a/FS/FS/cust_pay_void.pm +++ b/FS/FS/cust_pay_void.pm @@ -74,6 +74,10 @@ Payment Type (See L for valid values) card number, check #, or comp issuer (4-8 lowercase alphanumerics; think username), respectively +=item cardtype + +Credit card type, if appropriate. + =item paybatch text field for tracking card processing @@ -90,7 +94,7 @@ Desired pkgnum when using experimental package balances. =item reason - a freeform string (deprecated) -=item reasonnum - Reason for voiding the payment (see L) +=item reasonnum - Reason for voiding the payment (see L) =back @@ -190,7 +194,7 @@ sub check { || $self->ut_foreign_keyn('pkgnum', 'cust_pkg', 'pkgnum') || $self->ut_numbern('void_date') || $self->ut_textn('reason') - || $self->payinfo_check + # || $self->payinfo_check #we'd rather void what we have than fail on this || $self->ut_foreign_keyn('reasonnum', 'reason', 'reasonnum') ; return $error if $error; @@ -234,6 +238,8 @@ Returns the text of the associated void reason (see L) for this. sub _upgrade_data { # class method my ($class, %opts) = @_; + local $FS::payinfo_Mixin::ignore_masked_payinfo = 1; + $class->_upgrade_reasonnum(%opts); my $sql = "SELECT usernum FROM access_user WHERE username = ( SELECT history_user FROM h_cust_pay_void WHERE paynum = ? AND history_action = 'insert' ORDER BY history_date LIMIT 1 ) ";