query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { parameters => 1},
+ flagsrequired => { parameters => 'parameters_remaining_permissions'},
debug => 1,
}
);
$template->param( else => 1 );
# confirm settings change...
my $params = $input->Vars;
+ $params->{'show_in_pulldown'} = ( $params->{'show_in_pulldown'} eq 'on' ) ? 1 : 0;
+
unless ( $params->{'categorycode'} && $params->{'categoryname'} ) {
default("MESSAGE4",$template);
}
my $data;
my $oldprinter = "";
+
+ # make the checkboxes.....
+ my $catinfo = GetBranchCategories();
+
if ($branchcode) {
$data = GetBranchInfo($branchcode);
$data = $data->[0];
+ if ( exists $data->{categories} ) {
+ # Set the selected flag for the categories of this branch
+ $catinfo = [
+ map {
+ my $catcode = $_->{categorycode};
+ if ( grep {/$catcode/} @{$data->{categories}} ){
+ $_->{selected} = 1;
+ }
+ $_;
+ } @{$catinfo}
+ ];
+ }
# get the old printer of the branch
$oldprinter = $data->{'branchprinter'} || '';
_branch_to_template($data, $innertemplate);
}
+ $innertemplate->param( categoryloop => $catinfo );
foreach my $thisprinter ( keys %$printers ) {
push @printerloop, {
}
$innertemplate->param( printerloop => \@printerloop );
- # make the checkboxes.....
- #
- # We export a "categoryloop" array to the template, each element of which
- # contains separate 'categoryname', 'categorycode', 'codedescription', and
- # 'checked' fields. The $checked field is either empty or 1'
-
- my $catinfo = GetBranchCategory();
- my @categoryloop = ();
- foreach my $cat (@$catinfo) {
- my $checked;
- my $tmp = quotemeta( $cat->{'categorycode'} );
- if ( grep { /^$tmp$/ } @{ $data->{'categories'} } ) {
- $checked = 1;
- }
- push @categoryloop, {
- categoryname => $cat->{'categoryname'},
- categorycode => $cat->{'categorycode'},
- categorytype => $cat->{'categorytype'},
- codedescription => $cat->{'codedescription'},
- checked => $checked,
- };
- }
- $innertemplate->param( categoryloop => \@categoryloop );
for my $obsolete ( 'categoryname', 'categorycode', 'codedescription' ) {
$innertemplate->param(
my $data;
if ($categorycode) {
my $data = GetBranchCategory($categorycode);
- $data = $data->[0];
$innertemplate->param(
categorycode => $data->{'categorycode'},
categoryname => $data->{'categoryname'},
codedescription => $data->{'codedescription'},
+ show_in_pulldown => $data->{'show_in_pulldown'},
);
}
for my $ctype (GetCategoryTypes()) {
# - branchfax |
# - branchemail /
# - branchurl /
+ # - opac_info (can contain HTML)
# - address-empty-p (1 if no address information, 0 otherwise)
# - categories (containing a static error message)
# - category_list (loop containing "categoryname")
'branchaddress3', 'branchzip',
'branchcity', 'branchstate', 'branchcountry',
'branchphone', 'branchfax',
- 'branchemail', 'branchurl',
+ 'branchemail', 'branchurl', 'opac_info',
'branchip', 'branchprinter', 'branchnotes'
)
{
my $no_categories_p = 1;
my @categories;
foreach my $cat ( @{ $branch->{'categories'} } ) {
- my ($catinfo) = @{ GetBranchCategory($cat) };
+ my $catinfo = GetBranchCategory($cat);
push @categories, { 'categoryname' => $catinfo->{'categoryname'} };
$no_categories_p = 0;
}
}
my @branchcategories = ();
for my $ctype ( GetCategoryTypes() ) {
- my $catinfo = GetBranchCategories(undef,$ctype);
- my @categories;
+ my $catinfo = GetBranchCategories($ctype);
+ my @categories;
foreach my $cat (@$catinfo) {
push @categories, {
categoryname => $cat->{'categoryname'},
branchfax => $data->{'branchfax'},
branchemail => $data->{'branchemail'},
branchurl => $data->{'branchurl'},
+ opac_info => $data->{'opac_info'},
branchip => $data->{'branchip'},
branchnotes => $data->{'branchnotes'},
);