| Line 37... |
Line 37... |
| 37 |
use DateTime;
|
37 |
use DateTime;
|
| 38 |
my $dt = DateTime->today;
|
38 |
my $dt = DateTime->today;
|
| 39 |
$dt =~ s/T00\:00\:00$//;
|
39 |
$dt =~ s/T00\:00\:00$//;
|
| Line 40... |
Line 40... |
| 40 |
|
40 |
|
| 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};
|
| - |
|
43 |
|
| - |
|
44 |
if ($user->{department}->{EMT} >= RollerCon::USER and !$user->{emt_verified}) {
|
| - |
|
45 |
push @announcements, $h->li ("NOTE: You can't sign up for EMT/Medical shifts until your credentials have been verified.");
|
| - |
|
46 |
}
|
| 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};
|
47 |
|
| 43 |
my ($announcement) = $dbh->selectrow_array ("select value from setting where setting.key = ?", undef, "ANNOUNCEMENT");
|
48 |
my ($announcement) = $dbh->selectrow_array ("select value from setting where setting.key = ?", undef, "ANNOUNCEMENT");
|
| Line 44... |
Line 49... |
| 44 |
push @announcements, $h->li ($announcement) if $announcement;
|
49 |
push @announcements, $h->li ($announcement) if $announcement;
|
| 45 |
|
50 |
|