-# my $date;
-# if($serialseq){
-# for(my $i = 0;$i<@serials; $i++){
-# if($serials[$i]->{'serialseq'} eq $serialseq){
-# $date = $serials[$i]->{'planneddate'}
-# }
-# }
-# } else {
-# $serialseq = $serials[0]->{'serialseq'};
-# $date = $serials[0]->{'planneddate'};
-# }
-
-# my $issue = "$serialseq ($date)";
-
-my @results;
-my $data;
-for(my $i=0;$i<$routing;$i++){
- $data=GetMember($routinglist[$i]->{'borrowernumber'},'borrowernumber');
- $data->{'location'}=$data->{'branchcode'};
- if ($data->{firstname} ) {
- $data->{name} = $data->{firstname} . q| |;
+
+my $member_loop = [];
+for my $routing ( @routinglist ) {
+ my $member=GetMember('borrowernumber' => $routing->{borrowernumber});
+ $member->{location} = $member->{branchcode};
+ if ($member->{firstname} ) {
+ $member->{name} = $member->{firstname} . q| |;