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