if no login redirect is set, redirect to account instead of home page
authorberick <berick@esilibrary.com>
Fri, 18 Feb 2011 18:33:19 +0000 (13:33 -0500)
committerberick <berick@esilibrary.com>
Fri, 18 Feb 2011 18:33:19 +0000 (13:33 -0500)
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm

index 9c78bbf..f1e6d48 100644 (file)
@@ -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 => '/',