Bug 22954: Minor markup error in OPAC messaging template
[koha.git] / admin / columns_settings.pl
blob5283963184ca3318b9566d155335c18e8f896865
1 #!/usr/bin/perl
3 use Modern::Perl;
4 use CGI;
5 use YAML qw( LoadFile );
6 use C4::Auth;
7 use C4::Context;
8 use C4::Output;
9 use C4::Utils::DataTables::ColumnsSettings qw( get_modules );
10 my $input = new CGI;
12 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
14 template_name => "admin/columns_settings.tt",
15 query => $input,
16 type => "intranet",
17 authnotrequired => 0,
18 flagsrequired => { parameters => 'manage_column_config' },
19 debug => 1,
23 my $action = $input->param('action') // 'list';
25 if ( $action eq 'save' ) {
26 my $module = $input->param('module');
27 my @columnids = $input->multi_param("columnid");
28 my @columns;
29 for my $columnid (@columnids) {
30 next unless $columnid =~ m|^([^#]*)#([^#]*)#(.*)$|;
31 my $is_hidden = $input->param( $columnid . '_hidden' ) // 0;
32 my $cannot_be_toggled =
33 $input->param( $columnid . '_cannot_be_toggled' ) // 0;
34 push @columns,
36 module => $module,
37 page => $1,
38 tablename => $2,
39 columnname => $3,
40 is_hidden => $is_hidden,
41 cannot_be_toggled => $cannot_be_toggled,
45 C4::Utils::DataTables::ColumnsSettings::update_columns(
47 columns => \@columns,
51 $action = 'list';
54 if ( $action eq 'list' ) {
55 my $modules = C4::Utils::DataTables::ColumnsSettings::get_modules;
56 $template->param(
57 panel => ( $input->param('panel') || 0 ),
58 modules => $modules,
62 output_html_with_http_headers $input, $cookie, $template->output;