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 31... Line 32...
31 
	email       => [qw(Email        30    text                )],
 32 
	email       => [qw(Email        30    text                )],
32 
	real_name   => [qw(RealName     35    text                )],
 33 
	real_name   => [qw(RealName     35    text                )],
33 
	access      => [qw(Role         40    select              )]
 34 
	access      => [qw(Role         40    select              )]
34 
);
 35 
);
35 
my $stylesheet = "/style.css";
 36 
my $stylesheet = "/style.css";
36 
my $homeURL = '/';
 37 
my $homeURL = '/schedule/';
37 
my @pagelimitoptions = ("All", 5, 10, 25);
 38 
my @pagelimitoptions = ("All", 5, 10, 25);
38 
my @whereClause;
 39 
my @whereClause;
39 
push @whereClause, "RCid = $RCid" unless $LVL > 2;
 40 
push @whereClause, "RCid = $RCid" unless $LVL > 2;
Line 40... Line 41...
40 
 
 41