Parameter extra_code von form->header auf %params ungeschrieben

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index c7539354cf1f68e6b5931270cc603d972c4b0e56..624c01fc8f3ebbb524ab838f84c152157f6e888e 100644 (file)
--- 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.
 
   # 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;
 
   my $db_charset = $::lx_office_conf{system}->{dbcharset} || Common::DEFAULT_CHARSET;
   my @header;
 


@@ -746,7 +746,7 @@ EOT
    ***********************************************/
 
   </script>
    ***********************************************/
 
   </script>

-  $extra_code
+  $params{extra_code}

   $title_hack
  </head>
 
   $title_hack
  </head>