Subversion Repositories VORC

Rev

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

Rev 225 Rev 226
Line 8... Line 8...
8 
 
 8 
 
9 
use strict;
 9 
use strict;
10 
use cPanelUserConfig;
 10 
use cPanelUserConfig;
11 
use RollerCon;
 11 
use RollerCon;
12 
use tableViewer qw/inArray/;
 12 
use tableViewer qw/inArray/;
13 
use CGI qw/param cookie header start_html url/;
 13 
use CGI qw/param cookie header start_html url url_param/;
14 
use Email::Valid;
 14 
use Email::Valid;
15 
use WebDB;
 15 
use WebDB;
16 
use HTML::Tiny;
 16 
use HTML::Tiny;
17 
use DateTime;
 17 
use DateTime;
Line 28... Line 28...
28 
                                                                     $LVL >= RollerCon::ADMIN or
 28 
                                                                     $LVL >= RollerCon::ADMIN or
29 
                                                                     $ORCUSER->{department}->{VCI} >= RollerCon::USER or
 29 
                                                                     $ORCUSER->{department}->{VCI} >= RollerCon::USER or
30 
                                                                     $ORCUSER->{department}->{MVP} >= RollerCon::USER or
 30 
                                                                     $ORCUSER->{department}->{MVP} >= RollerCon::USER or
31 
                                                                     $ORCUSER->{department}->{COA} >= RollerCon::USER;
 31 
                                                                     $ORCUSER->{department}->{COA} >= RollerCon::USER;
Line 32... Line 32...
32 
 
 32 
 
33 
my $coachRCid = param "RCid" // "";
 33 
my $coachRCid = param "RCid"; $coachRCid //= url_param "RCid";
Line 34... Line 34...
34 
ERRORandEXIT ("No Coach specified. [Invalid RCid: '$coachRCid']") unless $coachRCid =~ /^\d+$/;
 34 
ERRORandEXIT ("No Coach specified. [Invalid RCid: '$coachRCid']") unless $coachRCid =~ /^\d+$/;
35 
 
 35