-# FIXME logic seems wrong ## sub is not used.
-sub branchcategoriestable {
- my $innertemplate = shift;
- #Needs to be implemented...
-
- my $categoryinfo = GetBranchCategory();
- my $color;
- foreach my $cat (@$categoryinfo) {
- $innertemplate->param( categoryname => $cat->{'categoryname'} );
- $innertemplate->param( categorycode => $cat->{'categorycode'} );
- $innertemplate->param( codedescription => $cat->{'codedescription'} );
- }
+sub _branch_to_template {
+ my ($data, $template) = @_;
+ $template->param(
+ branchcode => $data->{'branchcode'},
+ branch_name => $data->{'branchname'},
+ branchaddress1 => $data->{'branchaddress1'},
+ branchaddress2 => $data->{'branchaddress2'},
+ branchaddress3 => $data->{'branchaddress3'},
+ branchzip => $data->{'branchzip'},
+ branchcity => $data->{'branchcity'},
+ branchstate => $data->{'branchstate'},
+ branchcountry => $data->{'branchcountry'},
+ branchphone => $data->{'branchphone'},
+ branchfax => $data->{'branchfax'},
+ branchemail => $data->{'branchemail'},
+ branchurl => $data->{'branchurl'},
+ opac_info => $data->{'opac_info'},
+ branchip => $data->{'branchip'},
+ branchnotes => $data->{'branchnotes'},
+ );