| Line 59... |
Line 59... |
| 59 |
push @leads, $h->li (["What's happening right now on...", $h->ul ([
|
59 |
push @leads, $h->li (["What's happening right now on...", $h->ul ([
|
| 60 |
$h->li ($h->a ({ href=>"right_now.pl?t=C1" }, "Track C1")),
|
60 |
$h->li ($h->a ({ href=>"right_now.pl?t=C1" }, "Track C1")),
|
| 61 |
$h->li ($h->a ({ href=>"right_now.pl?t=C2" }, "Track C2")),
|
61 |
$h->li ($h->a ({ href=>"right_now.pl?t=C2" }, "Track C2")),
|
| 62 |
$h->li ($h->a ({ href=>"right_now.pl?t=C3" }, "Track C3")),
|
62 |
$h->li ($h->a ({ href=>"right_now.pl?t=C3" }, "Track C3")),
|
| 63 |
$h->li ($h->a ({ href=>"right_now.pl?t=C4" }, "Track C4")),
|
63 |
$h->li ($h->a ({ href=>"right_now.pl?t=C4" }, "Track C4")),
|
| 64 |
$h->li ($h->a ({ href=>"right_now.pl?t=B" }, "Track B")),
|
64 |
# $h->li ($h->a ({ href=>"right_now.pl?t=B" }, "Track B")),
|
| 65 |
])]);
|
65 |
])]);
|
| 66 |
}
|
66 |
}
|
| 67 |
}
|
67 |
}
|
| Line 68... |
Line 68... |
| 68 |
|
68 |
|
| Line 74... |
Line 74... |
| 74 |
my $counttxt = $count == 1 ? "is 1 user" : "are $count users";
|
74 |
my $counttxt = $count == 1 ? "is 1 user" : "are $count users";
|
| 75 |
push @managers, $h->li ($h->a ({ href=>"user_report.pl?autoload=1&RCid=true&derby_name=true&email=true&real_name=true&access=true&department=true&added=true&filter-RCid=&filter-derby_name=&filter-email=&filter-real_name=&filter-access=0&filter-department=&filter-added=&sortby=derby_name&limit=25&page=1" }, "There $counttxt waiting to be activated")) if $count;
|
75 |
push @managers, $h->li ($h->a ({ href=>"user_report.pl?autoload=1&RCid=true&derby_name=true&email=true&real_name=true&access=true&department=true&added=true&filter-RCid=&filter-derby_name=&filter-email=&filter-real_name=&filter-access=0&filter-department=&filter-added=&sortby=derby_name&limit=25&page=1" }, "There $counttxt waiting to be activated")) if $count;
|
| 76 |
}
|
76 |
}
|
| 77 |
push @managers, $h->li ($h->a ({ href=>"/schedule/log.pl" }, "Activity Log"));
|
77 |
push @managers, $h->li ($h->a ({ href=>"/schedule/log.pl" }, "Activity Log"));
|
| 78 |
push @managers, $h->li ($h->a ({ href=>"/schedule/volhours.pl" }, "View Volunteer Hours by Department"));
|
78 |
push @managers, $h->li ($h->a ({ href=>"/schedule/volhours.pl" }, "View Volunteer Hours by Department"));
|
| - |
|
79 |
|
| - |
|
80 |
foreach (grep { $user->{department}->{$_} > 2 } keys %{$user->{department}}) {
|
| - |
|
81 |
push @managers, $h->li ($h->a ({ href=>"/schedule/shifts.pl?autoload=1&dept=true&role=true&dayofweek=true&location=true&time=true¬e=true&derby_name=true&filter-dept=$_&sortby=dayofweek&limit=All&page=1" }, "$DEPTS->{$_} Staff Schedule"));
|
| - |
|
82 |
}
|
| - |
|
83 |
|
| 79 |
# Shift Report: select dayofweek, count(RCid) as filled_shifts, count(*) - count(RCid) as open_shifts, count(*) as total_shifts from v_shift group by date order by date
|
84 |
# Shift Report: select dayofweek, count(RCid) as filled_shifts, count(*) - count(RCid) as open_shifts, count(*) as total_shifts from v_shift group by date order by date
|
| 80 |
}
|
85 |
}
|
| Line 81... |
Line 86... |
| 81 |
|
86 |
|
| 82 |
my @sysadmins;
|
87 |
my @sysadmins;
|