Subversion Repositories ORC

Rev

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

Rev 8 Rev 35
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 cPanelUserConfig;
 - 
 
6 
use CGI qw/:standard/;
 5 
use cPanelUserConfig;
7 
use scanFunctions;
 6 
use CGI qw/:standard/;
8 
use RollerCon;
 7 
use RollerCon;
9 
use Spreadsheet::WriteExcel;
 8 
use Spreadsheet::WriteExcel;
Line 22... Line 21...
22 
my $T2  = param('T2');
 21 
my $T2  = param('T2');
23 
my $action = param('action');
 22 
my $action = param('action');
Line 24... Line 23...
24 
 
 23 
 
Line 25... Line 24...
25 
die unless $GID;
 24 
die unless $GID;
26 
 
 25 
 
27 
my $dbh = getDBConnection();
 26 
my $dbh = getRCDBH;
Line 28... Line 27...
28 
my $gethan = $dbh->prepare("select * from v_scores where id = ?");
 27 
my $gethan = $dbh->prepare("select * from v_scores where id = ?");
29 
my $puthan = $dbh->prepare("replace into score (gid, team1_score, team2_score) values (?, ?, ?)");
 28 
my $puthan = $dbh->prepare("replace into score (gid, team1_score, team2_score) values (?, ?, ?)");
Line 81... Line 80...
81 
			    }
 80 
			    }
82 
			  }
 81 
			  }
83 
			}
 82 
			}
Line 84... Line 83...
84
83
85 
			function reloadParent() {
 84 
			function reloadParent() {
86 
	      window.opener.document.Scores.submit();
 - 
 
87 
	      sleep(5000);
85 
	      window.opener.location.reload();
88 
	      //window.close();
 86 
	      setTimeout(() => { window.close(); }, 3000);
Line 89... Line 87...
89 
			}
 87 
			}
90 
 
 88