+ $sth = $dbh->prepare("SELECT b.branchcode, b.branchname FROM categories_branches AS cb, branches AS b WHERE cb.branchcode = b.branchcode AND cb.categorycode = ?");
+ $sth->execute( $categorycode );
+ while ( my $branch = $sth->fetchrow_hashref ) {
+ push @selected_branches, $branch;
+ }
+ $sth->finish;
+ }
+
+ if ($data->{'enrolmentperioddate'} && $data->{'enrolmentperioddate'} eq '0000-00-00') {
+ $data->{'enrolmentperioddate'} = undef;
+ }
+ $data->{'category_type'} //= '';
+
+ my $branches = GetBranches;
+ my @branches_loop;
+ foreach my $branch (sort keys %$branches) {
+ my $selected = ( grep {$$_{branchcode} eq $branch} @selected_branches ) ? 1 : 0;
+ push @branches_loop, {
+ branchcode => $$branches{$branch}{branchcode},
+ branchname => $$branches{$branch}{branchname},
+ selected => $selected,
+ };
+ }