From e29b1877eedbf6aef0aee972e839b082541d7f5e Mon Sep 17 00:00:00 2001
From: djfiander <djfiander>
Date: Sat, 15 Apr 2006 15:44:12 +0000
Subject: [PATCH] Add support for Hold message

---
 Sip/MsgType.pm | 74 +++++++++++++++++++++++++++++++++++++++++++++++++++-------
 1 file changed, 65 insertions(+), 9 deletions(-)

diff --git a/Sip/MsgType.pm b/Sip/MsgType.pm
index 65a65ec..69fbc91 100644
--- a/Sip/MsgType.pm
+++ b/Sip/MsgType.pm
@@ -225,7 +225,7 @@ my %handlers = (
 		    handler => \&handle_hold,
 		    protocol => {
 			"2.00" => {
-			    template => "CA18",
+			    template => "AA18",
 			    template_len => 19,
 			    fields => [(FID_EXPIRATION), (FID_PICKUP_LOCN),
 				       (FID_HOLD_TYPE), (FID_INST_ID),
@@ -1173,21 +1173,77 @@ sub handle_patron_enable {
 
 sub handle_hold {
     my ($self, $server) = @_;
+    my $ils = $server->{ils};
     my ($hold_mode, $trans_date);
-    my $fields;
+    my ($expiry_date, $pickup_locn, $hold_type, $patron_id, $patron_pwd);
+    my ($item_id, $title_id, $fee_ack);
+    my $fields = $self->{fields};
+    my $status;
+    my $resp = HOLD_RESP;
 
     ($hold_mode, $trans_date) = @{$self->{fixed_fields}};
 
+    $ils->check_inst_id($fields->{(FID_INST_ID)}, "handle_hold");
 
-    printf("handle_hold:\n");
-    printf("    hold_mode : %c\n", $hold_mode);
-    printf("    trans_date: %s\n", $trans_date);
+    $patron_id = $fields->{(FID_PATRON_ID)};
+    $expiry_date = $fields->{(FID_EXPIRATION)} || '';
+    $pickup_locn = $fields->{(FID_PICKUP_LOCN)} || '';
+    $hold_type = $fields->{(FID_HOLD_TYPE)} || '2'; # Any copy of title
+    $patron_pwd = $fields->{(FID_PATRON_PWD)};
+    $item_id = $fields->{(FID_ITEM_ID)} || '';
+    $title_id = $fields->{(FID_TITLE_ID)} || '';
+    $fee_ack = $fields->{(FID_FEE_ACK)} || 'N';
+
+    if ($hold_mode eq '+') {
+	$status = $ils->add_hold($patron_id, $patron_pwd,
+				 $item_id, $title_id,
+				 $expiry_date, $pickup_locn, $hold_type,
+				 $fee_ack);
+    } elsif ($hold_mode eq '-') {
+	$status = $ils->cancel_hold($patron_id, $patron_pwd,
+				    $item_id, $title_id);
+    } elsif ($hold_mode eq '*') {
+	$status = $ils->alter_hold($patron_id, $patron_pwd,
+				   $item_id, $title_id,
+				   $expiry_date, $pickup_locn, $hold_type,
+				   $fee_ack);
+    } else {
+	syslog("WARNING", "handle_hold: Unrecognized hold mode '%s' from terminal '%s'",
+	       $hold_mode, $server->{account}->{id});
+	$status = new ILS::Transaction;
+	$status->{ok} = 0;
+	$status->{available} = 'N';
+	$status->{screen_msg} = "System error. Please contact library status";
+    }
 
-    $fields = $self->{fields};
-    foreach my $key (keys(%$fields)) {
-	printf("    $key        : %s\n",
-	       defined($fields->{$key}) ? $fields->{$key} : 'UNDEF' );
+    $resp .= $status->ok ? '1' : '0';
+    $resp .= sipbool($status->available);
+    $resp .= Sip::timestamp;
+
+    if ($status->ok) {
+	$resp .= add_field(FID_INST_ID, $ils->institution);
+	$resp .= add_field(FID_PATRON_ID, $status->patron->id);
+
+	if ($status->expiration_date) {
+	    $resp .= maybe_add(FID_EXPIRATION,
+			       Sip::timestamp($status->expiration_date));
+	}
+	$resp .= maybe_add(FID_QUEUE_POS, $status->queue_position);
+	$resp .= maybe_add(FID_PICKUP_LOCN, $status->pickup_location);
+	$resp .= maybe_add(FID_ITEM_ID, $status->item->id);
+	$resp .= maybe_add(FID_TITLE_ID, $status->item->title_id);
+    } else {
+	# Not ok.  still need required fields
+	$resp .= add_field(FID_INST_ID, $ils->institution);
+	$resp .= add_field(FID_PATRON_ID, $patron_id);
     }
+
+    $resp .= maybe_add(FID_SCREEN_MSG, $status->screen_msg);
+    $resp .= maybe_add(FID_PRINT_LINE, $status->print_line);
+
+    $self->write_msg($resp, $server);
+
+    return(HOLD);
 }
 
 sub handle_renew {
-- 
2.11.0