Revision 5769da0e
Von Jan Büren vor etwa 14 Jahren hinzugefügt
| bin/mozilla/cp.pl | ||
|---|---|---|
| 58 | 58 |
|
| 59 | 59 |
# setup customer/vendor selection for open invoices |
| 60 | 60 |
if ($form->{all_vc}) {
|
| 61 |
# Dieser Zweig funktioniert derzeit NIE. Ggf. ganz raus oder |
|
| 62 |
# alle offenen Zahlungen wieder korrekt anzeigen. jb 12.10.2010 |
|
| 61 | 63 |
$form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP});
|
| 62 | 64 |
} else {
|
| 63 | 65 |
CP->get_openvc(\%myconfig, \%$form); |
| ... | ... | |
| 66 | 68 |
$form->{"select$form->{vc}"} = "";
|
| 67 | 69 |
|
| 68 | 70 |
if ($form->{"all_$form->{vc}"}) {
|
| 71 |
# s.o. jb 12.10.2010 |
|
| 69 | 72 |
$form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
|
| 70 | 73 |
map { $form->{"select$form->{vc}"} .= "<option>$_->{name}--$_->{id}\n" }
|
| 71 | 74 |
@{ $form->{"all_$form->{vc}"} };
|
| 72 | 75 |
} |
| 73 | 76 |
|
| 74 | 77 |
# departments |
| 78 |
# auf departments kann man auch nicht mehr buchen. Raus oder wieder |
|
| 79 |
# aktivieren? Im Backend dann auch anpassen. jb 12.10.2010 |
|
| 75 | 80 |
if (@{ $form->{all_departments} || [] }) {
|
| 76 | 81 |
$form->{selectdepartment} = "<option>\n";
|
| 77 | 82 |
$form->{department} = "$form->{department}--$form->{department_id}";
|
| ... | ... | |
| 95 | 100 |
} @{ $form->{PR}{ $form->{ARAP} } };
|
| 96 | 101 |
|
| 97 | 102 |
# currencies |
| 98 |
@curr = split(/:/, $form->{currencies});
|
|
| 99 |
chomp $curr[0]; |
|
| 103 |
# oldcurrency ist zwar noch hier als fragment enthalten, wird aber bei |
|
| 104 |
# der aktualisierung der form auch nicht mitübernommen. das konzept |
|
| 105 |
# old_$FOO habe ich auch noch nicht verstanden ... |
|
| 106 |
# Ok. Wenn currency übernommen werden, dann in callback-string über- |
|
| 107 |
# geben und hier reinparsen, oder besser multibox oder html auslagern? |
|
| 108 |
@curr_unsorted = split(/:/, $form->{currencies});
|
|
| 109 |
chomp $curr_unsorted[0]; |
|
| 110 |
@curr = sort {} @curr_unsorted;
|
|
| 100 | 111 |
$form->{defaultcurrency} = $form->{currency} = $form->{oldcurrency} =
|
| 101 | 112 |
$curr[0]; |
| 102 | 113 |
|
| ... | ... | |
| 487 | 498 |
} |
| 488 | 499 |
|
| 489 | 500 |
# if we switched to all_vc |
| 501 |
# funktioniert derzeit nicht 12.10.2010 jb |
|
| 490 | 502 |
if ($form->{all_vc} ne $form->{oldall_vc}) {
|
| 491 | 503 |
|
| 492 | 504 |
$form->{openinvoices} = ($form->{all_vc}) ? 0 : 1;
|
| ... | ... | |
| 502 | 514 |
"<option>$_->{name}--$_->{id}\n"
|
| 503 | 515 |
} @{ $form->{"all_$form->{vc}"} };
|
| 504 | 516 |
} |
| 505 |
} else {
|
|
| 517 |
} else { # ab hier wieder ausgeführter code (s.o.):
|
|
| 506 | 518 |
CP->get_openvc(\%myconfig, \%$form); |
| 507 | 519 |
|
| 508 | 520 |
if ($form->{"all_$form->{vc}"}) {
|
| ... | ... | |
| 626 | 638 |
$form->error($locale->text('Exchangerate missing!'))
|
| 627 | 639 |
unless $form->{exchangerate};
|
| 628 | 640 |
} |
| 629 |
|
|
| 641 |
# Beim Aktualisieren wird das Konto übernommen |
|
| 630 | 642 |
$form->{callback} = "cp.pl?action=payment&vc=$form->{vc}&muh=kuh&account=$form->{account}";
|
| 631 | 643 |
|
| 632 | 644 |
my $msg1 = "$form->{origtitle} posted!";
|
| ... | ... | |
| 636 | 648 |
# $locale->text('Receipt posted!')
|
| 637 | 649 |
# $locale->text('Cannot post Payment!')
|
| 638 | 650 |
# $locale->text('Cannot post Receipt!')
|
| 639 |
|
|
| 651 |
# Die Nachrichten (Receipt posted!) werden nicht angezeigt. |
|
| 652 |
# Entweder wieder aktivieren oder komplett rausnehmen |
|
| 640 | 653 |
$form->redirect($locale->text($msg1)) |
| 641 | 654 |
if (CP->process_payment(\%myconfig, \%$form)); |
| 642 | 655 |
$form->error($locale->text($msg2)); |
Auch abrufbar als: Unified diff
Kommentare für Dinge die ich nicht verstehe, bzw. die entweder wieder komplett aktiviert oder weggeschmissen werden sollten