From: Jan Büren <jan@lx-office-hosting.de>
Date: Mon, 11 Oct 2010 10:41:58 +0000 (+0200)
Subject:  Neu-Aufbau Lx-Office Bildschirm
X-Git-Tag: release-2.6.2beta1~101^2~10
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/commitdiff_plain/545d8542873ac7cb75ed71771a1bd384fe57bfe2?hp=-c

 Neu-Aufbau Lx-Office Bildschirm
Nach einer erfolgreichen Buchung erscheint die Meldung: 'Zahlung gebucht.' und
die Startseite wird angezeigt. Wünschenwert wäre es, wenn man in
Zahlungsverkehr bleiben würde, optimalerweise mit vorbelegten Feldern. Letzter Commit für Bugfix 1484. Bildschirm wird neu aufgebaut und zumindestens das Konto wird als Vorbelegung übernommen
---

545d8542873ac7cb75ed71771a1bd384fe57bfe2
diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl
index 84f72d126..1fa5d34c6 100644
--- a/bin/mozilla/cp.pl
+++ b/bin/mozilla/cp.pl
@@ -48,7 +48,6 @@ our ($form, %myconfig, $lxdebug, $locale, $auth);
 
 sub payment {
   $lxdebug->enter_sub();
-
   $auth->assert('cash');
 
   my (@curr);
@@ -83,7 +82,6 @@ sub payment {
   }
 
   CP->paymentaccounts(\%myconfig, \%$form);
-
   $form->{selectaccount} = "";
   $form->{"select$form->{ARAP}"} = "";
 
@@ -288,7 +286,6 @@ sub form_header {
                 <th align=right nowrap>| . $locale->text('Currency') . qq|</th>
                 <td><select name=currency>$form->{selectcurrency}</select></td>
                 <input type=hidden name=selectcurrency value="$form->{selectcurrency}">
-                <input type=hidden name=oldcurrency value=$form->{oldcurrency}>
               </tr>
               $exchangerate
               <tr>
@@ -661,6 +658,8 @@ sub post {
       unless $form->{exchangerate};
   }
 
+  $form->{callback} = "cp.pl?action=payment&vc=$form->{vc}&muh=kuh&account=$form->{account}";
+
   my $msg1 = "$form->{origtitle} posted!";
   my $msg2 = "Cannot post $form->{origtitle}!";
 
@@ -678,7 +677,7 @@ sub post {
 
 sub print {
   $lxdebug->enter_sub();
-
+  exit; # Niemand braucht mich mehr! LöschMich endlich! jb 8.10.2010
   $auth->assert('cash');
 
   my ($whole, $check, %queued, $spool, $filename, $userspath);