projects
/
evergreen
/
equinox.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(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 => '/',