Index: openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl 11 Apr 2018 20:52:01 -0000 1.9 +++ openacs-4/packages/acs-subsite/tcl/subsite-callback-procs.tcl 11 Apr 2018 21:01:42 -0000 1.10 @@ -22,11 +22,11 @@ Example:
     # Execute any callbacks registered for this object type or one of
-    # it's parent object types
+    # its parent object types
     subsite_callback -object_type $object_type $object_id
     
- + @author Michael Bryzek (mbryzek@arsdigita.com) @creation-date 12/2000 @@ -35,34 +35,34 @@ } { if { $object_type eq "" } { - db_1row select_object_type { - select object_type - from acs_objects - where object_id = :object_id - } + db_1row select_object_type { + select object_type + from acs_objects + where object_id = :object_id + } } # Check to see if we have any callbacks registered for this object - # type or one of it's parent object types. Put the callbacks into + # type or one of its parent object types. Put the callbacks into # a list as each callback may itself require a database # handle. Note that we need the distinct in case two callbacks are - # registered for an object and it's parent object type. + # registered for an object and its parent object type. set callback_list [db_list_of_lists select_callbacks {}] set node_id [ad_conn node_id] set package_id [ad_conn package_id] foreach row $callback_list { - lassign $row callback type + lassign $row callback type - switch -- $type { - tcl { - # Execute the Tcl procedure - $callback -object_id $object_id -node_id $node_id -package_id $package_id - } - default { error "Callbacks of type $type not supported" } - } + switch -- $type { + tcl { + # Execute the Tcl procedure + $callback -object_id $object_id -node_id $node_id -package_id $package_id + } + default { error "Callbacks of type $type not supported" } + } } } @@ -99,7 +99,7 @@ -object_id:required {-type ""} } { - Callback for creating a URL for an object_id. THis is usually called in /o.vuh, but + Callback for creating a URL for an object_id. This is usually called in /o.vuh, but you could think of scenarios where using this hook makes sense as well. The type lets you define what kind of URL you are looking for (e.g. admin/edit/display)