Revision 545d8542
Von Jan Büren vor etwa 14 Jahren hinzugefügt
| bin/mozilla/cp.pl | ||
|---|---|---|
| 48 | 48 |
|
| 49 | 49 |
sub payment {
|
| 50 | 50 |
$lxdebug->enter_sub(); |
| 51 |
|
|
| 52 | 51 |
$auth->assert('cash');
|
| 53 | 52 |
|
| 54 | 53 |
my (@curr); |
| ... | ... | |
| 83 | 82 |
} |
| 84 | 83 |
|
| 85 | 84 |
CP->paymentaccounts(\%myconfig, \%$form); |
| 86 |
|
|
| 87 | 85 |
$form->{selectaccount} = "";
|
| 88 | 86 |
$form->{"select$form->{ARAP}"} = "";
|
| 89 | 87 |
|
| ... | ... | |
| 288 | 286 |
<th align=right nowrap>| . $locale->text('Currency') . qq|</th>
|
| 289 | 287 |
<td><select name=currency>$form->{selectcurrency}</select></td>
|
| 290 | 288 |
<input type=hidden name=selectcurrency value="$form->{selectcurrency}">
|
| 291 |
<input type=hidden name=oldcurrency value=$form->{oldcurrency}>
|
|
| 292 | 289 |
</tr> |
| 293 | 290 |
$exchangerate |
| 294 | 291 |
<tr> |
| ... | ... | |
| 661 | 658 |
unless $form->{exchangerate};
|
| 662 | 659 |
} |
| 663 | 660 |
|
| 661 |
$form->{callback} = "cp.pl?action=payment&vc=$form->{vc}&muh=kuh&account=$form->{account}";
|
|
| 662 |
|
|
| 664 | 663 |
my $msg1 = "$form->{origtitle} posted!";
|
| 665 | 664 |
my $msg2 = "Cannot post $form->{origtitle}!";
|
| 666 | 665 |
|
| ... | ... | |
| 678 | 677 |
|
| 679 | 678 |
sub print {
|
| 680 | 679 |
$lxdebug->enter_sub(); |
| 681 |
|
|
| 680 |
exit; # Niemand braucht mich mehr! LöschMich endlich! jb 8.10.2010 |
|
| 682 | 681 |
$auth->assert('cash');
|
| 683 | 682 |
|
| 684 | 683 |
my ($whole, $check, %queued, $spool, $filename, $userspath); |
Auch abrufbar als: Unified diff
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