redirect users after login to http

diff --git a/C4/Auth.pm b/C4/Auth.pm
index 85f0676..ac19b33 100644 (file)
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -744,6 +744,13 @@ sub checkauth {
 
                        $loggedin = 1;
 
+                       if ( $type eq 'opac' ) {
+                                       # FIXME 2011-12-20 dpavlin -- redirect logged in users to http
+                                       print $query->redirect( -uri => 'http://' . $query->virtual_host, -status => 302, -cookie => $cookie );
+#                                      exit;
+                                       warn "XXX redirect to ", $query->virtual_host;
+                       }
+
                } else {
                        die "Can't find SAML token $token for user $userid\n";
                }