Subversion Repositories VORC

Rev

Rev 7 | 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 38... Line 39...
38 
	note        => [qw(Notes         60    text        default )],
 39 
	note        => [qw(Notes         60    text        default )],
39 
	RCid        => [qw(RCID          65    text         )],
 40 
	RCid        => [qw(RCID          65    text         )],
40 
	derby_name  => [qw(Assignee      70    select      default   )],
 41 
	derby_name  => [qw(Assignee      70    select      default   )],
41 
);
 42 
);
42 
my $stylesheet = "/style.css";
 43 
my $stylesheet = "/style.css";
43 
my $homeURL = '/';
 44 
my $homeURL = '/schedule/';
44 
my @pagelimitoptions = ("All", 5, 10, 25);
 45 
my @pagelimitoptions = ("All", 5, 10, 25);
Line 45... Line 46...
45 
 
 46 
 
46 
my @whereClause;
 47 
my @whereClause;
47 
if ($LVL < 5) {
 48 
if ($LVL < 5) {