| Line 82... |
Line 82... |
| 82 |
# $h->p ("Name: ".$CREF->{name},
|
82 |
# $h->p ("Name: ".$CREF->{name},
|
| 83 |
# "Coach: ".$CREF->{coach}
|
83 |
# "Coach: ".$CREF->{coach}
|
| 84 |
# ),
|
84 |
# ),
|
| 85 |
# ]), $h->hr;
|
85 |
# ]), $h->hr;
|
| Line 86... |
Line 86... |
| 86 |
|
86 |
|
| 87 |
print $h->div ({ style=>"max-width:610px" }, ["Submitted Comments:",
|
87 |
my ($thequestion) = $dbh->selectrow_array ("select question from survey_question where qid = ?", undef, $QID);
|
| - |
|
88 |
|
| 88 |
|
89 |
print $h->div ({ style=>"max-width:610px" }, ["Submitted Comments:", $h->p ({style=>"font-style:italic;margin-left:10px"}, $thequestion),
|
| 89 |
$h->ul ({ class=>"shaded" }, [
|
90 |
$h->ul ([
|
| 90 |
map { $h->li ( $$_[0] ) } @{$dbh->selectall_arrayref ("select response from v_survey_answer where classid = ? and qid = ? and trim(response) <> '' order by aid", undef, $CID, $QID)}
|
91 |
map { $h->li ({ class=>"shaded" }, $$_[0] ) } @{$dbh->selectall_arrayref ("select response from v_survey_answer where classid = ? and qid = ? and trim(response) <> '' order by aid", undef, $CID, $QID)}
|
| Line 91... |
Line 92... |
| 91 |
]) ]);
|
92 |
]) ]);
|
| Line 92... |
Line 93... |
| 92 |
|
93 |
|
| 93 |
print $h->input ({ type=>"button", name=>"back", value=>"Back", onClick=>"history.back(); return false;" });
|
94 |
print $h->input ({ type=>"button", name=>"back", value=>"Back", onClick=>"history.back(); return false;" });
|