Neu-Aufbau Lx-Office Bildschirm

[mfinanz.git] / bin / mozilla / cp.pl

diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl
index 1c37e41eecbf206910672b598aebd8521f09d6ea..1fa5d34c6fa34c4431c74ab0e4de132a632b19cf 100644 (file)
--- 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();
 
 sub payment {
   $lxdebug->enter_sub();

-

   $auth->assert('cash');
 
   my (@curr);
   $auth->assert('cash');
 
   my (@curr);


@@ -83,7 +82,6 @@ sub payment {
   }
 
   CP->paymentaccounts(\%myconfig, \%$form);
   }
 
   CP->paymentaccounts(\%myconfig, \%$form);

-

   $form->{selectaccount} = "";
   $form->{"select$form->{ARAP}"} = "";
 
   $form->{selectaccount} = "";
   $form->{"select$form->{ARAP}"} = "";
 


@@ -235,12 +233,6 @@ sub form_header {
         <tr valign=top>
           <td>
             <table>
         <tr valign=top>
           <td>
             <table>

-              <tr>
-                <td align=right>
-                <input name=all_vc type=checkbox style=checkbox value=Y $allvc>
-                <input type=hidden name="oldall_vc" value="$form->{all_vc}"></td>
-                <th align=left>| . $locale->text('All') . qq|</th>
-              </tr>

               <tr>
                 <th align=right>$vclabel</th>
                 <td>$vc</td>
               <tr>
                 <th align=right>$vclabel</th>
                 <td>$vc</td>


@@ -294,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}">
                 <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>
               </tr>
               $exchangerate
               <tr>


@@ -303,8 +294,7 @@ sub form_header {
               </tr>
               <tr>
                 <th align="right" nowrap>| . $locale->text('Amount') . qq|</th>
               </tr>
               <tr>
                 <th align="right" nowrap>| . $locale->text('Amount') . qq|</th>

-                <td colspan="3"><input name="amount" size="10" value="|
-    . $form->format_amount(\%myconfig, $form->{amount}, 2) . qq|" onBlur=\"check_right_number_format(this)\"></td>
+                <td colspan="3">| .  $form->format_amount(\%myconfig, $form->{amount}, 2) . qq|</td>

               </tr>
             </table>
           </td>
               </tr>
             </table>
           </td>


@@ -668,6 +658,8 @@ sub post {
       unless $form->{exchangerate};
   }
 
       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}!";
 
   my $msg1 = "$form->{origtitle} posted!";
   my $msg2 = "Cannot post $form->{origtitle}!";
 


@@ -685,7 +677,7 @@ sub post {
 
 sub print {
   $lxdebug->enter_sub();
 
 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);
   $auth->assert('cash');
 
   my ($whole, $check, %queued, $spool, $filename, $userspath);