|
Lines 128-137
foreach my $num (@getreserves) {
Link Here
|
| 128 |
$getreserv{'borrowername'} = $getborrower->{'surname'}; |
128 |
$getreserv{'borrowername'} = $getborrower->{'surname'}; |
| 129 |
$getreserv{'borrowerfirstname'} = $getborrower->{'firstname'}; |
129 |
$getreserv{'borrowerfirstname'} = $getborrower->{'firstname'}; |
| 130 |
$getreserv{'borrowerphone'} = $getborrower->{'phone'}; |
130 |
$getreserv{'borrowerphone'} = $getborrower->{'phone'}; |
| 131 |
if ( $getborrower->{'emailaddress'} ) { |
131 |
|
| 132 |
$getreserv{'borrowermail'} = $getborrower->{'emailaddress'}; |
132 |
my $borEmail = GetFirstValidEmailAddress( $borrowernum ); |
|
|
133 |
|
| 134 |
if ( $borEmail ) { |
| 135 |
$getreserv{'borrowermail'} = $borEmail; |
| 133 |
} |
136 |
} |
| 134 |
|
137 |
|
| 135 |
if ($today > $calcDate) { |
138 |
if ($today > $calcDate) { |
| 136 |
if ($cancelall) { |
139 |
if ($cancelall) { |
| 137 |
my $res = cancel( $itemnumber, $borrowernum, $holdingbranch, $homebranch, !$transfer_when_cancel_all ); |
140 |
my $res = cancel( $itemnumber, $borrowernum, $holdingbranch, $homebranch, !$transfer_when_cancel_all ); |
| 138 |
- |
|
|