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
sub payment {
$lxdebug->enter_sub();
sub payment {
$lxdebug->enter_sub();
$auth->assert('cash');
my (@curr);
$auth->assert('cash');
my (@curr);
}
CP->paymentaccounts(\%myconfig, \%$form);
}
CP->paymentaccounts(\%myconfig, \%$form);
$form->{selectaccount} = "";
$form->{"select$form->{ARAP}"} = "";
$form->{selectaccount} = "";
$form->{"select$form->{ARAP}"} = "";
<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}>
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}!";
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);