diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm index 1f1dd80ca2..fe717d097d 100644 --- a/C4/Reports/Guided.pm +++ b/C4/Reports/Guided.pm @@ -220,10 +220,13 @@ sub _get_columns { $tablehash{'__first__'} = $first; push @columns, \%tablehash; while ( my $data = $sth->fetchrow_arrayref() ) { - my %temphash; - $temphash{'name'} = "$tablename.$data->[0]"; - $temphash{'description'} = $columns->{$tablename}->{$data->[0]}; - push @columns, \%temphash; + my $forbidden = Koha::Report->new->check_columns( undef, [$data->[0]] ); + unless ( $forbidden ) { + my %temphash; + $temphash{'name'} = "$tablename.$data->[0]"; + $temphash{'description'} = $columns->{$tablename}->{$data->[0]}; + push @columns, \%temphash; + } } $sth->finish(); return (@columns); diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/dictionary.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/dictionary.tt index facf3987be..568c0f817d 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/dictionary.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/reports/dictionary.tt @@ -140,6 +140,16 @@