update Installations-Doku vor allem postgres

[mfinanz.git] / bin / mozilla / is.pl
diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl

index b08e5dbe0a176f7494cc34b47e3ac09e631fb644..d5bd229465454ef67de38924e573fb90096c035b 100644 (file)
--- 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|
-<body>
-
  <form method="post" action="$form->{script}">
  |;