|Puerto Rico||Santiago Apostol Catholic School|Las Croabas Road, Urb Santa Isidra|Fajardo|PR||00738|Modesto|Garcia|Counselor|787/863-0524|787/863-6655|Sat 09-DEC-06|
|Puerto Rico||Santiago Apostol Catholic School|Las Croabas Road, Urb Santa Isidra|Fajardo|PR||00738|Modesto|Garcia|Counselor|787/863-0524|787/863-6655|Sat 09-JUN-07|
<readmore>
|Puerto Rico||Santiago Apostol Catholic School|Las Croabas Road, Urb Santa Isidra|Fajardo|PR||00738|Modesto|Garcia|Counselor|787/863-0524|787/863-6655|Sat 10-FEB-07|
|Puerto Rico||Santiago Apostol Catholic School|Las Croabas Road, Urb Santa Isidra|Fajardo|PR||00738|Modesto|Garcia|Counselor|787/863-0524|787/863-6655|Sat 14-APR-07|
|Puerto Rico||Santiago Apostol Catholic School|Las Croabas Road, Urb Santa Isidra|Fajardo|PR||00738|Modesto|Garcia|Counselor|787/863-0524|787/863-6655|Sat 28-OCT-06|
|Puerto Rico||Santiago Apostol Catholic School|Las Croabas Road, Urb Santa Isidra|Fajardo|PR||00738|Modesto|Garcia|Counselor|787/863-0524|787/863-6655|Sun 10-DEC-06|
|Puerto Rico||Santiago Apostol Catholic School|Las Croabas Road, Urb Santa Isidra|Fajardo|PR||00738|Modesto|Garcia|Counselor|787/863-0524|787/863-6655|Sun 10-JUN-07|
|Puerto Rico||Santiago Apostol Catholic School|Las Croabas Road, Urb Santa Isidra|Fajardo|PR||00738|Modesto|Garcia|Counselor|787/863-0524|787/863-6655|Sun 15-APR-07|
|Puerto Rico||Santiago Apostol Catholic School|Las Croabas Road, Urb Santa Isidra|Fajardo|PR||00738|Modesto|Garcia|Counselor|787/863-0524|787/863-6655|Sun 29-OCT-06|

##</code><code>##

#!/usr/bin/perl
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
require '../code_paths.conf';

$query = new CGI;
$COUNTRY = $query->param('COUNTRY');	
$LOOKUP = $query->param('LOOKUP');

print $query->header();

#declare hashes needed for script
%testcenters;
%centeraddress;
%centercity;
%centerstateprov;
%centermailcountry;
%centerpostalcode;
%centeradmin;
%centerfax;
%centerphone;
%centerdates;
<readmore>
if($LOOKUP eq "canada"){
	open(DATA,"$osus_data/canada/$COUNTRY") || &no_results;
}
if($LOOKUP eq "usa"){
	open(DATA,"$osus_data/usa/$COUNTRY") || &no_results;
}
if($LOOKUP eq "others"){
	open(DATA,"$osus_data/others/$COUNTRY") || &no_results;
	#open(DATA,"$osus_data/others/$COUNTRY")|| die "Can't open $osus_data/others/$COUNTRY";
}

while($line = <DATA>){
	chomp $line;  	($junk,$o_country,$o_province,$o_tcenter,$o_address,$o_city,$o_stprov,$o_mailcountry,$o_postalcode,$o_firstname,$o_lastname,$o_title,$o_phone,$o_fax,$o_date) = split(/\|/,$line);
		#the hashes are filled using the test center as the key
		$testcenters{$o_city} = $o_tcenter;  #testcenters keyed from city
		$centeraddress{$o_tcenter} = $o_address; 
		$centercity{$o_tcenter} = $o_city;
		$centerstateprov{$o_tcenter} = $o_stprov; 
		$centermailcountry{$o_tcenter} = $o_mailcountry;
		$centerpostalcode{$o_tcenter} = $o_postalcode;
		#the next line builds the center administrator name pieces into one string
		if ($o_title ne ""){
			$centeradmin{$o_tcenter} = "$o_firstname $o_lastname, $o_title";
		}
		else { $centeradmin{$o_tcenter} = "$o_firstname $o_lastname $o_title"; } #deal with that Daekyo center to remove the comma
		$centerfax{$o_tcenter} = $o_fax;
		$centerphone{$o_tcenter} = $o_phone;
		$centerdates{$o_tcenter} .= "$o_date|";  #combine the dates for same test center
			
} #end of while($line = <DATA>)

&print_header;

print <<TOP_OF_PAGE;
<table width="565" border="0" cellspacing="0" cellpadding="5">
<TR><TD><h1>ACT Assessment Test Dates for $COUNTRY</h1></TD></TR>
<TR>
<TD>Students must register directly with the supervisor of the test center where they wish to test, not with ACT. The deadline date for contacting the test center is the Friday two weeks before the scheduled test date. There is no standby testing provision.</TD></TR></TABLE>
TOP_OF_PAGE

