- $branchname = $branches->{ $res->{'branchcode'} }->{'branchname'};
- my ($borr) = getpatroninformation( \%env, $res->{'borrowernumber'}, 0 );
- $title = $borr->{'title'};
- $surname = $borr->{'surname'};
- $firstname = $borr->{'firstname'};
- $borrowernumber = $borr->{'borrowernumber'};
- $borphone = $borr->{'phone'};
- $borstraddress = $borr->{'streetaddress'};
- $borcity = $borr->{'city'};
- $borzip = $borr->{'zipcode'};
- $boremail = $borr->{'emailadress'};
-
- #Hopefully, borr->{borrowernumber}=res->{borrowernumber}
- $borcnum = $borr->{'cardnumber'};