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 -r1.48 -r1.49
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	21 Jan 2018 01:13:57 -0000	1.48
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	24 Mar 2018 08:20:10 -0000	1.49
@@ -286,19 +286,19 @@
 
 ad_proc -public subsite::get {
     {-subsite_id {}}
-    {-array:required}
+    {-array}
 } {
     Get information about a subsite.
 
     @param subsite_id The id of the subsite for which info is requested.
     If no id is provided, then the id of the closest ancestor subsite will
     be used.
     @param array The name of an array in which information will be returned.
+    @return dict with subsite attributed
 
     @author Frank Nikolajsen (frank@warpspace.com)
     @creation-date 2003-03-08
 } {
-    upvar $array subsite_info
 
     if { $subsite_id eq "" } {
         set subsite_id [ad_conn subsite_id]
@@ -309,9 +309,13 @@
     } else {
         set package_id [ad_conn package_id]
     }
-
-    array unset subsite_info
-    array set subsite_info [site_node::get_from_object_id -object_id $subsite_id]
+    set info [site_node::get_from_object_id -object_id $subsite_id]
+    if {[info exists array]} {
+        upvar $array subsite_info
+        array unset subsite_info
+        array set subsite_info $info
+    }
+    return $info
 }
 
 ad_proc -public subsite::get_element {