| Line 87... |
Line 87... |
| 87 |
if ($user->{MVPid} or $user->{department}->{MVP} >= RollerCon::USER or $user->{department}->{COA} >= RollerCon::USER or $LVL >= RollerCon::SYSADMIN) {
|
87 |
if ($user->{MVPid} or $user->{department}->{MVP} >= RollerCon::USER or $user->{department}->{COA} >= RollerCon::USER or $LVL >= RollerCon::SYSADMIN) {
|
| 88 |
push @mvppass, $h->li ($h->a ({ href=>"/schedule/classes.pl" }, "View and Sign Up for MVP Classes"));
|
88 |
push @mvppass, $h->li ($h->a ({ href=>"/schedule/classes.pl" }, "View and Sign Up for MVP Classes"));
|
| Line 89... |
Line 89... |
| 89 |
|
89 |
|
| 90 |
# Get a list of classes attended to ask for reviews...
|
90 |
# Get a list of classes attended to ask for reviews...
|
| 91 |
my (@reviews_done, @reviews_tbd);
|
91 |
my (@reviews_done, @reviews_tbd);
|
| - |
|
92 |
# foreach my $class (@{$dbh->selectall_arrayref ("select id, date, time, name, coach, count(*) as answers from v_class_signup_new left join v_survey_answer on id = classid and v_class_signup_new.RCid = v_survey_answer.RCid where v_class_signup_new.RCid = ? and year(date) = year(now()) and concat_ws(' ', date, end_time) < date_sub(now(), interval 2 hour) group by id order by date, start_time", undef, $user->{RCid})}) {
|
| 92 |
foreach my $class (@{$dbh->selectall_arrayref ("select id, date, time, name, coach, count(*) as answers from v_class_signup left join v_survey_answer on id = classid and v_class_signup.RCid = v_survey_answer.RCid where v_class_signup.RCid = ? and year(date) = year(now()) and concat_ws(' ', date, end_time) < date_sub(now(), interval 2 hour) group by id order by date, start_time", undef, $user->{RCid})}) {
|
93 |
foreach my $class (@{$dbh->selectall_arrayref ("select id, date, time, name, null, count(*) as answers from v_class_signup_new left join v_survey_answer on id = classid and v_class_signup_new.RCid = v_survey_answer.RCid where v_class_signup_new.RCid = ? and year(date) = year(now()) and concat_ws(' ', date, end_time) < date_sub(now(), interval 2 hour) group by id order by date, start_time", undef, $user->{RCid})}) {
|
| 93 |
my ($id, $date, $time, $name, $coach, $answers) = @{$class};
|
94 |
my ($id, $date, $time, $name, $coach, $answers) = @{$class};
|
| 94 |
next unless $id;
|
95 |
next unless $id;
|
| Line 95... |
Line 96... |
| 95 |
$time = convertTime $time;
|
96 |
$time = convertTime $time;
|
| Line 169... |
Line 170... |
| 169 |
my $class_limit = getSetting ("MAX_CLASS_SIGNUP");
|
170 |
my $class_limit = getSetting ("MAX_CLASS_SIGNUP");
|
| Line 170... |
Line 171... |
| 170 |
|
171 |
|
| 171 |
push @mvpcounts, $h->li ($mvpcount." MVP Tickets have been matched in VORC. ($unclaimed_tix remain unmatched.)");
|
172 |
push @mvpcounts, $h->li ($mvpcount." MVP Tickets have been matched in VORC. ($unclaimed_tix remain unmatched.)");
|
| Line 172... |
Line 173... |
| 172 |
push @mvpcounts, $h->li ("They could (in theory) sign up for ".$mvpcount*$class_limit." class spots.");
|
173 |
push @mvpcounts, $h->li ("They could (in theory) sign up for ".$mvpcount*$class_limit." class spots.");
|
| Line 173... |
Line 174... |
| 173 |
|
174 |
|
| 174 |
my ($signupcount, $total_class_count, $available_count) = $dbh->selectrow_array ("select sum(count), sum(capacity), sum(available) from v_class where year(date) = year(now())");
|
175 |
my ($signupcount, $total_class_count, $available_count) = $dbh->selectrow_array ("select sum(count), sum(capacity), sum(available) from v_class_new where year(date) = year(now())");
|
| 175 |
|
176 |
|
| 176 |
$total_class_count //= 0;
|
177 |
$total_class_count //= 0;
|