-# reload the borrower info for the sake of reseting the flags.....
-if ($borrowernumber) {
- $borrower = GetMemberDetails( $borrowernumber, 0 );
-}
-
-##################################################################################
-# BUILD HTML
-# show all reserves of this borrower, and the position of the reservation ....
-if ($borrowernumber) {
-
- # new op dev
- # now we show the status of the borrower's reservations
- my @borrowerreserv = GetReservesFromBorrowernumber($borrowernumber );
- my @reservloop;
- my @WaitingReserveLoop;
-
- foreach my $num_res (@borrowerreserv) {
- my %getreserv;
- my %getWaitingReserveInfo;
- my $getiteminfo = GetBiblioFromItemNumber( $num_res->{'itemnumber'} );
- my $itemtypeinfo = getitemtypeinfo( (C4::Context->preference('item-level_itypes')) ? $getiteminfo->{'itype'} : $getiteminfo->{'itemtype'} );
- my ( $transfertwhen, $transfertfrom, $transfertto ) =
- GetTransfers( $num_res->{'itemnumber'} );
-
- $getreserv{waiting} = 0;
- $getreserv{transfered} = 0;
- $getreserv{nottransfered} = 0;
-
- $getreserv{reservedate} = format_date( $num_res->{'reservedate'} );
- $getreserv{reservenumber} = $num_res->{'reservenumber'};
- $getreserv{title} = $getiteminfo->{'title'};
- $getreserv{itemtype} = $itemtypeinfo->{'description'};
- $getreserv{author} = $getiteminfo->{'author'};
- $getreserv{barcodereserv} = $getiteminfo->{'barcode'};
- $getreserv{itemcallnumber} = $getiteminfo->{'itemcallnumber'};
- $getreserv{biblionumber} = $getiteminfo->{'biblionumber'};
- $getreserv{waitingat} = GetBranchName( $num_res->{'branchcode'} );
- $getreserv{suspend} = $num_res->{'suspend'};
- $getreserv{suspend_until} = $num_res->{'suspend_until'};
- # check if we have a waiting status for reservations
- if ( $num_res->{'found'} eq 'W' ) {
- $getreserv{color} = 'reserved';
- $getreserv{waiting} = 1;
-# genarate information displaying only waiting reserves
- $getWaitingReserveInfo{title} = $getiteminfo->{'title'};
- $getWaitingReserveInfo{biblionumber} = $getiteminfo->{'biblionumber'};
- $getWaitingReserveInfo{itemtype} = $itemtypeinfo->{'description'};
- $getWaitingReserveInfo{author} = $getiteminfo->{'author'};
- $getWaitingReserveInfo{reservedate} = format_date( $num_res->{'reservedate'} );
- $getWaitingReserveInfo{waitingat} = GetBranchName( $num_res->{'branchcode'} );
- $getWaitingReserveInfo{waitinghere} = 1 if $num_res->{'branchcode'} eq $branch;
- }
- # check transfers with the itemnumber foud in th reservation loop
- if ($transfertwhen) {
- $getreserv{color} = 'transfered';
- $getreserv{transfered} = 1;
- $getreserv{datesent} = format_date($transfertwhen);
- $getreserv{frombranch} = GetBranchName($transfertfrom);
- } elsif ($getiteminfo->{'holdingbranch'} ne $num_res->{'branchcode'}) {
- $getreserv{nottransfered} = 1;
- $getreserv{nottransferedby} = GetBranchName( $getiteminfo->{'holdingbranch'} );
- }