acs::test::user::delete (public)

 acs::test::user::delete -user_id user_id \
    [ -delete_created_acs_objects ]

Defined in packages/acs-automated-testing/tcl/aa-test-procs.tcl

Remove a test user.

Switches:
-user_id
(required)
-delete_created_acs_objects
(boolean) (defaults to "false") (optional)

Partial Call Graph (max 5 caller/called nodes):
%3 test_webtest_example webtest_example (test acs-automated-testing) acs::test::user::delete acs::test::user::delete test_webtest_example->acs::test::user::delete acs_user::delete acs_user::delete (public) acs::test::user::delete->acs_user::delete db_dml db_dml (public) acs::test::user::delete->db_dml packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl packages/acs-core-docs/ www/files/tutorial/myfirstpackage-procs.tcl packages/acs-core-docs/www/files/tutorial/myfirstpackage-procs.tcl->acs::test::user::delete

Testcases:
webtest_example
Source code:
        #
        # Delete modifying user info, since otherwise we cannot delete
        # the user_id. The modifying user is e.g. propagated to parent
        # objss when modifying a page in the content reposistory.
        #
        db_dml unset_modifying_user {
            UPDATE acs_objects
            SET modifying_user = NULL
            where modifying_user = :user_id
        }
        #
        # If desired, delete the created acs_objects of this user.
        #
        if {$delete_created_acs_objects_p} {
            db_dml unset_modifying_user {
                delete from acs_objects where creation_user = :user_id
            }
        }
        acs_user::delete  -user_id $user_id  -permanent
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: