Subversion Repositories ORC

Rev

Rev 7 | Rev 11 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7 Rev 8
Line 1... Line 1...
1 
#!/usr/bin/perl
 1 
#!/usr/bin/perl
Line 2... Line 2...
2 
 
 2 
 
Line 3... Line 3...
3 
#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }
 3 
#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }
- 
 
 4 
 
4 
 
 5 
#use strict;
5 
#use strict;
 6 
use cPanelUserConfig;
6 
use CGI qw/param cookie header start_html url/;
 7 
use CGI qw/param cookie header start_html url/;
7 
use HTML::Tiny;
 8 
use HTML::Tiny;
8 
use tableViewer;
 9 
use tableViewer;
Line 24... Line 25...
24 
if (!scalar (grep { $user->{department}->{$_} < 1 } grep { !/^(ANN|OFF)$/ } keys %{$user->{department}}) and $LVL < 4) {
 25 
if (!scalar (grep { $user->{department}->{$_} < 1 } grep { !/^(ANN|OFF)$/ } keys %{$user->{department}}) and $LVL < 4) {
25 
	print header(-cookie=>$RCAUTH_cookie);
 26 
	print header(-cookie=>$RCAUTH_cookie);
26 
	printRCHeader("Unauthorized Page");
 27 
	printRCHeader("Unauthorized Page");
27 
	print $h->div ({ class=>"error" }, "No Access");
 28 
	print $h->div ({ class=>"error" }, "No Access");
28 
	print $h->div ("Your user account is not registered as a Volunteer in a department that uses this view, so you can't see these shifts.  It's possible that your access is still being reviewed.  Please be patient.");
 29 
	print $h->div ("Your user account is not registered as a Volunteer in a department that uses this view, so you can't see these shifts.  It's possible that your access is still being reviewed.  Please be patient.");
29 
	print $h->a ({ href=>"/" }, "[Go Home]");
 30 
	print $h->a ({ href=>"/schedule/" }, "[Go Home]");
30 
	print $h->close ("html");
 31 
	print $h->close ("html");
31 
	exit;
32 
	exit;
32 
}
 33 
}
Line 51... Line 52...
51 
	note        => [qw(Notes         55    text        default )],
 52 
	note        => [qw(Notes         55    text        default )],
52 
	RCid        => [qw(AssigneeID    60    text         )],
 53 
	RCid        => [qw(AssigneeID    60    text         )],
53 
	derby_name  => [qw(DerbyName     65    select      default   )],
 54 
	derby_name  => [qw(DerbyName     65    select      default   )],
54 
);
 55 
);
55 
my $stylesheet = "/style.css";
 56 
my $stylesheet = "/style.css";
56 
my $homeURL = '/';
 57 
my $homeURL = '/schedule/';
57 
my @pagelimitoptions = ("All", 5, 10, 25);
 58 
my @pagelimitoptions = ("All", 5, 10, 25);
Line 58... Line 59...
58 
 
 59 
 
59 
my @whereClause;
 60 
my @whereClause;
60 
if ($LVL <= RollerCon::MANAGER) {
 61 
if ($LVL <= RollerCon::MANAGER) {
Line 305... Line 306...
305 
 
 306 
 
- 
 
 307 
 
Line 306... Line 308...
306 
 
 308 
 
307 
 
 309
308
310 
print start_html (-title => $pageTitle, -style => {'src' => $stylesheet} );
309 
print start_html (-title => $pageTitle, -style => {'src' => $stylesheet} );
 311 
#printRCHeader ($pageTitle);