elsif ( $op eq 'categorydelete_confirmed' ) {
# actually delete branch and return to the main screen....
- DeleteBranchCategory($categorycode);
+ DelBranchCategory($categorycode);
$template->param( else => 1 );
default("MESSAGE6",$template);
{
categoryname => $cat->{'categoryname'},
categorycode => $cat->{'categorycode'},
+ categorytype => $cat->{'categorytype'},
codedescription => $cat->{'codedescription'},
checked => $checked,
};
my ($categorycode,$innertemplate) = @_;
warn "cat : $categorycode";
my $data;
- if ($categorycode) {
+ my @cats;
+ $innertemplate->param( categorytype => \@cats);
+ if ($categorycode) {
$data = GetBranchCategory($categorycode);
$data = $data->[0];
- $innertemplate->param( categorycode => $data->{'categorycode'} );
- $innertemplate->param( categoryname => $data->{'categoryname'} );
- $innertemplate->param( codedescription => $data->{'codedescription'} );
+ $innertemplate->param( categorycode => $data->{'categorycode'} ,
+ categoryname => $data->{'categoryname'},
+ codedescription => $data->{'codedescription'} ,
+ );
}
+ for my $ctype (GetCategoryTypes()) {
+ push @cats , { type => $ctype , selected => ($data->{'categorytype'} eq $ctype) };
+ }
}
sub deleteconfirm {
$branchinfo = GetBranchInfo($branchcode);
}
else {
- $branchinfo = GetBranchInfo();
+ $branchinfo = GetBranchInfo(undef,'properties');
}
my $toggle;
my $i;
# Handle categories
my $no_categories_p = 1;
- my @categories = '';
+ my @categories;
foreach my $cat ( @{ $branch->{'categories'} } ) {
my ($catinfo) = @{ GetBranchCategory($cat) };
push @categories, { 'categoryname' => $catinfo->{'categoryname'} };
$i++;
}
my @branchcategories = ();
- my $catinfo = GetBranchCategory();
- $i = 0;
- foreach my $cat (@$catinfo) {
- ( $i % 2 ) ? ( $toggle = 1 ) : ( $toggle = 0 );
- push @branchcategories,
- {
- toggle => $toggle,
- categoryname => $cat->{'categoryname'},
- categorycode => $cat->{'categorycode'},
- codedescription => $cat->{'codedescription'},
- };
- $i++;
- }
-
+ for my $ctype ( GetCategoryTypes() ) {
+ my $catinfo = GetBranchCategories(undef,$ctype);
+ my @categories;
+ foreach my $cat (@$catinfo) {
+ push @categories,
+ {
+ categoryname => $cat->{'categoryname'},
+ categorycode => $cat->{'categorycode'},
+ codedescription => $cat->{'codedescription'},
+ categorytype => $cat->{'categorytype'},
+ };
+ }
+ push @branchcategories, { categorytype => $ctype , $ctype => 1 , catloop => \@categories};
+ }
$innertemplate->param(
branches => \@loop_data,
branchcategories => \@branchcategories
}
-# FIXME logic seems wrong
+# FIXME logic seems wrong ## sub is not used.
sub branchcategoriestable {
my $innertemplate = shift;
#Needs to be implemented...
}
}
-$template->param(
- intranetcolorstylesheet =>
- C4::Context->preference("intranetcolorstylesheet"),
- intranetstylesheet => C4::Context->preference("intranetstylesheet"),
- IntranetNav => C4::Context->preference("IntranetNav"),
-);
output_html_with_http_headers $input, $cookie, $template->output;
# Local Variables: