From 8394e8f0e98063fabeb7dd2341f174d73b596a13 Mon Sep 17 00:00:00 2001
From: djfiander <djfiander>
Date: Wed, 5 Apr 2006 01:41:17 +0000
Subject: [PATCH] Implement Superclass handlers necessary for Checkin and Fee
 Paid

---
 ILS/Transaction.pm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/ILS/Transaction.pm b/ILS/Transaction.pm
index 7cb85e0..458b5eb 100644
--- 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';		# ;-)
 }
-- 
2.11.0