Revision 68ccd089
Von Kivitendo Admin vor mehr als 8 Jahren hinzugefügt
| SL/DB/BankTransaction.pm | ||
|---|---|---|
| 8 | 8 |
use SL::DB::MetaSetup::BankTransaction; |
| 9 | 9 |
use SL::DB::Manager::BankTransaction; |
| 10 | 10 |
use SL::DB::Helper::LinkedRecords; |
| 11 |
use Carp; |
|
| 11 | 12 |
|
| 12 | 13 |
require SL::DB::Invoice; |
| 13 | 14 |
require SL::DB::PurchaseInvoice; |
| ... | ... | |
| 49 | 50 |
sub get_agreement_with_invoice {
|
| 50 | 51 |
my ($self, $invoice) = @_; |
| 51 | 52 |
|
| 52 |
die "first argument is not an invoice object"
|
|
| 53 |
carp "get_agreement_with_invoice needs an invoice object as its first argument"
|
|
| 53 | 54 |
unless ref($invoice) eq 'SL::DB::Invoice' or ref($invoice) eq 'SL::DB::PurchaseInvoice'; |
| 54 | 55 |
|
| 55 | 56 |
my %points = ( |
Auch abrufbar als: Unified diff
SL/DB/BankTransaction.pm - carp statt die