Subversion Repositories PEEPS

Rev

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

Rev 40 Rev 48
Line 21... Line 21...
21 
my $user = $ORCUSER;
 21 
my $user = $ORCUSER;
22 
my @adminleagues = isLeagueAdmin ($user->{person_id});
 22 
my @adminleagues = isLeagueAdmin ($user->{person_id});
23 
my $username = $user->{derby_name};
 23 
my $username = $user->{derby_name};
24 
my $PEEPSAUTH_cookie = CGI::Cookie->new(-name=>'PEEPSAUTH',-value=>"$cookie_string",-expires=>"+30m");
 24 
my $PEEPSAUTH_cookie = CGI::Cookie->new(-name=>'PEEPSAUTH',-value=>"$cookie_string",-expires=>"+30m");
25 
my $YEAR = 1900 + (localtime)[5];
 25 
my $YEAR = 1900 + (localtime)[5];
26 
my $dbh = getDBConnection ();
 26 
my $dbh = getRCDBH ();
Line 27... Line 27...
27 
 
 27 
 
28 
my $pageTitle = "View League";
 28 
my $pageTitle = "View League";
29 
my $homeURL = "/";
 29 
my $homeURL = "/";
30 
my $DBTable = "organization";
 30 
my $DBTable = "organization";