| Line 41... |
Line 41... |
| 41 |
my @announcements;
|
41 |
my @announcements;
|
| 42 |
push @announcements, $h->li ($h->a ({ href=>'__LINK__?'.$user->{discount_code} }, "THANK YOU! You've earned a discounted pass for next year. Click here to redeem.")) if $user->{discount_code};
|
42 |
push @announcements, $h->li ($h->a ({ href=>'__LINK__?'.$user->{discount_code} }, "THANK YOU! You've earned a discounted pass for next year. Click here to redeem.")) if $user->{discount_code};
|
| 43 |
my ($announcement) = $dbh->selectrow_array ("select value from setting where setting.key = ?", undef, "ANNOUNCEMENT");
|
43 |
my ($announcement) = $dbh->selectrow_array ("select value from setting where setting.key = ?", undef, "ANNOUNCEMENT");
|
| 44 |
push @announcements, $h->li ($announcement) if $announcement;
|
44 |
push @announcements, $h->li ($announcement) if $announcement;
|
| Line -... |
Line 45... |
| - |
|
45 |
|
| - |
|
46 |
if ($user->{department}->{OFF} > 0) {
|
| - |
|
47 |
my @days = ("Thursday", "Friday", "Saturday");
|
| - |
|
48 |
my @dayschecked;
|
| - |
|
49 |
foreach my $day (@{$dbh->selectall_arrayref ("select dayofweek from v_shift where year(date) = year(now()) and RCid = ? and role = 'Officiating Huddle'", undef, $user->{RCid})}) {
|
| - |
|
50 |
push @dayschecked, @{$day};
|
| - |
|
51 |
}
|
| - |
|
52 |
|
| - |
|
53 |
use tableViewer qw/inArray/;
|
| - |
|
54 |
push @announcements, $h->li ("Did you attend the Officiating Huddle on:"),
|
| - |
|
55 |
$h->form ({ action => "add_officiating_huddle_time.pl", target => "_blank" }, [
|
| - |
|
56 |
map ({ inArray($_, \@dayschecked) ? $h->input ({ type => "checkbox", name => $_, checked => [] }).$_.$h->br : $h->input ({ type => "checkbox", name => $_ }).$_.$h->br } @days),
|
| - |
|
57 |
$h->input ({ type => "submit", value => scalar @dayschecked ? "Update my hours." : "Give me credit!" })
|
| - |
|
58 |
]);
|
| - |
|
59 |
}
|
| Line 45... |
Line 60... |
| 45 |
|
60 |
|
| Line 46... |
Line 61... |
| 46 |
|
61 |
|
| 47 |
my $schedule = getSchedule ($user->{RCid});
|
62 |
my $schedule = getSchedule ($user->{RCid});
|
| Line 61... |
Line 76... |
| 61 |
my $reviews;
|
76 |
my $reviews;
|
| 62 |
if ($user->{MVPid} or $user->{department}->{MVP} >= RollerCon::USER or $user->{department}->{COA} >= RollerCon::USER or $LVL >= RollerCon::SYSADMIN) {
|
77 |
if ($user->{MVPid} or $user->{department}->{MVP} >= RollerCon::USER or $user->{department}->{COA} >= RollerCon::USER or $LVL >= RollerCon::SYSADMIN) {
|
| 63 |
push @mvppass, $h->li ($h->a ({ href=>"/schedule/classes.pl" }, "View and Sign Up for MVP Classes"));
|
78 |
push @mvppass, $h->li ($h->a ({ href=>"/schedule/classes.pl" }, "View and Sign Up for MVP Classes"));
|
| Line 64... |
Line 79... |
| 64 |
|
79 |
|
| - |
|
80 |
# Get a list of classes attended to ask for reviews...
|
| 65 |
# Get a list of classes attended to ask for reviews...
|
81 |
my (@reviews_done, @reviews_tbd);
|
| 66 |
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 where v_class_signup.RCid = ? and year(date) = year(now()) and concat_ws(' ', date, end_time) < date_sub(now(), interval 2 hour) order by date, start_time", undef, $user->{RCid})}) {
|
82 |
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})}) {
|
| 67 |
my ($id, $date, $time, $name, $coach, $answers) = @{$class};
|
83 |
my ($id, $date, $time, $name, $coach, $answers) = @{$class};
|
| 68 |
next unless $id;
|
84 |
next unless $id;
|
| Line 69... |
Line -... |
| 69 |
$time = convertTime $time;
|
- |
|
| 70 |
|
85 |
$time = convertTime $time;
|
| 71 |
my (@reviews_done, @reviews_tbd);
|
86 |
|
| 72 |
if ($answers > 1) {
|
87 |
if ($answers > 1) {
|
| 73 |
push @reviews_done, $h->li ("$date $time: ".$h->a ({ href=>"/schedule/survey.pl?classid=$id" }, "$name [".getUserDerbyName ($coach)."]"));
|
88 |
push @reviews_done, $h->li ("$date $time: ".$h->a ({ href=>"/schedule/survey.pl?classid=$id" }, "$name [".getUserDerbyName ($coach)."]"));
|
| 74 |
} else {
|
89 |
} else {
|
| 75 |
push @reviews_tbd, $h->li ("$date $time: ".$h->a ({ href=>"/schedule/survey.pl?classid=$id" }, "$name [".getUserDerbyName ($coach)."]"));
|
- |
|
| 76 |
}
|
- |
|
| 77 |
|
- |
|
| 78 |
$reviews = $h->li (["Please submit feedback:", $h->ul ([@reviews_tbd])]) unless !scalar @reviews_tbd;
|
90 |
push @reviews_tbd, $h->li ("$date $time: ".$h->a ({ href=>"/schedule/survey.pl?classid=$id" }, "$name [".getUserDerbyName ($coach)."]"));
|
| - |
|
91 |
}
|
| - |
|
92 |
}
|
| 79 |
$reviews .= $h->li (["View the feedback you've submitted:", $h->ul ([@reviews_done])]) unless !scalar @reviews_done;
|
93 |
$reviews = $h->li (["Please submit feedback:", $h->ul ([@reviews_tbd])]) unless !scalar @reviews_tbd;
|
| Line 80... |
Line 94... |
| 80 |
}
|
94 |
$reviews .= $h->li (["View the feedback you've submitted:", $h->ul ([@reviews_done])]) unless !scalar @reviews_done;
|
| 81 |
}
|
95 |
}
|
| 82 |
|
96 |
|
| Line 115... |
Line 129... |
| 115 |
}
|
129 |
}
|
| Line 116... |
Line 130... |
| 116 |
|
130 |
|
| 117 |
if ($user->{department}->{VCI} > 2 or $user->{department}->{MVP} > 2 or $LVL > 4) {
|
131 |
if ($user->{department}->{VCI} > 2 or $user->{department}->{MVP} > 2 or $LVL > 4) {
|
| 118 |
push @managers, $h->li ($h->a ({ href=>"/schedule/classes.pl" }, "View MVP Classes"));
|
132 |
push @managers, $h->li ($h->a ({ href=>"/schedule/classes.pl" }, "View MVP Classes"));
|
| - |
|
133 |
push @managers, $h->li ($h->a ({ href=>"/schedule/mvp_class_report.pl", target=>"_new" }, "Daily MVP Class Report (for print)"));
|
| 119 |
push @managers, $h->li ($h->a ({ href=>"/schedule/mvp_class_report.pl", target=>"_new" }, "Daily MVP Class Report (for print)"));
|
134 |
push @managers, $h->li ($h->a ({ href=>"/schedule/mvp_class_report_without_skaters.pl", target=>"_new" }, "Daily MVP Class Report without Skaters (for print)"));
|
| 120 |
push @managers, $h->li ($h->a ({ href=>"/schedule/daily_print.pl", target=>"_new" }, "Daily Officiating Report (for print)"));
|
135 |
push @managers, $h->li ($h->a ({ href=>"/schedule/daily_print.pl", target=>"_new" }, "Daily Officiating Report (for print)"));
|
| 121 |
push @managers, $h->li ($h->a ({ href=>"/schedule/daily_print_announcers.pl", target=>"_new" }, "Daily Announcers Report (for print)"));
|
136 |
push @managers, $h->li ($h->a ({ href=>"/schedule/daily_print_announcers.pl", target=>"_new" }, "Daily Announcers Report (for print)"));
|
| 122 |
push @managers, $h->li ($h->a ({ href=>"/schedule/print_dept_by_day.pl", target=>"_new" }, "BETA: Daily Shift Report (for print)"));
|
137 |
push @managers, $h->li ($h->a ({ href=>"/schedule/print_dept_by_day.pl", target=>"_new" }, "BETA: Daily Shift Report (for print)"));
|