From: djfiander <djfiander>
Date: Wed, 5 Apr 2006 01:41:17 +0000 (+0000)
Subject: Implement Superclass handlers necessary for Checkin and Fee Paid
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=8394e8f0e98063fabeb7dd2341f174d73b596a13;p=SIPServer.git

Implement Superclass handlers necessary for Checkin and Fee Paid
---

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';		# ;-)
 }