Comparing reserves' destination branch to the current holding branch to determine...

diff --git a/request.pl b/request.pl
index 1f28e76..39ccc26 100755 (executable)
--- a/request.pl
+++ b/request.pl
@@ -133,10 +133,14 @@ foreach my $res (sort {$a->{'found'} cmp $b->{'found'}} @$reserves){
                my %env;
                my $item = $res->{'itemnumber'};
                $item = getiteminformation(\%env,$item);
+               $reserve{'holdingbranch'}=$item->{'holdingbranch'};
                $reserve{'barcode'}=$item->{'barcode'};
                $reserve{'biblionumber'}=$item->{'biblionumber'};
                $reserve{'wbrcode'} = $res->{'branchcode'};
                $reserve{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'};
+               if($reserve{'holdingbranch'} eq $reserve{'wbrcode'}){
+                       $reserve{'atdestination'} = 1;
+               }
     }
     $reserve{'date'} = format_date($res->{'reservedate'});
        $reserve{'borrowernumber'}=$res->{'borrowernumber'};