-my $max_pickup_delay = C4::Context->preference('ReservesMaxPickUpDelay');
-
-foreach my $num (@getreserves) {
- next unless ($num->{'waitingdate'} && $num->{'waitingdate'} ne '0000-00-00');
-
- my $itemnumber = $num->{'itemnumber'};
- my $item = Koha::Items->find( $itemnumber );
- my $biblio = $item->biblio;
- my $borrowernum = $num->{'borrowernumber'};
- my $holdingbranch = $item->holdingbranch;
- my $homebranch = $item->homebranch;
-
- my %getreserv = (
- itemnumber => $itemnumber,
- borrowernum => $borrowernum,
- );
-
- my $getborrower = GetMember(borrowernumber => $num->{'borrowernumber'});
- my $itemtype = Koha::ItemTypes->find( $item->effective_itemtype );
- $getreserv{'waitingdate'} = $num->{'waitingdate'};
- my ( $expire_year, $expire_month, $expire_day ) = split (/-/, $num->{'expirationdate'});
- my $calcDate = Date_to_Days( $expire_year, $expire_month, $expire_day );
-
- $getreserv{'itemtype'} = $itemtype->description; # FIXME Should not it be translated_description?
- $getreserv{'title'} = $biblio->title;
- $getreserv{'subtitle'} = GetRecordValue('subtitle', GetMarcBiblio($biblio->biblionumber), $biblio->frameworkcode);
- $getreserv{'biblionumber'} = $biblio->biblionumber;
- $getreserv{'barcode'} = $item->barcode;
- $getreserv{'homebranch'} = $homebranch;
- $getreserv{'holdingbranch'} = $item->holdingbranch;
- $getreserv{'itemcallnumber'} = $item->itemcallnumber;
- $getreserv{'enumchron'} = $item->enumchron;
- $getreserv{'copynumber'} = $item->copynumber;
- if ( $homebranch ne $holdingbranch ) {
- $getreserv{'dotransfer'} = 1;
- }
- $getreserv{'borrowername'} = $getborrower->{'surname'};
- $getreserv{'borrowerfirstname'} = $getborrower->{'firstname'};
- $getreserv{'borrowerphone'} = $getborrower->{'phone'};