xowf::test_item::Answer_manager method delete_scheduled_atjobs (public)

 <instance of xowf::test_item::Answer_manager> delete_scheduled_atjobs \
    obj

Defined in packages/xowf/tcl/test-item-procs.tcl

Delete previously scheduled atjobs ns_log notice "#### delete_scheduled_atjobs"

Parameters:

obj (required, object)

Testcases:

No testcase defined.

Source code:

set item_id [$obj item_id]
set atjob_form_id [::xowf::atjob form_id -parent_id $item_id -package_id [ad_conn package_id]]

set to_delete [xo::dc list get_children {
  select item_id from xowiki_form_instance_item_index
  where parent_id = :item_id
  and page_template = :atjob_form_id
}]

foreach id $to_delete {
  ns_log notice "#### acs::dc call content_item proc delete -item_id $id"
  acs::dc call content_item delete -item_id $id
}

XQL Not present:

Generic, PostgreSQL, Oracle