Index: openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl,v diff -u -r1.2.2.1 -r1.2.2.2 --- openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl 5 Mar 2003 14:52:43 -0000 1.2.2.1 +++ openacs-4/packages/acs-service-contract/tcl/implementation-procs.tcl 13 May 2003 12:14:37 -0000 1.2.2.2 @@ -46,9 +46,47 @@ ad_proc -public acs_sc::impl::new_from_spec { {-spec:required} } { - Add new service contract implementation from an array-list style implementation. + Add new service contract implementation from an array-list style implementation, + and binds it to the specified contract. - @return the ID of the new implementation +
+ + The specification takes the following form: + +
+ + And here's the explanation: + ++ set spec { + contract_name "Action_SideEffect" + owner "bug-tracker" + name "CaptureResolutionCode" + aliases { + GetObjectType bug_tracker::bug::object_type + GetPrettyName bug_tracker::bug::capture_resolution_code::pretty_name + DoSideEffect bug_tracker::bug::capture_resolution_code::do_side_effect + } + } + acs_sc::impl::new_from_spec -spec $spec +
+ + The spec is an array-list with the following entries: + +