-# 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=borrdata('',$routinglist[$i]->{'borrowernumber'});
- $data->{'location'}=$data->{'streetaddress'};
- $data->{'name'}="$data->{'firstname'} $data->{'surname'}";
- $data->{'routingid'}=$routinglist[$i]->{'routingid'};
- $data->{'subscriptionid'}=$subscriptionid;
- my $rankingbox = '<select name="itemrank" onchange="reorder_item('.$subscriptionid.','.$routinglist[$i]->{'routingid'}.',this.options[this.selectedIndex].value)">';
- for(my $j=1; $j <= $routing; $j++) {
- $rankingbox .= "<option ";
- if($routinglist[$i]->{'ranking'} == $j){
- $rankingbox .= " selected='SELECTED'";
- }
- $rankingbox .= " value='$j'>$j</option>";
+
+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| |;