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