[svn:p5ee] r7932 - p5ee/trunk/App-Context/lib/App/Request

Author: spadkins
Date: Tue Oct 10 13:40:04 2006
New Revision: 7932

Modified:
   p5ee/trunk/App-Context/lib/App/Request/CGI.pm

Log:
use the options->{default_cname} if defined for the name of the widget that represents the web app

Modified: p5ee/trunk/App-Context/lib/App/Request/CGI.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/Request/CGI.pm	(original)
+++ p5ee/trunk/App-Context/lib/App/Request/CGI.pm	Tue Oct 10 13:40:04 2006
@@ -314,6 +314,9 @@
             elsif ($path_info =~ m!^/([a-zA-Z_][a-zA-Z0-9._-]*)$!) {
                 $name = $1;
             }
+            elsif ($options->{default_cname}) {
+                $name = $options->{default_cname};
+            }
             else {
                 $name = $app;
             }