Subversion Repositories VORC

Rev

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

Rev 143 Rev 180
Line 100... Line 100...
100 
	my %crew;
 100 
	my %crew;
101 
	$crewhan->execute($date, $g->{track}, $g->{time});
 101 
	$crewhan->execute($date, $g->{track}, $g->{time});
102 
	while (my ($k, $v) = $crewhan->fetchrow_array()) {
 102 
	while (my ($k, $v) = $crewhan->fetchrow_array()) {
103 
		$crew{$k} = $v;
 103 
		$crew{$k} = $v;
104 
	}
 104 
	}
105 
	my $P1 = "PLT-1";
 105 
	my $P1 = "PLT/H";
106 
	my $P2 = "PLT-2";
 106 
	my $P2 = "PLT-2";
107 
	my $PH = "PLT";
 107 
	my $PH = "PLT/HNSO";
108 
	my $OPR1 = "OPR-1";
 108 
	my $OPR1 = "OPR-1";
- 
 
 109 
		$P1 = 'PLT/HNSO';
109 
	if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
 110 
	if ($g->{gtype} eq "Full Length" or $g->{gtype} eq "Selected Staffing") {
110 
		$P1 = 'PLT/H';
 111 
		$P1 = 'PLT/HNSO';
111 
		$P2 = 'PLT';
 112 
		$P2 = 'PLT';
112 
		$PH = $P1;
 113 
		$PH = $P1;
113 
	} elsif ($g->{gtype} eq "Challenge-rs1") {
 114 
	} elsif ($g->{gtype} eq "Challenge-rs1") {
114 
		$crew{'OPR-1'} = "<i>-not staffed-</i>";
 115 
		$crew{'OPR-1'} = "<i>-not staffed-</i>";
115 
		$crew{'OPR-2'} = "<i>-not staffed-</i>";
 116 
		$crew{'OPR-2'} = "<i>-not staffed-</i>";
Line 129... Line 130...
129 
		$crew{'PLT-2'} = "<i>-not staffed-</i>";
 130 
		$crew{'PLT-2'} = "<i>-not staffed-</i>";
130 
		$crew{'SK-1'} = "<i>-not staffed-</i>";
 131 
		$crew{'SK-1'} = "<i>-not staffed-</i>";
131 
		$crew{'SK-2'} = "<i>-not staffed-</i>";
 132 
		$crew{'SK-2'} = "<i>-not staffed-</i>";
132 
		$crew{'PBM'} = "<i>-not staffed-</i>";
 133 
		$crew{'PBM'} = "<i>-not staffed-</i>";
133 
	} elsif ($g->{gtype} eq "Scrimmage") {
 134 
	} elsif ($g->{gtype} eq "Scrimmage") {
134 
		$crew{'PLT-1'} = "<i>-not staffed-</i>";
 135 
		$crew{'PLT/HNSO'} = "<i>-not staffed-</i>";
135 
		$crew{'PLT-2'} = "<i>-not staffed-</i>";
 136 
		$crew{'PLT-2'} = "<i>-not staffed-</i>";
136 
		$crew{'SK-1'} = "<i>-not staffed-</i>";
 137 
		$crew{'SK-1'} = "<i>-not staffed-</i>";
137 
		$crew{'SK-2'} = "<i>-not staffed-</i>";
 138 
		$crew{'SK-2'} = "<i>-not staffed-</i>";
138 
		$crew{'PBM'} = "<i>-not staffed-</i>";
 139 
		$crew{'PBM'} = "<i>-not staffed-</i>";
139 
		$crew{'PBT-1'} = "<i>-not staffed-</i>";
 140 
		$crew{'PBT-1'} = "<i>-not staffed-</i>";
Line 165... Line 166...
165 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>WB:</td><td>$crew{'WB'}</td></tr>
 166 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>WB:</td><td>$crew{'WB'}</td></tr>
166 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
 167 
	<tr><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
167 
</table><br><br><br><br><br><br><br><br><br><br><br><br>
 168 
</table><br><br><br><br><br><br><br><br><br><br><br><br>
168 
BTgame
 169 
BTgame
Line -... Line 170...
- 
 
 170
- 
 
 171 
	} elsif ($g->{gtype} =~ /^usars/i) {
- 
 
 172 
	  print<<usars;
- 
 
 173 
<table>
- 
 
 174 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
- 
 
 175 
	<tr><td>Time:</td><td>$g->{time}</td><td>&nbsp;</td><td>Class:</td><td>$class{$g->{restrictions}} $g->{level} $g->{gtype}</td></tr>
- 
 
 176 
	<tr><td>Game:</td><td colspan=4>$g->{teams}</td></tr>
- 
 
 177 
	<tr><td colspan=5>&nbsp;</td></tr>
- 
 
 178 
	<tr><td>HR:</td><td>$crew{'HR'}</td><td>&nbsp;</td><td>PT:</td><td>$crew{'PT-1'}</td></tr>
- 
 
 179 
	<tr><td>IPR:</td><td>$crew{'IPR'}</td><td>&nbsp;</td><td>PT:</td><td>$crew{'PT-2'}</td></tr>
- 
 
 180 
	<tr><td>ASR:</td><td>$crew{'ASR-1'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-1'}</td></tr>
- 
 
 181 
	<tr><td>ASR:</td><td>$crew{'ASR-2'}</td><td>&nbsp;</td><td>SK:</td><td>$crew{'SK-2'}</td></tr>
- 
 
 182 
	<tr><td>OPR:</td><td>$crew{'OPR-1'}</td><td>&nbsp;</td><td>PW:</td><td>$crew{'PW'}</td></tr>
- 
 
 183 
	<tr><td>OPR:</td><td>$crew{'OPR-2'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-1'}</td></tr>
- 
 
 184 
	<tr><td>OPR:</td><td>$crew{'OPR-3'}</td><td>&nbsp;</td><td>PBT:</td><td>$crew{'PBT-2'}</td></tr>
- 
 
 185 
	<tr><td>OPR:</td><td>$crew{'OPR-4'}</td><td>&nbsp;</td><td>LU:</td><td>$crew{'LU-1'}</td></tr>
- 
 
 186 
	<tr><td>$A</td><td>$crew{'ALT'}</td><td>&nbsp;</td><td>LU:</td><td>$crew{'LU-2'}</td></tr>
- 
 
 187 
	<tr><td>JT:</td><td>$crew{'JT'}</td><td>&nbsp;</td><td>SBO:</td><td>$crew{'SBO'}</td></tr>
- 
 
 188 
</table><br><br><br><br><br><br><br><br><br><br><br>
- 
 
 189 
usars
169
190 
 
170 
	} else {
 191 
	} else {
171 
	  print<<game;
 192 
	  print<<game;
172 
<table>
 193 
<table>
173 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>
 194 
	<tr><td>Date:</td><td>$day ($date)</td><td>&nbsp;</td><td>Track:</td><td>$g->{track}</td></tr>