clear.tcl

Location:

/packages/acs-automated-testing/www/admin/clear.tcl

CVS ID:

$Id: clear.tcl,v 1.6 2018/01/19 21:23:51 gustafn Exp $

Related Files

• packages/acs-automated-testing/www/admin/clear.tcl

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
  @cvs-id $Id: clear.tcl,v 1.6 2018/01/19 21:23:51 gustafn Exp $
} {
  {package_key ""}
  {category:aa_test_category ""}
  {view_by:aa_test_view_by "package"}
  {testcase_id:naturalnum,notnull ""}
  {quiet:boolean "0"}
} -properties {
}

set sql "delete from aa_test_results"
db_dml delete_testcase_tests_sql $sql
set sql "delete from aa_test_final_results"
db_dml delete_testcase_tests_sql $sql

ad_returnredirect "index?by_package_key=$package_key&by_category=$category&view_by=$view_by&quiet=$quiet"
ad_script_abort

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: