From 16bdab678a09c6e5abc10568fb1319a01349e60f Mon Sep 17 00:00:00 2001 From: djfiander Date: Sun, 16 Apr 2006 01:40:34 +0000 Subject: [PATCH] Stub code to handle renewals --- ILS/Transaction/Renew.pm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 ILS/Transaction/Renew.pm diff --git a/ILS/Transaction/Renew.pm b/ILS/Transaction/Renew.pm new file mode 100644 index 0000000..30ff219 --- /dev/null +++ b/ILS/Transaction/Renew.pm @@ -0,0 +1,23 @@ +# +# Status of a Renew Transaction +# + +package ILS::Transaction::Renew; + +use warnings; +use strict; + +use ILS; +use ILS::Transaction; + +our @ISA = qw(ILS::Transaction); + +# most fields are handled by the Transaction superclass + +sub renewal_ok { + my $self = shift; + + return $self->{renewal_ok} || 0; +} + +1; -- 2.11.0