+};
+
+sub link {
+ my ($self) = @_;
+
+ my $html;
+ $html = SL::Presenter->get->purchase_invoice($self, display => 'inline') if $self->invoice;
+ $html = SL::Presenter->get->ap_transaction($self, display => 'inline') if !$self->invoice;
+
+ return $html;
+}
+
+sub invoice_type {
+ my ($self) = @_;
+
+ return 'ap_transaction' if !$self->invoice;
+ return 'purchase_invoice';