- finesview => 1,
- firstname => $data->{'firstname'},
- surname => $data->{'surname'},
- borrowernumber => $borrowernumber,
- cardnumber => $data->{'cardnumber'},
- categorycode => $data->{'categorycode'},
- category_type => $data->{'category_type'},
- # category_description => $data->{'description'},
- categoryname => $data->{'description'},
- address => $data->{'address'},
- address2 => $data->{'address2'},
- city => $data->{'city'},
- zipcode => $data->{'zipcode'},
- country => $data->{'country'},
- phone => $data->{'phone'},
- email => $data->{'email'},
- branchcode => $data->{'branchcode'},
- branchname => GetBranchName($data->{'branchcode'}),
- total => sprintf("%.2f",$total),
- totalcredit => $totalcredit,
- is_child => ($data->{'category_type'} eq 'C'),
- accounts => \@accountrows );
+ patron => $patron,
+ finesview => 1,
+ total => sprintf( "%.2f", $total ),
+ totalcredit => $totalcredit,
+ accounts => [$accountline], # FIXME There is always only 1 row!
+);