Implement Superclass handlers necessary for Checkin and Fee Paid

diff --git a/ILS/Transaction.pm b/ILS/Transaction.pm
index 7cb85e0..458b5eb 100644 (file)
--- a/ILS/Transaction.pm
+++ b/ILS/Transaction.pm
@@ -23,6 +23,12 @@ sub ok {
     return $self->{ok} ? 1 : 0;        # normalize, just because
 }
 
+sub alert {
+    my $self = shift;
+
+    return $self->{alert} || 0;
+}
+
 sub screen_msg {
     my $self = shift;
 
@@ -47,10 +53,28 @@ sub item {
     return $self->{item};
 }
 
+sub permanent_location {
+    my $self = shift;
+
+    return $self->item->permanent_location || '';
+}
+
+sub sort_bin {
+    my $self = shift;
+
+    return $self->{sort_bin} || '';
+}
+
 sub fee_amount {
     return 0;
 }
 
+sub transaction_id {
+    my $self = shift;
+
+    return $self->{transaction_id};
+}
+
 sub sip_currency {
     return 'CAD';              # ;-)
 }