From: djfiander <djfiander>
Date: Sun, 16 Apr 2006 01:39:47 +0000 (+0000)
Subject: Add stub code necessary to support item renewal
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=750a7ad5348dacf0d794c2b28a0c9dbd146e5e68;p=SIPServer.git

Add stub code necessary to support item renewal
---

diff --git a/ILS.pm b/ILS.pm
index 71ea4dc..d59711c 100644
--- a/ILS.pm
+++ b/ILS.pm
@@ -15,6 +15,7 @@ use ILS::Transaction::Checkout;
 use ILS::Transaction::Checkin;
 use ILS::Transaction::FeePayment;
 use ILS::Transaction::Hold;
+use ILS::Transaction::Renew;
 
 my %supports = (
 		'magnetic media' => 1,
@@ -340,4 +341,56 @@ sub alter_hold {
     return $trans;
 }
 
+sub renew {
+    my ($self, $patron_id, $patron_pwd, $item_id, $title_id,
+	$no_block, $nb_due_date, $third_party,
+	$item_props, $fee_ack) = @_;
+    my ($patron, $item);
+    my $trans;
+
+    $trans = new ILS::Transaction::Renew;
+    $trans->{ok} = 0;
+    $trans->{renewal_ok} = 0;
+
+    $trans->{patron} = $patron = new ILS::Patron $patron_id;
+    if (!$patron) {
+	$trans->{screen_msg} = "Invalid patron barcode.";
+
+	return $trans;
+    } elsif ($patron->{renew_ok} eq 'N') {
+	
+	$trans->{screen_msg} = "Renewals not allowed.";
+
+	return $trans;
+    }
+
+    foreach my $i (@{$patron->{items}}) {
+	if ($i == $item_id) {
+	    # We have it checked out
+	    $item = new ILS::Item $item_id;
+	    $trans->{item} = $item;
+	    $trans->{renewal_ok} = 'Y';
+
+	    $trans->{desensitize} = 0;	# It's already checked out
+	    
+	    if ($no_block eq 'Y') {
+		$item->{due_date} = $nb_due_date;
+	    } else {
+		$item->{due_date} = time + (14*24*60*60); # two weeks
+	    }
+	    if ($item_props) {
+		$item->{sip_item_properties} = $item_props;
+	    }
+	    $trans->{ok} = 1;
+	    $trans->{renewal_ok} = 1;
+
+	    return $trans;
+	}
+    }
+
+    # It's not checked out to $patron_id
+    $trans->{screen_msg} = "Item not checked out to " . $patron->name;
+
+    return $trans;
+}
 1;