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);