| |
13 |
13 |
|
| |
14 |
14 |
multirow create testcase_failures testcase_id count |
| |
15 |
15 |
|
| |
16 |
16 |
if { $has_test_report_p } { |
| |
17 |
17 |
aa_test::parse_test_file -path $test_path -array test |
| |
18 |
18 |
|
| |
19 |
19 |
array set testcase_failure $test(testcase_failure) |
| |
20 |
20 |
foreach testcase_id [array names testcase_failure] { |
| |
21 |
21 |
multirow append testcase_failures $testcase_id $testcase_failure($testcase_id) |
| |
22 |
22 |
} |
| |
23 |
23 |
} |
| |
24 |
24 |
|
| |
25 |
25 |
set page_title "Control Page for Server $service(name)" |
| |
26 |
26 |
set context [list $page_title] |
| |
27 |
27 |
|
| |
28 |
28 |
set admin_login_url [export_vars -base "$service(url)/register/auto-login" {{email {$service(adminemail)}} {password {$service(adminpassword)}}}] |
| |
29 |
29 |
|
| |
30 |
30 |
set rebuild_url [export_vars -base rebuild-server { { server $service(name) } }] |
| |
31 |
31 |
set rebuild_log_url "/rebuild-$service(name).log" |
| |
32 |
32 |
|
| |
|
33 |
template::add_acs_confirm_handler \ |
| |
|
34 |
-id "action-rebuild" \ |
| |
|
35 |
-message "Are you sure you want to wipe and rebuild this server?" |
| |
|
36 |
|
| |
|
37 |
|
| |
33 |
38 |
# Local variables: |
| |
34 |
39 |
# mode: tcl |
| |
35 |
40 |
# tcl-indent-level: 4 |
| |
36 |
41 |
# indent-tabs-mode: nil |
| |
37 |
42 |
# End: |
