my $ji = $htmlout_jobq->fetchrow_hashref();
die unless $ji;
+ my $varsq= db_prepare(<<END);
+ SELECT name, val, synth FROM runvars
+ WHERE flight=? AND job=?
+ ORDER BY synth, name
+END
+ $varsq->execute($fi->{Flight}, $job);
+ my $runvar_table = $varsq->fetchall_arrayref({});
+ my %runvar_map;
+ $runvar_map{$_->{name}} = $_ foreach @$runvar_table;
+
print H <<END;
<html><head><title>$title</title><head>
<body>
<h2>Test control variables</h2>
<table rules=all><tr><th>Name</th><th>Value</th><th>Source</th></tr>
END
- my $varsq= db_prepare(<<END);
- SELECT name, val, synth FROM runvars
- WHERE flight=? AND job=?
- ORDER BY synth, name
-END
- $varsq->execute($fi->{Flight}, $job);
- while (my $varrow= $varsq->fetchrow_arrayref()) {
- my ($vn,$vv,$synth) = (@$varrow);
+ foreach my $varrow (@$runvar_table) {
+ my ($vn,$vv,$synth) = (@$varrow{qw(name val synth)});
print H "<tr><th>".encode_entities($vn)."</th>";
print H "<td>";
my $url;
projects / osstest.git / commitdiff