[%# 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 ) || ( 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 ) %]
+ [% 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 ) || ( 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 ) || patrons.size > 0 || selfRegisteredPatrons > 0 %]
[% IF pending_article_requests %]
[% END %]
- [% IF ( CAN_user_tools_moderate_comments && pendingcomments ) %]
+ [% IF ( CAN_user_tools_moderate_comments && pendingcomments ) %]
[% END %]
+
+ [% IF selfRegisteredPatrons.size > 0 %]
+
+
+ Pre-registered patron(s) from:
+
+
+ [% END %]
+
+ [% IF branch %]
+
+ [% IF pre_insc.size >= 1 %]
+
+
+
+ [% END %]
+
+
+ [% END %]
[% END %]
@@ -268,6 +297,14 @@
});
//]]>
+
+
[% END %]
[% INCLUDE 'intranet-bottom.inc' %]
--- a/mainpage.pl
+++ a/mainpage.pl
@@ -33,6 +33,9 @@ use Koha::ArticleRequests;
use Koha::ProblemReports;
use Koha::Quotes;
use Koha::Suggestions;
+use Template::Stash;
+
+use Data::Dumper;
my $query = CGI->new;
@@ -99,6 +102,24 @@ my $pending_article_requests = Koha::ArticleRequests->search_limited(
)->count;
my $pending_problem_reports = Koha::ProblemReports->search({ status => 'New' });
+
+my $PatronSelfRegistrationDefaultCategory = C4::Context->preference('PatronSelfRegistrationDefaultCategory');
+if ($PatronSelfRegistrationDefaultCategory) {
+ my @selfRegisteredPatrons = Koha::Patrons->search({ categorycode => $PatronSelfRegistrationDefaultCategory });
+ my $homebranch = C4::Context->userenv->{'branch'};
+ my @pre_insc = Koha::Patrons->search({ categorycode => $PatronSelfRegistrationDefaultCategory, branchcode => $homebranch });
+
+ $template->param(
+ selfRegisteredPatrons => \@selfRegisteredPatrons,
+ PatronSelfRegistrationDefaultCategory => $PatronSelfRegistrationDefaultCategory,
+ branch => $homebranch,
+ pre_insc => \@pre_insc,
+
+ );
+}
+
+
+
$template->param(
pendingcomments => $pendingcomments,
pendingtags => $pendingtags,
--