Be case insensitive for incoming/outcoming detection

[infodrom.org/service.infodrom.org] / src / InfoCon / buch / infocon

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index ff346ba..cfd08f3 100755 (executable)
--- a/src/InfoCon/buch/infocon
+++ b/src/InfoCon/buch/infocon
@@ -248,7 +248,7 @@ sub calculate_price
        $answers->{tax_assigned} = $ans - ($ans / ((100+$answers->{tax_percent})/100));
     }
 
-    if ($answers->{einaus} =~ /ei/i) {
+    if ($answers->{einaus} =~ /[ei]/i) {
        $answers->{tax_assigned} *= -1 if $answers->{tax_assigned} < 0;
        $ans *= -1 if $ans < 0;
     } else {