View | Details | Raw Unified | Return to bug 35953
Collapse All | Expand All

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt (-1 / +1 lines)
Lines 135-141 Link Here
135
                            </li>
135
                            </li>
136
                        [% END %]
136
                        [% END %]
137
137
138
                        [% IF ( CAN_user_editcatalogue_edit_catalogue || CAN_user_editcatalogue_edit_items || ( fast_cataloging && CAN_user_editcatalogue_fast_cataloging || can_see_cataloguing_module ) ) %]
138
                        [% IF ( !only_delete_bibliographic_records_permission && ( CAN_user_editcatalogue_edit_catalogue || CAN_user_editcatalogue_edit_items || ( fast_cataloging && CAN_user_editcatalogue_fast_cataloging || can_see_cataloguing_module ) ) ) %]
139
                            <li>
139
                            <li>
140
                                <a class="icon_general icon_cataloging" href="/cgi-bin/koha/cataloguing/cataloging-home.pl"><i class="fa fa-fw fa-tag"></i>Cataloging</a>
140
                                <a class="icon_general icon_cataloging" href="/cgi-bin/koha/cataloguing/cataloging-home.pl"><i class="fa fa-fw fa-tag"></i>Cataloging</a>
141
                            </li>
141
                            </li>
(-)a/mainpage.pl (-4 / +16 lines)
Lines 20-28 Link Here
20
# along with Koha; if not, see <https://www.gnu.org/licenses>.
20
# along with Koha; if not, see <https://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI        qw ( -utf8 );
23
use CGI          qw ( -utf8 );
24
use C4::Output qw( output_html_with_http_headers );
24
use Scalar::Util qw( reftype );
25
use C4::Auth   qw( get_template_and_user );
25
use C4::Output   qw( output_html_with_http_headers );
26
use C4::Auth     qw( get_all_subpermissions get_template_and_user );
26
use C4::Koha;
27
use C4::Koha;
27
use C4::Tags qw( get_count_by_tag_status );
28
use C4::Tags qw( get_count_by_tag_status );
28
use Koha::AdditionalContents;
29
use Koha::AdditionalContents;
Lines 79-84 my $branch = Link Here
79
    ? C4::Context->userenv()->{'branch'}
80
    ? C4::Context->userenv()->{'branch'}
80
    : undef;
81
    : undef;
81
82
83
# Do not let patrons with only delete_bibliographic_records permission to access Catalogue modal
84
my $editcatalogue_flags = $flags->{'editcatalogue'};
85
if (   reftype($editcatalogue_flags)
86
    && reftype($editcatalogue_flags) eq "HASH"
87
    && scalar( keys %$editcatalogue_flags ) == 1
88
    && $editcatalogue_flags->{'delete_bibliographic_records'} )
89
{
90
    $template->param(
91
        only_delete_bibliographic_records_permission => 1,
92
    );
93
}
94
82
my $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;
95
my $pendingcomments = Koha::Reviews->search_limited( { approved => 0 } )->count;
83
my $pendingtags     = get_count_by_tag_status(0);
96
my $pendingtags     = get_count_by_tag_status(0);
84
97
85
- 

Return to bug 35953