acs_user_extension::dispatch (private)

 acs_user_extension::dispatch -op op -list_of_args list_of_args \
    [ -impl impl ]

Defined in packages/acs-tcl/tcl/user-extensions-procs.tcl

Dispatches (calls the service contract routines) the requested method so that the operation gets executed, and packages are notified of changes in user information.

Switches:
-op (required)
-list_of_args (required)
-impl (optional)

Partial Call Graph (max 5 caller/called nodes):
%3 acs_user_extension::user_approve acs_user_extension::user_approve (public) acs_user_extension::dispatch acs_user_extension::dispatch acs_user_extension::user_approve->acs_user_extension::dispatch acs_user_extension::user_deapprove acs_user_extension::user_deapprove (public) acs_user_extension::user_deapprove->acs_user_extension::dispatch acs_user_extension::user_delete acs_user_extension::user_delete (public) acs_user_extension::user_delete->acs_user_extension::dispatch acs_user_extension::user_modify acs_user_extension::user_modify (public) acs_user_extension::user_modify->acs_user_extension::dispatch acs_user_extension::user_new acs_user_extension::user_new (public) acs_user_extension::user_new->acs_user_extension::dispatch acs_sc::invoke acs_sc::invoke (public) acs_user_extension::dispatch->acs_sc::invoke acs_user_extension::list_extensions acs_user_extension::list_extensions (public) acs_user_extension::dispatch->acs_user_extension::list_extensions

Testcases:
No testcase defined.
Source code:
        if {$impl eq ""} {
            set extensions [list_extensions]
        } else {
            set extensions [list $impl]
        }

        # Loop through the extensions
        foreach extension $extensions {
            set r [acs_sc::invoke -contract UserData -operation $op -call_args $list_of_args -impl $extension]
        }
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/acs-tcl/tcl/user-extensions-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: