-my $max_pickup_delay = C4::Context->preference('ReservesMaxPickUpDelay');
-$max_pickup_delay-- if C4::Context->preference('ExpireReservesMaxPickUpDelay');
-
-foreach my $num (@getreserves) {
- next unless ($num->{'waitingdate'} && $num->{'waitingdate'} ne '0000-00-00');
-
- my $itemnumber = $num->{'itemnumber'};
- my $gettitle = GetBiblioFromItemNumber( $itemnumber );
- my $borrowernum = $num->{'borrowernumber'};
- my $holdingbranch = $gettitle->{'holdingbranch'};
- my $homebranch = $gettitle->{'homebranch'};
-
- my %getreserv = (
- itemnumber => $itemnumber,
- borrowernum => $borrowernum,
- );
-
- # fix up item type for display
- $gettitle->{'itemtype'} = C4::Context->preference('item-level_itypes') ? $gettitle->{'itype'} : $gettitle->{'itemtype'};
- my $getborrower = GetMember(borrowernumber => $num->{'borrowernumber'});
- my $itemtypeinfo = getitemtypeinfo( $gettitle->{'itemtype'} ); # using the fixed up itype/itemtype
- $getreserv{'waitingdate'} = $num->{'waitingdate'};
- my ( $waiting_year, $waiting_month, $waiting_day ) = split (/-/, $num->{'waitingdate'});
-
- ( $waiting_year, $waiting_month, $waiting_day ) =
- Add_Delta_Days( $waiting_year, $waiting_month, $waiting_day,
- $max_pickup_delay);
- my $calcDate = Date_to_Days( $waiting_year, $waiting_month, $waiting_day );
-
- $getreserv{'itemtype'} = $itemtypeinfo->{'description'};
- $getreserv{'title'} = $gettitle->{'title'};
- $getreserv{'subtitle'} = GetRecordValue('subtitle', GetMarcBiblio($gettitle->{'biblionumber'}), GetFrameworkCode($gettitle->{'biblionumber'}));
- $getreserv{'biblionumber'} = $gettitle->{'biblionumber'};
- $getreserv{'barcode'} = $gettitle->{'barcode'};
- $getreserv{'homebranch'} = $gettitle->{'homebranch'};
- $getreserv{'holdingbranch'} = $gettitle->{'holdingbranch'};
- $getreserv{'itemcallnumber'} = $gettitle->{'itemcallnumber'};
- $getreserv{'enumchron'} = $gettitle->{'enumchron'};
- $getreserv{'copynumber'} = $gettitle->{'copynumber'};
- if ( $homebranch ne $holdingbranch ) {
- $getreserv{'dotransfer'} = 1;
- }
- $getreserv{'borrowername'} = $getborrower->{'surname'};
- $getreserv{'borrowerfirstname'} = $getborrower->{'firstname'};
- $getreserv{'borrowerphone'} = $getborrower->{'phone'};