X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/de90e717775dfcf75d3a8ac4798e05d3f01b3d42..6040212:/bin/mozilla/ar.pl diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl index 45193ed87..8d0e89de9 100644 --- a/bin/mozilla/ar.pl +++ b/bin/mozilla/ar.pl @@ -219,7 +219,6 @@ sub form_header { my ($title, $readonly, $exchangerate, $rows); my ($notes, $department, $customer, $employee, $amount, $project); - my ($onload); my ($ARselected); @@ -326,9 +325,6 @@ sub form_header { qq|| . qq||; - $onload = qq|focus()|; - $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|; - # $amount = $locale->text('Amount'); # $project = $locale->text('Project'); @@ -443,7 +439,6 @@ sub form_header { project_labels => \%project_labels, rows => $rows, ARselected => $ARselected, - onload => $onload, title_str => $title, follow_up_trans_info => $follow_up_trans_info, }); @@ -529,10 +524,6 @@ $follow_ups_block } } - if ($form->{menubar}) { - require "bin/mozilla/menu.pl"; - &menubar; - } # button for saving history if($form->{id} ne "") { print qq| {id}); name=history id=history value=| . $locale->text('history') . qq|> |; @@ -547,9 +538,6 @@ $follow_ups_block print " - - - "; $main::lxdebug->leave_sub(); @@ -850,8 +838,6 @@ sub delete { delete $form->{header}; print qq| - -
{script}> |; @@ -871,9 +857,6 @@ sub delete {
- - - |; $main::lxdebug->leave_sub(); @@ -914,7 +897,7 @@ sub search { my $cgi = $::request->{cgi}; my ($customer, $department); - my ($jsscript, $button1, $button2, $onload); + my ($jsscript, $button1, $button2); # setup customer selection $form->all_vc(\%myconfig, "customer", "AR");