Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v diff -u -N -r1.66 -r1.67 --- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 28 Nov 2018 17:33:04 -0000 1.66 +++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 11 Dec 2018 11:26:26 -0000 1.67 @@ -307,16 +307,10 @@ @author Frank Nikolajsen (frank@warpspace.com) @creation-date 2003-03-08 } { - if { $subsite_id eq "" } { set subsite_id [ad_conn subsite_id] } - if { ![ad_conn isconnected] } { - set package_id "" - } else { - set package_id [ad_conn package_id] - } set info [site_node::get_from_object_id -object_id $subsite_id] if {[info exists array]} { upvar $array subsite_info