#-*-Perl-*-
#register-eauth-debit.txt

#install with "update-sysStrings register-eauth-# < register-eauth-debit.txt"
#where # is the debit/gift tender number. make sure to set eauth in the tender table/program
#############################################################################################
#this code makes sure the customer has the
#credit available to make the purchase

if($me->{'cust'}{'id'} eq '')
{
	&main::infoPrint('A customer must be open for Debit Card sales.');
	return 0;
}
return 1 if $me->{'cust'}{'creditRmn'} * 100 >= $amt;
&main::infoPrint('This customer only has ' . Common::moneyFmt($me->{'cust'}{'creditRmn'} * 100) . " on his/her debit card.");
return 0;