treasuredb/TrsrDB/CurrentArrears.pm

20 lines
426 B
Perl
Raw Normal View History

2016-06-26 17:49:12 +02:00
use strict;
package TrsrDB::CurrentArrears;
2016-06-26 17:49:12 +02:00
use base qw/DBIx::Class::Core/;
__PACKAGE__->table('CurrentArrears');
2016-06-26 17:49:12 +02:00
__PACKAGE__->add_columns(qw/billId debtor targetCredit date purpose difference/);
__PACKAGE__->set_primary_key("billId");
__PACKAGE__->belongs_to(
account => 'TrsrDB::Account',
{ 'foreign.ID' => 'self.account' }
);
__PACKAGE__->many_to_many(
payable_with => account => 'available_credits'
);
1;