| Line 56... |
Line 56... |
| 56 |
push @everyone, $h->li ($h->a ({ href=>"/schedule/games.pl" }, "View Games"));
|
56 |
push @everyone, $h->li ($h->a ({ href=>"/schedule/games.pl" }, "View Games"));
|
| 57 |
push @everyone, $h->li ($h->a ({ href=>"/schedule/personal_time.pl" }, "Block Personal Time"));
|
57 |
push @everyone, $h->li ($h->a ({ href=>"/schedule/personal_time.pl" }, "Block Personal Time"));
|
| 58 |
push @everyone, $h->li ($h->a ({ href=>"/schedule/view_user.pl?submit=Edit&RCid=$user->{RCid}" }, "Edit your profile"));
|
58 |
push @everyone, $h->li ($h->a ({ href=>"/schedule/view_user.pl?submit=Edit&RCid=$user->{RCid}" }, "Edit your profile"));
|
| Line 59... |
Line 59... |
| 59 |
|
59 |
|
| - |
|
60 |
my @mvppass;
|
| - |
|
61 |
my $reviews;
|
| - |
|
62 |
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"));
|
| - |
|
64 |
|
| 60 |
my @mvppass;
|
65 |
# Get a list of classes attended to ask for reviews...
|
| - |
|
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})}) {
|
| - |
|
67 |
my ($id, $date, $time, $name, $coach, $answers) = @{$class};
|
| - |
|
68 |
next unless $id;
|
| - |
|
69 |
$time = convertTime $time;
|
| - |
|
70 |
|
| - |
|
71 |
my (@reviews_done, @reviews_tbd);
|
| - |
|
72 |
if ($answers > 1) {
|
| - |
|
73 |
push @reviews_done, $h->li ("$date $time: ".$h->a ({ href=>"/schedule/survey.pl?classid=$id" }, "$name [".getUserDerbyName ($coach)."]"));
|
| 61 |
if ($user->{MVPid} or $LVL >= 5) {
|
74 |
} 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;
|
| - |
|
79 |
$reviews .= $h->li (["View the feedback you've submitted:", $h->ul ([@reviews_done])]) unless !scalar @reviews_done;
|
| 62 |
push @mvppass, $h->li ($h->a ({ href=>"/schedule/classes.pl" }, "View and Sign Up for MVP Classes"))
|
80 |
}
|
| Line 63... |
Line 81... |
| 63 |
}
|
81 |
}
|
| 64 |
|
82 |
|
| 65 |
my @leads = ();
|
83 |
my @leads = ();
|
| Line 166... |
Line 184... |
| 166 |
|
184 |
|
| Line 167... |
Line 185... |
| 167 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Note:"), "<b>Your account is being reviewed.</b>", $h->br, "You won't have access to view or sign-up for things until you've been approved / added to a department.", $h->br, "Please watch your email for notifications." ]) unless $activated;
|
185 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Note:"), "<b>Your account is being reviewed.</b>", $h->br, "You won't have access to view or sign-up for things until you've been approved / added to a department.", $h->br, "Please watch your email for notifications." ]) unless $activated;
|
| Line 168... |
Line 186... |
| 168 |
|
186 |
|
| Line 169... |
Line 187... |
| 169 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Your up-coming schedule (as of $dt):"), $schedule, $h->h5 ("[".$h->a ({ href=>"export_ics.pl?RCid=$user->{RCid}" }, "use this link for iCal")."]") ]) if $schedule;
|
187 |
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Your up-coming schedule (as of $dt):"), $schedule, $h->h5 ("[".$h->a ({ href=>"export_ics.pl?RCid=$user->{RCid}" }, "use this link for iCal")."]") ]) if $schedule;
|
| Line 170... |
Line 188... |
| 170 |
|
188 |
|