projects
/
evergreen-equinox.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
1e269b5
)
if no login redirect is set, redirect to account instead of home page
author
berick
<berick@esilibrary.com>
Fri, 18 Feb 2011 18:33:19 +0000 (13:33 -0500)
committer
berick
<berick@esilibrary.com>
Fri, 18 Feb 2011 18:33:19 +0000 (13:33 -0500)
Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
patch
|
blob
|
history
diff --git
a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
index
9c78bbf
..
f1e6d48
100644
(file)
--- 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 => '/',