Kunden > Lieferungen: die Übergabe der Lieferadressenid gefixt.

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index ce887c34704ece6e24965d1cc68d836654f3876a..9cc1065f5eb4d90aa07c276565b2ab6a1fc29710 100644 (file)
--- 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}} || '';