Subversion Repositories VORC

Rev

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

Rev 181 Rev 182
Line 45... Line 45...
45 
 
 45 
 
Line 46... Line 46...
46 
#$LVL = 1;
 46 
#$LVL = 1;
Line 47... Line 47...
47 
 
 47 
 
48 
my $dbh = WebDB::connect ();
 48 
my $dbh = WebDB::connect ();
49 
 
 49 
 
Line 50... Line 50...
50 
my $games = $dbh->prepare ("select * from v_shift_officiating where year(date) = ? and now() > date and RCid = ? and gtype in ('challenge', 'selected staffing', 'full length')");
 50 
my $games = $dbh->prepare ("select * from v_shift_officiating where year(date) = ? and now() > date and RCid = ? and gtype in ('challenge', 'selected staffing', 'full length') order by date desc, time desc");
51 
my $teams = $dbh->prepare ("select team1, team2 from game where id = ?");
 51 
my $teams = $dbh->prepare ("select team1, team2 from game where id = ?");
Line 94... Line 94...
94 
  push @line, $game->{tla};
 94 
  push @line, $game->{tla};
95 
  push @line, $game->{tla2};
 95 
  push @line, $game->{tla2};
96 
  push @line, $game->{tla} eq "SBO" ? "C" : "";
 96 
  push @line, $game->{tla} eq "SBO" ? "C" : "";
97 
  push @line, $HR;
 97 
  push @line, $HR;
98 
  push @line, $HNSO;
 98 
  push @line, $HNSO;
99 
  push @line,
99 
  push @line, $game->{gtype} eq "challenge" ? "30 minute game without a halftime" : "";
Line 100... Line 100...
100
100
101 
  print join ",", @line;
 101 
  print join ",", @line;
102 
  print "\n";
 102 
  print "\n";