Update of /cvsroot/openinteract/OpenInteract2/pkg/base_page/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23991/OpenInteract2
Modified Files:
Page.pm
Log Message:
OIN-51: ensure storage classes are loaded at startup
Index: Page.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_page/OpenInteract2/Page.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Page.pm 11 May 2004 04:30:59 -0000 1.11
--- Page.pm 5 Oct 2004 03:21:52 -0000 1.12
***************
*** 28,36 ****
- sub _class_initialize {
- my ( $class ) = @_;
- eval "require $_" for ( values %STORAGE_CLASS );
- }
-
########################################
# CLASS METHODS
--- 28,31 ----
***************
*** 409,412 ****
--- 404,422 ----
}
+
+ sub load_init {
+ $log ||= get_logger( LOG_APP );
+ for ( values %STORAGE_CLASS ) {
+ eval "require $_";
+ if ( $@ ) {
+ $log->error( "Failed to load page storage class ",
+ "'$_': $@; continuing..." );
+ }
+ }
+ }
+
+ load_init();
+
+
1;
|
