fix this to use redirect rather than forward

lukec · Jul 18, 2012 · 1333fe0 · 1333fe0
1 parent c8ec8e7
commit 1333fe0
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/lib/Biopay.pm b/lib/Biopay.pm
@@ -70,10 +70,9 @@ hook before => sub {
     }
 
     debug "no bio session, redirecting to login (from $path)";
-    forward ($path =~ m{^/member/} ? '/login' : '/admin-login'), {
+    session message => 'Please log-in first.';
-        message => "Please log-in first.",
+    session path => $path;
-        path => $path,
+    return redirect $path =~ m{^/member/} ? '/login' : '/admin-login';
-    }, { method => 'GET' };
 };
 
 get '/' => sub {
@@ -138,8 +137,10 @@ get '/stats-widget.js' => sub {
 };
 
 get '/login' => sub {
+    my $msg = param('message') || session('message') || '';
+    session 'message' => '' if $msg;
     template 'login' => { 
-        message => param('message') || '',
+        message => $msg,
         path => param('path') || session('path'),
     };
 };