X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=355d60aef9123f94b8ac5406af9ee1163b3db1ac;hb=1410996dd10264247f118f1ac6f3a8daaf5e55e6;hp=d68bc7152a62efdae0ea669714c0a204fb927214;hpb=f54fd660afa7832f7793d602c7bb1738e9174a39;p=kivitendo-erp.git

diff --git a/SL/Form.pm b/SL/Form.pm
index d68bc7152..355d60aef 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1628,6 +1628,10 @@ sub check_exchangerate {
 
   my ($self, $myconfig, $currency, $transdate, $fld) = @_;
 
+  if ($fld !~/^buy|sell$/) {
+    $self->error('Fatal: check_exchangerate called with invalid buy/sell argument');
+  }
+
   unless ($transdate) {
     $main::lxdebug->leave_sub();
     return "";