X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fff0fe48e0d986e64c8434226d1f4997ebed88f6..752642dd833d795ac8d97bfe2fd6e6d97e3de496:/bin/mozilla/wh.pl

diff --git a/bin/mozilla/wh.pl b/bin/mozilla/wh.pl
index a853c8a21..5326cfb52 100644
--- a/bin/mozilla/wh.pl
+++ b/bin/mozilla/wh.pl
@@ -602,7 +602,8 @@ sub report {
 
   show_no_warehouses_error() if (!scalar @{ $form->{WAREHOUSES} });
 
-  $form->{onload} .= "fokus('partnumber');";
+  $form->{fokus}   = "partnumber";
+  $form->{onload} .= "focus();";
   $form->{title}   = $locale->text("Report about wareouse contents");
 
   $form->header();