Subversion Repositories VORC

Rev

Rev 208 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 208 Rev 226
Line 9... Line 9...
9 
use strict;
 9 
use strict;
10 
use cPanelUserConfig;
 10 
use cPanelUserConfig;
11 
use WebDB;
 11 
use WebDB;
12 
use HTML::Tiny;
 12 
use HTML::Tiny;
13 
use RollerCon;
 13 
use RollerCon;
14 
use CGI qw/param header start_html url/;
 14 
use CGI qw/param header start_html url url_param/;
15 
my $h = HTML::Tiny->new( mode => 'html' );
 15 
my $h = HTML::Tiny->new( mode => 'html' );
16 
my $dbh = WebDB::connect;
 16 
my $dbh = WebDB::connect;
17 
my $homeURL = '/schedule/';
 17 
my $homeURL = '/schedule/';
18 
my $pageTitle = "View MVP Class Comments";
 18 
my $pageTitle = "View MVP Class Comments";
Line 21... Line 21...
21 
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 21 
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
22 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
 22 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
23 
my @ERRORS;
 23 
my @ERRORS;
24 
my $DEBUG = 0;
 24 
my $DEBUG = 0;
Line 25... Line 25...
25 
 
 25 
 
26 
my $classid = param ("classid") // "";
 26 
my $classid = param ("classid"); $classid //= url_param ("classid");
Line 27... Line 27...
27 
error ("No ClassID.") unless $classid;
 27 
error ("No ClassID.") unless $classid;
28 
 
 28 
 
Line 29... Line 29...
29 
my $qid = param ("qid") // "";
 29 
my $qid = param ("qid"); $qid //= url_param ("qid");
30 
error ("No QuestionID.") unless $classid;
 30 
error ("No QuestionID.") unless $classid;
31 
 
 31