Subversion Repositories VORC

Rev

Rev 252 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 252 Rev 261
Line 30... Line 30...
30 
my $dt = DateTime->today;
 30 
my $dt = DateTime->today;
31 
$dt =~ s/T00\:00\:00$//;
 31 
$dt =~ s/T00\:00\:00$//;
Line 32... Line 32...
32 
 
 32 
 
33 
my @announcements;
 33 
my @announcements;
34 
if ($user->{department}->{EMT} >= RollerCon::USER and !$user->{emt_verified}) {
 34 
if ($user->{department}->{EMT} >= RollerCon::USER and !$user->{emt_verified}) {
- 
 
 35 
	push @announcements, $h->li ({ style => "padding-bottom:10px;" }, "<b>EMT NOTE:</b> Anyone in the EMT department can see shifts, but you cannot sign up for them until your credentials have been verified. Start here: ".$h->a ({ href => "https://rollercon.com/help-wanted/emts/", target => "_blank" }, "https://rollercon.com/help-wanted/emts/"));
- 
 
 36 
}
- 
 
 37 
 
- 
 
 38 
if (!$user->{MVPid}) {
- 
 
 39 
  push @announcements, $h->li ({ style => "padding-bottom:10px;" }, "<b>Did you get an MVP Ticket?</b>".$h->br.$h->div ( { style => "font-size:small;padding-bottom:10px;" }, "As of right now, your MVP Ticket hasn't been matched with your VORC account. (If your civil name and email address are exactly the same between your VORC account and Events.com registration, the match happens automatically.) We periodically review a list of 'almost' matches and manually connect what we can.",
- 
 
 40 
                                                                    "If you just bought your MVP ticket, or you just created your VORC account, it can take a couple of days for the systems to synchronize (or someone to do the manual review). If it's been longer than a few days, your info probably isn't close enough for a human to be sure that ticket belongs to you.",
35 
	push @announcements, $h->li ("NOTE: Anyone in the EMT department can see shifts, but you cannot sign up for them until your credentials have been verified. Start here: ".$h->a ({ href => "https://rollercon.com/help-wanted/emts/", target => "_blank" }, "https://rollercon.com/help-wanted/emts/"));
 41 
                                                                    "Email <b>rollercon.vorc\@gmail.com</b> from the account that's registered in VORC with your Events.com registrion ID, and we'll help as quickly as we can."));
Line 36... Line 42...
36 
}
 42 
}
37 
 
 43 
 
38 
my $volhours = getSchedule ($user->{RCid}, 'all', 'hours');
 44 
my $volhours = getSchedule ($user->{RCid}, 'all', 'hours');
39 
if ($volhours) {
 45 
if ($volhours) {
Line 40... Line 46...
40 
  push @announcements, $h->li ("Volunteer Hours: You currently have credit for $volhours hour(s) of volunteer time.");
 46 
  push @announcements, $h->li ({ style => "padding-bottom:10px;" }, "<b>Volunteer Hours:</b> You currently have credit for $volhours hour(s) of volunteer time.");
41 
}
 47 
}
Line 42... Line 48...
42 
 
 48 
 
43 
my ($announcement) = $dbh->selectrow_array ("select value from setting where setting.key = ?", undef, "ANNOUNCEMENT");
 49 
my ($announcement) = $dbh->selectrow_array ("select value from setting where setting.key = ?", undef, "ANNOUNCEMENT");
44 
push @announcements, $h->li ($announcement) if $announcement;
 50 
push @announcements, $h->li ({ style => "padding-bottom:10px;" }, $announcement) if $announcement;
45 
 
 51 
 
46 
#if ($user->{department}->{OFF} > 0) {
 52 
#if ($user->{department}->{OFF} > 0) {
47 
#  my @days = ("Thursday", "Friday", "Saturday");
 53 
#  my @days = ("Thursday", "Friday", "Saturday");
48 
#  my @dayschecked;
 54 
#  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})}) {
 55 
#	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};
 56 
#	  push @dayschecked, @{$day};
51 
#	}
 57 
#	}
52 
#
58 
#
53 
#  use tableViewer qw/inArray/;
 59 
#  use tableViewer qw/inArray/;
54 
#  push @announcements, $h->li ("Did you attend the Officiating Huddle on:"),
 60 
#  push @announcements, $h->li ({ style => "padding-bottom:10px;" }, "Did you attend the Officiating Huddle on:"),
55 
#    $h->form ({ action => "add_officiating_huddle_time.pl", target => "_blank" }, [
 61 
#    $h->form ({ action => "add_officiating_huddle_time.pl", target => "_blank" }, [
Line 64... Line 70...
64 
#	foreach my $day (@{$dbh->selectall_arrayref ("select dayofweek from v_shift where year(date) = year(now()) and RCid = ? and role = 'Officiating Leads Huddle'", undef, $user->{RCid})}) {
 70 
