cvsuser 05/03/14 12:45:20
Modified: P5EEx/Blue/P5EEx/Blue Context.pm
Log:
assume generic type
Revision Changes Path
1.43 +10 -9 p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm
Index: Context.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Context.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -r1.42 -r1.43
--- Context.pm 30 Dec 2002 18:57:01 -0000 1.42
+++ Context.pm 14 Mar 2005 20:45:20 -0000 1.43
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Context.pm,v 1.42 2002/12/30 18:57:01 spadkins Exp $
+## $Id: Context.pm,v 1.43 2005/03/14 20:45:20 spadkins Exp $
#############################################################################
package P5EEx::Blue::Context;
@@ -568,14 +568,15 @@
$class = $service->{"${lcf_type}Class"}; # find class of service
if (!defined $class || $class eq "") { # error if no class given
- if ($name eq "session") {
- $class = "P5EEx::Blue::$type"; # assume the "generic" class
- }
- else {
- P5EEx::Blue::Exception->throw(
- error => "no class was configured for the \"$type\"
named \"$name\"\n",
- );
- }
+ $class = "P5EEx::Blue::$type"; # assume the "generic" class
+ #if ($name eq "session") {
+ # $class = "P5EEx::Blue::$type"; # assume the "generic"
class
+ #}
+ #else {
+ # P5EEx::Blue::Exception->throw(
+ # error => "no class was configured for the \"$type\"
named \"$name\"\n",
+ # );
+ #}
}
if (! $self->{used}{$class}) { # load the code
