Index: openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl 5 Dec 2001 14:21:16 -0000 1.8 +++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl 5 Dec 2001 22:05:23 -0000 1.9 @@ -21,22 +21,10 @@ # if installed if {[dotlrn::is_instantiated]} { - set dotlrn_classes_url "[dotlrn::get_url][dotlrn_class::get_url]/" - if {![dotlrn::is_instantiated_here -url $dotlrn_classes_url]} { - dotlrn::mount_package \ - -package_key [dotlrn::package_key] \ - -url [dotlrn_class::get_url_part] \ - -directory_p "t" - } + if {![dotlrn::is_initialized]} { dotlrn::init } + if {![dotlrn_class::is_initialized]} { dotlrn_class::init } + if {![dotlrn_club::is_initialized]} { dotlrn_club::init } - set dotlrn_clubs_url "[dotlrn::get_url][dotlrn_club::get_url]/" - if {![dotlrn::is_instantiated_here -url $dotlrn_clubs_url]} { - dotlrn::mount_package \ - -package_key [dotlrn::package_key] \ - -url [dotlrn_club::get_url_part] \ - -directory_p "t" - } - # Grantee set grantee_id [dotlrn::get_full_users_rel_segment_id]