From: berick <berick@esilibrary.com>
Date: Fri, 18 Feb 2011 18:33:19 +0000 (-0500)
Subject: if no login redirect is set, redirect to account instead of home page
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=8dc4956d6558e5d8946ffe71f8ad947ff2c72437;p=evergreen%2Fequinox.git

if no login redirect is set, redirect to account instead of home page
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
index f19930c91f..43a679fb43 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 => '/',