@mycenters = sort byString keys %testcenters; #returns list of centercity in alpha order
foreach $city(@mycenters){
#this foreach loop will go through each city
foreach $center($testcenters{$city}){
#this foreach loop builds the code snippets for each test center
	#set up table for individual test center entries
	print "<TABLE WIDTH=565 CELLPADDING=5 CELLSPACING=5>\n";
	print "<HR align=center width=555>";
	print "<TR>\n\t<TD WIDTH=400>\n";  
	print "$testcenters{$city}<BR>";  #print testcenter name
	
	if(($centeraddress{$center}) eq ""){} #address field not filled, skip 
	else { print "$centeraddress{$center}<BR>"; }  #print testcenter address
	
	if(($centercity{$center}) eq ""){} #city field not filled, skip 
	else { print "$centercity{$center}, "; }  #print testcenter city
	
	if(($centerstateprov{$center}) eq ""){} #state/province field not filled, skip 
	else { print "$centerstateprov{$center}, "; }  #print testcenter state/province
	
	if(($centerpostalcode{$center}) eq ""){} #postal code field not filled, skip 
	else { print "$centerpostalcode{$center}"; }  #print testcenter postal code
	
	if(($centermailcountry{$center}) eq ""){} #mailcountry field not filled, skip 
	else { print "<BR>$centermailcountry{$center}<BR>"; }  #print testcenter mailing country
	
	print "\n<P><i>For information on registering at this test center contact:</i><br>\n";
	
	print "<b>$centeradmin{$center}</b><br>";  #print center administrator name, title
	
	if(($centerphone{$center}) eq ""){} #phone field not filled, skip 
	else { print "Phone: $centerphone{$center}<BR>"; }  #print testcenter phone
	
	if(($centerfax{$center}) eq ""){} #fax field not filled, skip 
	else { print "Fax: $centerfax{$center}<BR>"; }  #print testcenter fax
	
	print "\n\t</td>\n";  #end center information table column
	print "\t<TD WIDTH=165 VALIGN=TOP>\n<UL>\n\t";  #start date bulleted list column
	
	my @testdates = split(/\|/, $centerdates{$center});  #split up the center dates
	#my @sorted_dates = sort byNum @testdates;   #put the dates in order
	
	foreach $item(@testdates)  #print each date  switched from @sorted_dates
	{
		print "<LI>$item\n";  
	}
	
	print "</UL></TD></TR>\n";  #close list, ect
	print "<TR><TD COLSPAN=2></TD></TR></TABLE>\n"; 
	
}  #end of foreach $center($testcenters{$city})
}  #end of foreach $city(@mycenters)
	
&print_footer;

sub byNum{

	$a <=> $b;

}

sub byString {

        lc($a) cmp lc($b);

}

sub print_header{
if($server_url eq 'www.actstudent.org'){
	$header = $header_osus;
}
elsif($server_url eq 'testdev.act.org'){
	$header = $review_header_osus;
}

print <<END_HTMLHEADER;
<html>
<head>
<TITLE>ACT Test Dates for $COUNTRY</TITLE>
END_HTMLHEADER

open(HEADER,"$header");
print <HEADER>;
close HEADER;
}

sub print_footer{
print <<END_HTMLFOOTER;
<!-- end content -->
</td>
</tr>
<tr>
<td width="205" align="left" valign="bottom" id="l-col"><img src="http://$server_url/images/side_bottom.gif" width="205" height="30"></td>
</tr>
<tr align="left" valign="top">
<td colspan="3">
END_HTMLFOOTER

open(FOOTER,"$footer");
print <FOOTER>;
close FOOTER;

print <<END_HTMLFOOTER2;
<!-- end footer -->
</td></tr></table>
<!-- end outer table -->
<p>&nbsp;</p>
</div>
</body>
</html>
END_HTMLFOOTER2
exit 0;	
}

sub no_results{
$STATE = ".";
print <<END_HTMLHEAD;
<html>
<head>
<TITLE>ACT Test Dates for $COUNTRY</TITLE>
END_HTMLHEAD

&print_header;

print <<TOP_OF_PAGE2;
<table width="565" border="0" cellspacing="0" cellpadding="5">
<TR><TD><h1>ACT Assessment Test Dates for $COUNTRY</h1></TD></TR>
<TR>
<TD>Currently, there are no available test dates or test locations available for $COUNTRY.<br><br>
<a href="http://$server_url/regist/outside.html">Search for another location.</a></TD>
</TR></TABLE>
TOP_OF_PAGE2

&print_footer;
}
}