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

#install with "update-sysStrings register-eauth-# < register-eauth-foreign.txt"
#where # is the foreign tender number. make sure to set eauth in the tender table/program
#############################################################################################

#this code converts a foreign currency to the local currency

#limitations: the amt of the foreign curr isn't saved anywhere, it is stored as the local curr

################################################
# $xchg is the xchg rate, that's the only thing
# to modify
################################################
my $xchg = 0.872521; #1eur = 0.8... usd
$amt = Common::round("(" . Common::extFmt($amt) . " * $xchg)");
$amt =~ s/\.//;