50927bb9b5
If a user only has the clubs and no permission from the tools section, they can't access the patron clubs page by navigation. This patch extends the permission checks for tools to include the clubs, that live on the tools page, but have a top level permission. To test: - create a patron with only the catalogue and clubs permissions - log in to the staff client as that patron - navigate to a patron record, confirm you can see the Clubs tab in the patron account, can add patrons to and remove patrons from clubs - confirm you don't have a link to the Tools module either on the Koha homepage or in the More menu - enter the clubs URL manually (/cgi-bin/koha/clubs/clubs.pl), confirm you are allowed to open the page - Apply patch - The only changes should be: - You can now see the Tools entry in the More navigation menu - You can now see the Tools module link on the start page - Both take you to the tools page, only visible tools is 'Patron clubs' Signed-off-by: Andrew Fuerste-Henry <andrewfh@dubcolib.org> Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
51 lines
1.6 KiB
Perl
Executable file
51 lines
1.6 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
use Modern::Perl;
|
|
|
|
use CGI qw ( -utf8 );
|
|
use C4::Auth qw( get_template_and_user );
|
|
use C4::Output qw( output_html_with_http_headers );
|
|
use C4::Tags qw( get_count_by_tag_status );
|
|
use Koha::Reviews;
|
|
|
|
my $query = CGI->new;
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "tools/tools-home.tt",
|
|
query => $query,
|
|
type => "intranet",
|
|
flagsrequired => [ tools => '*', clubs => '*' ],
|
|
}
|
|
);
|
|
|
|
my $pendingcomments = Koha::Reviews->search_limited({ approved => 0 })->count;
|
|
my $pendingtags = get_count_by_tag_status(0);
|
|
|
|
$template->param(
|
|
pendingcomments => $pendingcomments,
|
|
pendingtags => $pendingtags
|
|
);
|
|
|
|
if ( C4::Context->config('enable_plugins') ) {
|
|
my @tool_plugins = Koha::Plugins->new()->GetPlugins({
|
|
method => 'tool',
|
|
});
|
|
$template->param( tool_plugins => \@tool_plugins );
|
|
}
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|