From dd5a239a440f73478bb75c19007b7f620ff2f5dd Mon Sep 17 00:00:00 2001
From: berick <berick@esilibrary.com>
Date: Fri, 18 Feb 2011 13:33:19 -0500
Subject: [PATCH] if no login redirect is set, redirect to account instead of
 home page

---
 Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
index 9c78bbf4d3..f1e6d48700 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
@@ -239,12 +239,12 @@ sub load_login {
 
     # login succeeded, redirect as necessary
 
-    my $home = $self->apache->unparsed_uri;
-    $home =~ s/\/login/\/home/;
+    my $acct = $self->apache->unparsed_uri;
+    $acct =~ s#/login#/myopac/main#;
 
     $self->apache->print(
         $cgi->redirect(
-            -url => $cgi->param('redirect_to') || $home,
+            -url => $cgi->param('redirect_to') || $acct,
             -cookie => $cgi->cookie(
                 -name => 'ses',
                 -path => '/',
-- 
2.11.0