[svn:p5ee] r13660 - p5ee/trunk/App-Context/lib/App
[email protected] Mon, 14 Dec 2009 00:02:17 -0800 (PST)
| Newsgroups | perl.cvs.p5ee |
|---|---|
| Message-ID | <[email protected]> |
Author: spadkins
Date: Mon Dec 14 00:02:15 2009
New Revision: 13660
Modified:
p5ee/trunk/App-Context/lib/App/Context.pm
Log:
fixed Repository alias'es
Modified: p5ee/trunk/App-Context/lib/App/Context.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Context.pm (original)
+++ p5ee/trunk/App-Context/lib/App/Context.pm Mon Dec 14 00:02:15 2009
@@ -633,10 +633,11 @@
##############################################################
if (!$service_initialized && $service_conf) {
my $alias = $service_conf->{alias};
- if ($alias) {
+ if ($alias && $alias ne $name) {
+ $service = $session->{cache}{$type}{$alias};
+ $service = $self->service($type, $alias) if (!$service);
+ $service_conf = $conf->{$type}{$alias};
$name = $alias;
- $service = $session->{cache}{$type}{$name};
- $service_conf = $conf->{$type}{$name};
}
elsif ($type ne "Authorization" && ($service_conf->{clone} || $service_conf->{auth_clone})) {
my $clone = $self->get_auth_attrib_value($service_conf, $type, $name, "clone");