X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6881b4bd6a669dd991b227ecf41c3e8662806595..b68213ba55ae268:/bin/mozilla/is.pl diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index b08e5dbe0..d5bd22946 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -350,7 +350,7 @@ sub form_header { $TMPL_VAR{creditwarning} = ($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update}; $TMPL_VAR{is_credit_remaining_negativ} = $form->{creditremaining} =~ /-/; - $form->{fokus} = "invoice.customer"; + $::request->{layout}->focus('#customer'); my $follow_up_vc = $form->{customer}; $follow_up_vc =~ s/--\d*\s*$//; @@ -835,7 +835,7 @@ sub storno { $form->error($locale->text("Invoice has already been storno'd!")); } - map({ my $key = $_; delete($form->{$key}) unless (grep({ $key eq $_ } qw(id login password stylesheet type))); } keys(%{ $form })); + map({ my $key = $_; delete($form->{$key}) unless (grep({ $key eq $_ } qw(id login password type))); } keys(%{ $form })); invoice_links(); prepare_invoice(); @@ -885,8 +885,6 @@ sub delete { $form->header; print qq| - -