Bug 30650: Add link from the mainpage

Sponsored-by: Association KohaLa - https://koha-fr.org/

Signed-off-by: Koha Team University Lyon 3 <koha@univ-lyon3.fr>

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

koha-tmpl/intranet-tmpl/prog/en/modules/intranet-main.tt

@@ -166,7 +166,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_suggestions_suggestions_manage && ( pendingsuggestions || all_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.count ) || already_ran_jobs %]
+                        [% IF ( CAN_user_tools_moderate_comments  && pendingcomments ) || ( CAN_user_tools_moderate_tags && pendingtags ) || ( CAN_user_borrowers_edit_borrowers && pending_borrower_modifications ) || ( CAN_user_suggestions_suggestions_manage && ( pendingsuggestions || all_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.count ) || already_ran_jobs || new_curbside_pickups.count %]
                             <div id="area-pending">
                                 [% IF pending_article_requests %]
                                 <div class="pending-info" id="article_requests_pending">
@@ -241,6 +241,13 @@
                                     </div>
                                 [% END %]
 
+                                [% IF new_curbside_pickups.count %]
+                                    <div class="pending-info" id="new_curbside_pickups">
+                                        <a href="/cgi-bin/koha/circ/curbside_pickups.pl">New curbside pickups </a>
+                                        <span class="pending-number-link">[% new_curbside_pickups.count | html %]</span>
+                                    </div>
+                                [% END %]
+
                             </div>
 
                         [% END %]

mainpage.pl

@@ -34,6 +34,7 @@ use Koha::ProblemReports;
 use Koha::Quotes;
 use Koha::Suggestions;
 use Koha::BackgroundJobs;
+use Koha::CurbsidePickups;
 
 my $query = CGI->new;
 
@@ -108,6 +109,17 @@ unless ( $logged_in_user->has_permission( { parameters => 'manage_background_job
     $template->param( already_ran_jobs => $already_ran_jobs );
 }
 
+if ( C4::Context->preference('CurbsidePickup') ) {
+    $template->param(
+        new_curbside_pickups => Koha::CurbsidePickups->search(
+            {
+                branchcode                => $homebranch,
+                scheduled_pickup_datetime => { '>' => \'DATE(NOW())' },
+            }
+        )->filter_by_to_be_staged
+    );
+}
+
 $template->param(
     pendingcomments                => $pendingcomments,
     pendingtags                    => $pendingtags,