Revision 59adfa36
Von Moritz Bunkus vor fast 8 Jahren hinzugefügt
| bin/mozilla/ir.pl | ||
|---|---|---|
| 468 | 468 |
} |
| 469 | 469 |
|
| 470 | 470 |
sub mark_as_paid {
|
| 471 |
$main::lxdebug->enter_sub(); |
|
| 472 |
|
|
| 473 |
my $form = $main::form; |
|
| 474 |
my %myconfig = %main::myconfig; |
|
| 475 |
|
|
| 476 |
$main::auth->assert('vendor_invoice_edit');
|
|
| 471 |
$::auth->assert('vendor_invoice_edit');
|
|
| 477 | 472 |
|
| 478 |
&mark_as_paid_common(\%myconfig,"ap");
|
|
| 473 |
SL::DB::PurchaseInvoice->new(id => $::form->{id})->load->mark_as_paid;
|
|
| 479 | 474 |
|
| 480 |
$main::lxdebug->leave_sub();
|
|
| 475 |
$::form->redirect($::locale->text("Marked as paid"));
|
|
| 481 | 476 |
} |
| 482 | 477 |
|
| 483 | 478 |
sub show_draft {
|
Auch abrufbar als: Unified diff
Alle Rechnungen: »als bezahlt markieren« auf neue Funktionen in SL::DB::(Purchase)Invoice umgestellt