From 545d8542873ac7cb75ed71771a1bd384fe57bfe2 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@lx-office-hosting.de>
Date: Mon, 11 Oct 2010 12:41:58 +0200
Subject: [PATCH] =?utf8?q?=20Neu-Aufbau=20Lx-Office=20Bildschirm=20Nach=20?=
 =?utf8?q?einer=20erfolgreichen=20Buchung=20erscheint=20die=20Meldung:=20'?=
 =?utf8?q?Zahlung=20gebucht.'=20und=20die=20Startseite=20wird=20angezeigt.?=
 =?utf8?q?=20W=C3=BCnschenwert=20w=C3=A4re=20es,=20wenn=20man=20in=20Zahlu?=
 =?utf8?q?ngsverkehr=20bleiben=20w=C3=BCrde,=20optimalerweise=20mit=20vorb?=
 =?utf8?q?elegten=20Feldern.=20Letzter=20Commit=20f=C3=BCr=20Bugfix=201484?=
 =?utf8?q?.=20Bildschirm=20wird=20neu=20aufgebaut=20und=20zumindestens=20d?=
 =?utf8?q?as=20Konto=20wird=20als=20Vorbelegung=20=C3=BCbernommen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bin/mozilla/cp.pl | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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);
-- 
2.20.1