X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f51616ce7f8679b93113f296113932bc63917d06..99308d4c3fe7fe8a0b83c41ae5c97e55dbf86fd8:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 9b3a67ca6..4bea5f094 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -349,7 +349,7 @@ sub isblank {
 sub header {
   $main::lxdebug->enter_sub();
 
-  my ($self) = @_;
+  my ($self, $extra_code) = @_;
 
   if ($self->{header}) {
     $main::lxdebug->leave_sub();
@@ -439,6 +439,7 @@ function fokus(){document.$self->{fokus}.focus();}
   
   </script>
 
+  $extra_code
 </head>
 
 |;