|
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 |
- |
|
|