Show birthdays in menu

[ndwebbie.git] / lib / NDWeb / Controller / Root.pm

diff --git a/lib/NDWeb/Controller/Root.pm b/lib/NDWeb/Controller/Root.pm
index 7d5bf1ca2a32e5f422b51ce69824afe4fa572b6d..a1eac62c9f76b8cf7bd932a97dd14a4ba56d4c83 100644 (file)
--- a/lib/NDWeb/Controller/Root.pm
+++ b/lib/NDWeb/Controller/Root.pm
@@ -61,7 +61,7 @@ sub login : Local {
                        ,$country,$c->sessionid,$remember);
 
                my $ref = $c->req->referer;
-               $ref =~ s/^http:/https:/;
+               $ref =~ s/^http:/https:/ unless $c->debug;
                $c->res->redirect($ref);
                return;
        }
@@ -198,6 +198,15 @@ sub end : ActionClass('RenderView') {
                                        || $c->check_user_roles(qw/no_fleet_update/)))),
                $c->forward('listTargets');
        }
+       if ($c->res->status == 200){
+               my $birthdays = $dbh->prepare(q{SELECT username
+                       ,date_part('year',age(birthday)) AS age
+                       FROM users WHERE birthday IS NOT NULL
+                               AND mmdd(birthday) = mmdd(CURRENT_DATE)
+               });
+               $birthdays->execute;
+               $c->stash(birthdays => $birthdays->fetchall_arrayref({}));
+       }
 }
 
 =head1 AUTHOR