X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/97bea1c13d502f3667e820c536573c3bcda6c676..072d299d85184192341ba0a520209ffe31b6bb66:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index c7539354c..624c01fc8 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -674,7 +674,7 @@ sub header {
 
   # extra code is currently only used by menuv3 and menuv4 to set their css.
   # it is strongly deprecated, and will be changed in a future version.
-  my ($self, $extra_code) = @_;
+  my ($self, %params) = @_;
   my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;
   my @header;
 
@@ -746,7 +746,7 @@ EOT
    ***********************************************/
 
   </script>
-  $extra_code
+  $params{extra_code}
   $title_hack
  </head>