Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v diff -u -N -r1.66.2.25 -r1.66.2.26 --- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 12 Jul 2022 15:15:02 -0000 1.66.2.25 +++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl 13 Jul 2022 07:53:12 -0000 1.66.2.26 @@ -1105,6 +1105,12 @@ @param argblock the argument description block, is passed to ad_proc @param docblock the documentation block, is passed to ad_proc @param body the body, is passed to ad_proc + + @see ad_proc + @see xotcl-core package offers a real ORM interface for acs_object + types + @see NSF idioms + @see OO Tcl idioms } { ad_proc ${method_name}__$type $argblock $docblock $body } @@ -1127,6 +1133,12 @@ @param method_name method name @param object_id the target, it is the first arg to the method @param args the remaining arguments + + @see expansion operator "{*}" + @see xotcl-core package offers a real ORM interface for acs_object + types + @see NSF idioms + @see OO Tcl idioms } { return [${method_name}__[util_memoize [list acs_object_type $object_id]] $object_id {*}$args] } @@ -1145,6 +1157,12 @@ @param method_name method name @param type associated type @param args the remaining arguments + + @see expansion operator "{*}" + @see xotcl-core package offers a real ORM interface for acs_object + types + @see NSF idioms + @see OO Tcl idioms } { return [ad_apply ${method_name}__$type $args] }