$params{ar_id} = $chart->id;
}
- my $worker = sub {
+ if (!$self->db->with_transaction(sub {
my %data = $self->calculate_prices_and_taxes;
$self->_post_create_assemblyitem_entries($data{assembly_items});
$self->_post_update_allocated($data{allocated});
$self->_post_book_rounding($data{rounding});
- };
- if ($self->db->in_transaction) {
- $worker->();
- } elsif (!$self->db->do_transaction($worker)) {
+ 1;
+ })) {
$::lxdebug->message(LXDebug->WARN(), "convert_to_invoice failed: " . join("\n", (split(/\n/, $self->db->error))[0..2]));
return undef;
}
return $html;
}
+sub mark_as_paid {
+ my ($self) = @_;
+
+ $self->update_attributes(paid => $self->amount);
+}
+
1;
__END__
See L<SL::DB::Object::basic_info>.
+=item C<closed>
+
+Returns 1 or 0, depending on whether the invoice is closed or not. Currently
+invoices that are overpaid also count as closed.
+
=item C<recalculate_amounts %params>
Calculate and set amount and netamount from acc_trans objects by summing up the
=back
+=item C<mark_as_paid>
+
+Marks the invoice as paid by setting its C<paid> member to the value of C<amount>.
+
=back
=head1 TODO