<%init> use DBI; our $dbh=$m->comp('mysql-connect-st.mas');
<& default-header.mas &>

## Add Simulation Test Success Condition
<%perl> my $sql="select id,name,purpose from st_defs where id=?"; my $sth=$dbh->prepare($sql); $sth->execute($ARGS{id}); my $row=$sth->fetchrow_hashref(); Name Purpose <% $row->{purpose} %> Success Conditions
| Success Condition | Information
--- | --- | ---
<%perl> # List existing success conditions. $sql="SELECT st_defs.id, st_success_conditions.id, st_success_conditions.st_def_id, st_success_conditions.success_condition, st_success_conditions.information FROM st_success_conditions Inner Join st_defs ON st_success_conditions.st_def_id = st_defs.id WHERE st_defs.id=$ARGS{id} AND st_success_conditions.deleted=0"; $sth=$dbh->prepare($sql); $sth->execute(); while(my $row=$sth->fetchrow_hashref()){ print "
"; print ""; print "{id}\" /> "; print ""; print " | "; print $row->{success_condition}; print ""; print " | "; print $row->{information}; if($row->{information} eq ""){ print " "; } print ""; print "
"; } SC Info

Note: Modify for success conditions is not currently unavailable.

<& default-footer.mas &>