From 90a1f78ce15a27f948f456bdbbf03cc0db5acd3e Mon Sep 17 00:00:00 2001
From: Mike Rylander <mrylander@gmail.com>
Date: Wed, 18 Feb 2015 16:40:50 -0500
Subject: [PATCH] LP#1410369: Show unread message count in the patron dashboard

Signed-off-by: Mike Rylander <mrylander@gmail.com>
---
 Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm | 8 +++++++-
 Open-ILS/src/templates/opac/parts/topnav.tt2           | 6 ++++++
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
index be97787a27..8cc967c32f 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor.pm
@@ -1744,6 +1744,11 @@ sub user_opac_vitals {
 
     $out->{"total_out"} = reduce { $a + $out->{$b} } 0, qw/out overdue long_overdue/;
 
+    my $unread_msgs = $e->search_actor_usr_message([
+        {usr => $user_id, read_date => undef, deleted => 'f'},
+        {idlist => 1}
+    ]);
+
     return {
         user => {
             first_given_name  => $user->first_given_name,
@@ -1754,7 +1759,8 @@ sub user_opac_vitals {
         },
         fines => $fines->to_bare_hash,
         checkouts => $out,
-        holds => $holds
+        holds => $holds,
+        messages => { unread => scalar(@$unread_msgs) }
     };
 }
 
diff --git a/Open-ILS/src/templates/opac/parts/topnav.tt2 b/Open-ILS/src/templates/opac/parts/topnav.tt2
index 0cf554c969..62982b7895 100644
--- a/Open-ILS/src/templates/opac/parts/topnav.tt2
+++ b/Open-ILS/src/templates/opac/parts/topnav.tt2
@@ -55,6 +55,12 @@
                         %]"><span id="dash_fines">[% money(ctx.user_stats.fines.balance_owed)
                         %]</span> [% l("Fines") %]</a>
                 </span>
+                <span class="dash_divider">|</span>
+                <span class="dash-align">
+                    <a class="dash-link" href="[% mkurl(ctx.opac_root _ '/myopac/messages')
+                        %]"><span id="dash_messages">[% money(ctx.user_stats.messages.unread)
+                        %]</span> [% l("Unread Messages") %]</a>
+                </span>
             </div>
         </div>
         [% END %]
-- 
2.11.0