From ec75e1d2c9703f4d1349fb3bb26379e9d9c74874 Mon Sep 17 00:00:00 2001
From: simith <simith@inlibro.com>
Date: Thu, 3 Jul 2014 08:32:32 -0400
Subject: [PATCH] Bug 12523 - Add patron email in Holds awaiting pickup
 circulation rapport

Modified:

circ/waitingreservers.pl    - added GetFirstValidEmailAddress


Testing:

I Apply the patch

0) Put an item in hold for pickup;
1) In Circulation -> Holds awaiting pickup, validate email (column Patron);
---
 circ/waitingreserves.pl | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl
index fb7a3d1..e37af6d 100755
--- a/circ/waitingreserves.pl
+++ b/circ/waitingreserves.pl
@@ -128,10 +128,13 @@ foreach my $num (@getreserves) {
     $getreserv{'borrowername'}      = $getborrower->{'surname'};
     $getreserv{'borrowerfirstname'} = $getborrower->{'firstname'};
     $getreserv{'borrowerphone'}     = $getborrower->{'phone'};
-    if ( $getborrower->{'emailaddress'} ) {
-        $getreserv{'borrowermail'}  = $getborrower->{'emailaddress'};
+
+    my $borEmail = GetFirstValidEmailAddress( $borrowernum );
+
+    if ( $borEmail ) {
+        $getreserv{'borrowermail'}  = $borEmail;
     }
- 
+
     if ($today > $calcDate) {
         if ($cancelall) {
             my $res = cancel( $itemnumber, $borrowernum, $holdingbranch, $homebranch, !$transfer_when_cancel_all );
-- 
1.9.1