X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4b31e6ba4211c900648d92af80ae8d09041977ad..54bd1719f9ca8db62ef6a3d766d3965e01833c20:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index ce887c347..9cc1065f5 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1607,7 +1607,7 @@ sub get_exchangerate {
   my ($self, $dbh, $curr, $transdate, $fld) = @_;
   my ($query);
 
-  unless ($transdate) {
+  unless ($transdate && $curr) {
     $main::lxdebug->leave_sub();
     return 1;
   }
@@ -3581,7 +3581,6 @@ sub layout {
   my %style_to_script_map = (
     v3  => 'v3',
     neu => 'new',
-    v4  => 'v4',
   );
 
   my $menu_script = $style_to_script_map{$::myconfig{menustyle}} || '';