#	foreach my $day (@{$dbh->selectall_arrayref ("select dayofweek from v_shift where year(date) = year(now()) and RCid = ? and role = 'Officiating Leads Huddle'", undef, $user->{RCid})}) {
65 
#	  push @dayschecked, @{$day};
 71 
#	  push @dayschecked, @{$day};
66 
#	}
 72 
#	}
67 
#
73 
#
68 
#  use tableViewer qw/inArray/;
 74 
#  use tableViewer qw/inArray/;
69 
#  push @announcements, $h->li ("Did you attend the Officiating Leads Huddle on:"),
 75 
#  push @announcements, $h->li ({ style => "padding-bottom:10px;" }, "Did you attend the Officiating Leads Huddle on:"),
70 
#    $h->form ({ action => "add_officiating_leads_huddle_time.pl", target => "_blank" }, [
 76 
#    $h->form ({ action => "add_officiating_leads_huddle_time.pl", target => "_blank" }, [
71 
#      map ({ inArray($_, \@dayschecked) ? $h->input ({ type => "checkbox", name => $_, checked => [] }).$_.$h->br : $h->input ({ type => "checkbox", name => $_ }).$_.$h->br } @days),
 77 
#      map ({ inArray($_, \@dayschecked) ? $h->input ({ type => "checkbox", name => $_, checked => [] }).$_.$h->br : $h->input ({ type => "checkbox", name => $_ }).$_.$h->br } @days),
72 
#      $h->input ({ type => "submit", value => scalar @dayschecked ? "Update my hours." : "Give me credit!" })
 78 
#      $h->input ({ type => "submit", value => scalar @dayschecked ? "Update my hours." : "Give me credit!" })
73 
#    ]);
 79 
#    ]);
74 
#}
 80 
#}
Line 132... Line 138...
132 
if ($user->{MVPid} or $user->{department}->{MVP} >= RollerCon::USER or $user->{department}->{COA} >= RollerCon::USER or $LVL >= RollerCon::SYSADMIN) {
 138 
if ($user->{MVPid} or $user->{department}->{MVP} >= RollerCon::USER or $user->{department}->{COA} >= RollerCon::USER or $LVL >= RollerCon::SYSADMIN) {
Line 133... Line 139...
133
139
134 
  if (getSetting ("MAX_CLASS_SIGNUP") < 1) {
 140 
  if (getSetting ("MAX_CLASS_SIGNUP") < 1) {
135 
#    push @mvppass, $h->div ({class=>"error"}, "MVP Classes are not open for pre-registration yet. Pre-registration will start sometime this week, but the exact date and time won't be announced. Check back later.").$h->br;
 141 
#    push @mvppass, $h->div ({class=>"error"}, "MVP Classes are not open for pre-registration yet. Pre-registration will start sometime this week, but the exact date and time won't be announced. Check back later.").$h->br;
- 
 
 142 
    push @mvppass, $h->div ({class=>"error"}, "MVP Classes are not open for pre-registration yet.").$h->br;
- 
 
 143 
  } else {
136 
    push @mvppass, $h->div ({class=>"error"}, "MVP Classes are not open for pre-registration yet.").$h->br;
 144 
    push @mvppass, $h->div ({ style=>"font-weight:bold;" }, "MVP Classes are open for pre-registration! You can sign up for up to ".getSetting ("MAX_CLASS_SIGNUP")." classes.").$h->br;
Line 137... Line 145...
137 
  }
 145 
  }
138
146
Line 171... Line 179...
171 
			$h->li ($h->a ({ href=>"right_now.pl?t=C3" }, "Track C3")),
 179 
			$h->li ($h->a ({ href=>"right_now.pl?t=C3" }, "Track C3")),
172 
			$h->li ($h->a ({ href=>"right_now.pl?t=C5" }, "Track C5")),
 180 
			$h->li ($h->a ({ href=>"right_now.pl?t=C5" }, "Track C5")),
173 
			$h->li ($h->a ({ href=>"right_now.pl?t=BT"  }, "Banked Track")),
 181 
			$h->li ($h->a ({ href=>"right_now.pl?t=BT"  }, "Banked Track")),
174 
		])]);
 182 
		])]);
175 
	}
 183 
	}
176 
  push @announcements, $h->li ([$h->img ({src=>"/images/star-icon.png"}), $h->a ({href => "https://docs.google.com/forms/d/e/1FAIpQLSdcHjUzd7wwpGTK6LPW15XFuWZbpCNHkbdlYxIszwe03WuStQ/viewform"}, "Gold Star Form")]);
 184 
  push @announcements, $h->li ({ style => "padding-bottom:10px;" }, [$h->img ({src=>"/images/star-icon.png"}), $h->a ({href => "https://docs.google.com/forms/d/e/1FAIpQLSdcHjUzd7wwpGTK6LPW15XFuWZbpCNHkbdlYxIszwe03WuStQ/viewform"}, "Gold Star Form")]);
177 
}
 185 
}
Line 178... Line 186...
178
186
179 
my @managers;
 187 
my @managers;
180 
if ($LVL >= 3) {
 188 
if ($LVL >= 3) {