#-*-Perl-*- #register-eauth-fs.txt #install with "update-sysStrings register-eauth-# < register-eauth-fs.txt" #where # is the foodstamp tender number. make sure to set eauth in the tender table/program ############################################################################################# #foodstamp tender $amt = $main::fsTotal if $amt > $main::fsTotal; #remove the tax from the fstax #!!!!HARD-CODED TAX 2 my $tx = Tax->new; my $i = 1; $tx->open($i); $me->{'sale'}->{'due'} -= $me->{'sale'}->{'taxes'}; $me->{'sale'}->{'taxable'}[$i - 1] -= $amt; $me->{'Taxes'}[$i - 1] = $tx->applyTax($me->{'sale'}->{'taxable'}[$i - 1]); $me->{'sale'}->{'taxes'} = 0; for(my $j = 0; $j <= $#{$me->{'Taxes'}}; $j++) { $me->{'sale'}->{'taxes'} += $me->{'Taxes'}[$j]; } $main::fsTotal -= $amt; $me->{'sale'}->{'due'} += $me->{'sale'}->{'taxes'}; #$me->{'sale'}->updateTotals; &main::writeSummaryArea(); return 1;