From 12d2d3f69bbd04889e21ccd4568a1b40dadfad2c Mon Sep 17 00:00:00 2001
From: Aleisha Amohia <aleishaamohia@hotmail.com>
Date: Tue, 10 Mar 2020 22:52:29 +0000
Subject: [PATCH] Bug 4461: Add problem reports link to mainpage and admin home

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
---
 koha-tmpl/intranet-tmpl/prog/en/includes/admin-menu.inc  | 3 +++
 .../intranet-tmpl/prog/en/modules/admin/admin-home.tt    | 4 ++++
 koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt | 9 ++++++++-
 mainpage.pl                                              | 3 +++
 4 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/admin-menu.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/admin-menu.inc
index fd5d5953a6..c5bd432b9e 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/admin-menu.inc
+++ b/koha-tmpl/intranet-tmpl/prog/en/includes/admin-menu.inc
@@ -151,6 +151,9 @@
             [% IF ( Koha.Preference('EnableAdvancedCatalogingEditor') && CAN_user_parameters_manage_keyboard_shortcuts ) %]
                 <li><a href="/cgi-bin/koha/admin/adveditorshortcuts.pl">Keyboard shortcuts</a></li>
             [% END %]
+            [% IF ( Koha.Preference('OPACReportProblem') && CAN_user_problem_reports ) %]
+                <li><a href="/cgi-bin/koha/admin/problem-reports.pl">OPAC problem reports</a></li>
+            [% END %]
         </ul>
     [% END %]
 </div>
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/admin-home.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/admin-home.tt
index dc162f47df..fded276005 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/admin-home.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/admin-home.tt
@@ -238,6 +238,10 @@
                         <dt><a href="/cgi-bin/koha/admin/adveditorshortcuts.pl">Keyboard shortcuts</a></dt>
                         <dd>Define which keys trigger actions in the advanced cataloging editor</dd>
                     [% END %]
+                    [% IF ( Koha.Preference('OPACReportProblem') && CAN_user_problem_reports ) %]
+                        <dt><a href="/cgi-bin/koha/admin/problem-reports.pl">OPAC problem reports</a></dt>
+                        <dd>Manage OPAC problem reports submitted by patrons</dd>
+                    [% END %]
                 </dl>
             [% END %]
             </div>
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt
index f6a213523e..e094e74e59 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt
@@ -134,7 +134,7 @@
                 <div class="row">
                     <div class="col-sm-12">
                         [%# Following statement must be in one line for translatability %]
-                        [% IF ( ( CAN_user_tools_moderate_comments  && pendingcomments ) || ( CAN_user_tools_moderate_tags && pendingtags ) || ( CAN_user_borrowers_edit_borrowers && pending_borrower_modifications ) || ( CAN_user_acquisition && pendingsuggestions ) || ( CAN_user_borrowers_edit_borrowers && pending_discharge_requests ) || pending_article_requests) || ( Koha.Preference('AllowCheckoutNotes') && CAN_user_circulate_manage_checkout_notes && pending_checkout_notes.count ) %]
+                        [% IF ( CAN_user_tools_moderate_comments  && pendingcomments ) || ( CAN_user_tools_moderate_tags && pendingtags ) || ( CAN_user_borrowers_edit_borrowers && pending_borrower_modifications ) || ( CAN_user_acquisition && pendingsuggestions ) || ( CAN_user_borrowers_edit_borrowers && pending_discharge_requests ) || pending_article_requests || ( Koha.Preference('AllowCheckoutNotes') && CAN_user_circulate_manage_checkout_notes && pending_checkout_notes.count ) || ( Koha.Preference('OPACReportProblem') && CAN_user_problem_reports && pending_problem_reports ) %]
                             <div id="area-pending">
                                 [% IF pending_article_requests %]
                                 <div class="pending-info" id="article_requests_pending">
@@ -188,6 +188,13 @@
                                     </div>
                                 [% END %]
 
+                                [% IF ( Koha.Preference('OPACReportProblem') && CAN_user_problem_reports && pending_problem_reports ) %]
+                                    <div class="pending-info" id="problem_reports_pending">
+                                        <a href="/cgi-bin/koha/admin/problem-reports.pl">OPAC problem reports pending</a>:
+                                        <span class="pending-number-link">[% pending_problem_reports.count | html %]</span>
+                                    </div>
+                                [% END %]
+
                             </div>
 
                         [% END %]
diff --git a/mainpage.pl b/mainpage.pl
index 49f46fc272..75072b1073 100755
--- a/mainpage.pl
+++ b/mainpage.pl
@@ -31,6 +31,7 @@ use Koha::Patron::Modifications;
 use Koha::Patron::Discharge;
 use Koha::Reviews;
 use Koha::ArticleRequests;
+use Koha::ProblemReports;
 
 my $query = new CGI;
 
@@ -74,6 +75,7 @@ my $pending_article_requests = Koha::ArticleRequests->search_limited(
         $branch ? ( 'me.branchcode' => $branch ) : (),
     }
 )->count;
+my $pending_problem_reports = Koha::ProblemReports->search({ status => 'N' });
 
 $template->param(
     pendingcomments                => $pendingcomments,
@@ -82,6 +84,7 @@ $template->param(
     pending_borrower_modifications => $pending_borrower_modifications,
     pending_discharge_requests     => $pending_discharge_requests,
     pending_article_requests       => $pending_article_requests,
+    pending_problem_reports        => $pending_problem_reports
 );
 
 output_html_with_http_headers $query, $cookie, $template->output;
-- 
2.39.5