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");