| Line 36... |
Line 36... |
| 36 |
my ($type, $private) = $dbh->selectrow_array ("select type, private from survey_question where qid = ?", undef, $qid);
|
36 |
my ($type, $private) = $dbh->selectrow_array ("select type, private from survey_question where qid = ?", undef, $qid);
|
| 37 |
error ("This is a numeric range question (it doesn't have comments as answers).") unless $type eq "text";
|
37 |
error ("This is a numeric range question (it doesn't have comments as answers).") unless $type eq "text";
|
| 38 |
# Check to make sure just-a-coach isn't looking at private comments
|
38 |
# Check to make sure just-a-coach isn't looking at private comments
|
| 39 |
error ("You don't have access to view these comments.") unless !$private or $LVL >= RollerCon::ADMIN or $ORCUSER->{department}->{MVP} >= RollerCon::LEAD;
|
39 |
error ("You don't have access to view these comments.") unless !$private or $LVL >= RollerCon::ADMIN or $ORCUSER->{department}->{MVP} >= RollerCon::LEAD;
|
| Line 40... |
Line 40... |
| 40 |
|
40 |
|
| 41 |
my ($started) = $dbh->selectrow_array ("select id from v_class_signup where id = ? and concat_ws(date, end_time) < date_sub(now(), interval 2 hour)", undef, $classid);
|
41 |
my ($started) = $dbh->selectrow_array ("select id from v_class_signup_new where id = ? and concat_ws(date, end_time) < date_sub(now(), interval 2 hour)", undef, $classid);
|
| Line 42... |
Line 42... |
| 42 |
error ("Feedback isn't availabel until after the class has ended.") unless $started;
|
42 |
error ("Feedback isn't availabel until after the class has ended.") unless $started;
|
| Line 64... |
Line 64... |
| 64 |
$h->input ({ type=>"button", value=>"Home", onClick=>"window.location.href='$homeURL'" }),
|
64 |
$h->input ({ type=>"button", value=>"Home", onClick=>"window.location.href='$homeURL'" }),
|
| 65 |
]),
|
65 |
]),
|
| 66 |
]),
|
66 |
]),
|
| 67 |
]);
|
67 |
]);
|
| Line 68... |
Line 68... |
| 68 |
|
68 |
|
| 69 |
my ($CREF) = $dbh->selectrow_hashref ("select * from v_class where id = ?", undef, $classid);
|
69 |
my ($CREF) = $dbh->selectrow_hashref ("select * from v_class_new where id = ?", undef, $classid);
|
| 70 |
$CREF->{time} = convertTime $CREF->{time};
|
70 |
$CREF->{time} = convertTime $CREF->{time};
|
| 71 |
$CREF->{date} = $CREF->{date}." [".$CREF->{dayofweek}."]";
|
71 |
$CREF->{date} = $CREF->{date}." [".$CREF->{dayofweek}."]";
|
| 72 |
print $h->ul ( { style=>"max-width:610px" }, [ map { $h->li ({ class=>"shaded", style=>"margin:4px;" },
|
72 |
print $h->ul ( { style=>"max-width:610px" }, [ map { $h->li ({ class=>"shaded", style=>"margin:4px;" },
|
| 73 |
$h->div ({ class=>"lisp0" }, [
|
73 |
$h->div ({ class=>"lisp0" }, [
|