Subversion Repositories ORC

 	push @managers, $h->li ($h->a ({ href=>"/schedule/manage_shifts.pl" }, "Update your department shift schedule"));

 	push @managers, $h->li ($h->a ({ href=>"/schedule/manage_shifts.pl" }, "Update your department shift schedule"));

 	push @managers, $h->li ($h->a ({ href=>"/schedule/log.pl" }, "Activity Log"));

 	push @managers, $h->li ($h->a ({ href=>"/schedule/log.pl" }, "Activity Log"));

	# 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

	# 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

}

}

my @activity_log;

my @activity_log;

my $alog = $dbh->prepare("select timestamp, event from v_log where RCid = ? limit 10");

my $alog = $dbh->prepare("select timestamp, event from v_log where RCid = ? limit 10");

$alog->execute($user->{RCid});

$alog->execute($user->{RCid});

while (my @logs = $alog->fetchrow_array) {

while (my @logs = $alog->fetchrow_array) {

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do:"), $h->ul ([ @everyone ]) ]);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do:"), $h->ul ([ @everyone ]) ]);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a Lead:"), $h->ul ([ @leads ]) ]) if ($LVL > 1);

print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Things you can do as a Manager:"), $h->ul ([ @managers ]) ]) if ($LVL > 2);