-my @reserves = GetReservesFromBorrowernumber( $borrowernumber );
-foreach my $res (@reserves) {
-
- if ( $res->{'expirationdate'} eq '0000-00-00' ) {
- $res->{'expirationdate'} = '';
- }
- $res->{'subtitle'} = GetRecordValue('subtitle', GetMarcBiblio($res->{'biblionumber'}), GetFrameworkCode($res->{'biblionumber'}));
- $res->{'waiting'} = 1 if $res->{'found'} eq 'W';
- $res->{'branch'} = $branches->{ $res->{'branchcode'} }->{'branchname'};
- my $biblioData = GetBiblioData($res->{'biblionumber'});
- $res->{'reserves_title'} = $biblioData->{'title'};
- if ($OPACDisplayRequestPriority) {
- $res->{'priority'} = '' if $res->{'priority'} eq '0';
- }
- $res->{'suspend_until'} = C4::Dates->new( $res->{'suspend_until'}, "iso")->output("syspref") if ( $res->{'suspend_until'} );
-}
-
-# use Data::Dumper;
-# warn Dumper(@reserves);
-
-$template->param( RESERVES => \@reserves );
-$template->param( reserves_count => $#reserves+1 );
-$template->param( showpriority=>1 ) if $OPACDisplayRequestPriority;
-
-my @waiting;
-my $wcount = 0;
-foreach my $res (@reserves) {
- if ( $res->{'itemnumber'} ) {
- my $item = GetItem( $res->{'itemnumber'});
- $res->{'holdingbranch'} =
- $branches->{ $item->{'holdingbranch'} }->{'branchname'};
- $res->{'branch'} = $branches->{ $res->{'branchcode'} }->{'branchname'};
- # get document reserve status
- my $biblioData = GetBiblioData($res->{'biblionumber'});
- $res->{'waiting_title'} = $biblioData->{'title'};
- if ( ( $res->{'found'} eq 'W' ) ) {
- my $item = $res->{'itemnumber'};
- $item = GetBiblioFromItemNumber($item,undef);
- $res->{'wait'}= 1;
- $res->{'holdingbranch'}=$item->{'holdingbranch'};
- $res->{'biblionumber'}=$item->{'biblionumber'};
- $res->{'barcode'} = $item->{'barcode'};
- $res->{'wbrcode'} = $res->{'branchcode'};
- $res->{'itemnumber'} = $res->{'itemnumber'};
- $res->{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'};
- if($res->{'holdingbranch'} eq $res->{'wbrcode'}){
- $res->{'atdestination'} = 1;
- }
- # set found to 1 if reserve is waiting for patron pickup
- $res->{'found'} = 1 if $res->{'found'} eq 'W';
- } else {
- my ($transfertwhen, $transfertfrom, $transfertto) = GetTransfers( $res->{'itemnumber'} );
- if ($transfertwhen) {
- $res->{intransit} = 1;
- $res->{datesent} = $transfertwhen;
- $res->{frombranch} = GetBranchName($transfertfrom);
- }
- }
- push @waiting, $res;
- $wcount++;
- }
- # can be cancelled
- #$res->{'cancelable'} = 1 if ($res->{'wait'} && $res->{'atdestination'} && $res->{'found'} ne "1");
- $res->{'cancelable'} = 1 if ($res->{wait} and not $res->{found}) or (not $res->{wait} and not $res->{intransit});
-
-}
-
-$template->param( WAITING => \@waiting );