clear.tcl

Location:
/packages/acs-automated-testing/www/admin/clear.tcl
CVS ID:
$Id: clear.tcl,v 1.6.2.1 2023/10/06 12:31:05 gustafn Exp $

Related Files

[ hide source ] | [ make this the default ]

File Contents

ad_page_contract {
  @cvs-id $Id: clear.tcl,v 1.6.2.1 2023/10/06 12:31:05 gustafn Exp $
} {
  {package_key ""}
  {category:aa_test_category ""}
  {view_by:aa_test_view_by "package"}
  {testcase_id:naturalnum,notnull ""}
  {quiet:boolean,notnull 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: