<%init> # Provides a list of ST defs. Name & purpose are displayed with name being a hyperlink to the detailed ST def view. use DBI; our $dbh=$m->comp('mysql-connect-st.mas');
<& default-header.mas &>

## View Simulation Test Definitions
| Name | Purpose
--- | --- | ---
<%perl> my $sql="select id,name,purpose from st_defs where deleted = 0"; my $sth=$dbh->prepare($sql); $sth->execute(); while(my $row=$sth->fetchrow_hashref()){ print "
"; print "{id}\" />"; print " | {id}\">$row->{name}"; print " | $row->{purpose}
"; }

<& default-footer.mas &>