sub DecideAsssignmentHeader {

#print "Decide Assignment Header: M $query{'map'}, T $form{'topstation'},C $changed, B $form{'bottomstation'}.";

	if ($locale eq "top"){
	
		if (($query{'map'} eq "7") || ($form{'topstation'} eq "7")){
			&printAssignment;
			$printedassignment = "yes";
		}
		if ($changed == 0){
			if ($station eq "0"){ &printPreInfoPristine;}
			if ($station eq "1"){ &printPreInfoLogging;}
			if ($station eq "2"){ &printPreInfoStripCropping;}
			if ($station eq "3"){ &printPreInfoStreamBuffer;}
			if ($station eq "4"){ &printPreInfoRunoffPond;}
			if ($station eq "5"){ &printPreInfoMarsh;}
			if ($station eq "6"){ &printPreInfoStormSanitary;}
		}
		elsif ($changed eq 1){
			if ($station eq "1"){ &printPostInfoLogging; }
			if ($station eq "2"){ &printPostInfoStripCropping;}
			if ($station eq "3"){ &printPostInfoStreamBuffer;}
			if ($station eq "4"){ &printPostInfoRunoffPond;}
			if ($station eq "5"){ &printPostInfoMarsh;}
			if ($station eq "6"){ &printPostInfoStormSanitary;}
		}

	}
	elsif ($locale eq "bottom"){
		if (($query{'map'} eq "7") || ($form{'bottomstation'} eq "7")){
			if ($printedassignment eq "yes"){
				;
			}
			else {
				&printAssignment;
			}
		}
		if ($bottomchanged == 0){
			if ($bottomstation eq "0"){ &printPreInfoPristine;}
			if ($bottomstation eq "1"){ &printPreInfoLogging;}
			if ($bottomstation eq "2"){ &printPreInfoStripCropping;}
			if ($bottomstation eq "3"){ &printPreInfoStreamBuffer;}
			if ($bottomstation eq "4"){ &printPreInfoRunoffPond;}
			if ($bottomstation eq "5"){ &printPreInfoMarsh;}
			if ($bottomstation eq "6"){ &printPreInfoStormSanitary;}
			# if ($bottomstation eq "7"){ &printAssignment;}
		}
		elsif ($bottomchanged eq 1){
			if ($bottomstation eq "1"){ &printPostInfoLogging; }
			if ($bottomstation eq "2"){ &printPostInfoStripCropping;}
			if ($bottomstation eq "3"){ &printPostInfoStreamBuffer;}
			if ($bottomstation eq "4"){ &printPostInfoRunoffPond;}
			if ($bottomstation eq "5"){ &printPostInfoMarsh;}
			if ($bottomstation eq "6"){ &printPostInfoStormSanitary;}
		}
		else {;}
	}
}

sub printAssignment{
print <<"HTML";

<b>Description:</b> This location is near the mouth of the river. Flow includes water from all tributaries<br>
<b>Present Status:</b> Very High N,S,T, Temp, Low D.O.<br>
<b>Make Improvements:</b> Need to make changes upstream to have effect<br>
<b>Task:</b> Need to reduce runoff and pollutants N, S, T; increase available O2 (D.O.) and lower Temperature. <br>
<b>How to Proceed?</b> Examine the graphs for each of the variables. Go to other stations to find out how to improve water quality<br>
<br>

HTML
}

sub printPreInfoPristine{
print <<"HTML";

<b>Description:</b> Pristine Forest<br>
<b>Present Status:</b> n/a<br>
<b>Suggested Improvement:</b> None<br>

HTML
}

sub printPreInfoLogging{
print <<"HTML";

<b>Description:</b> Forested at the Headwaters<br>
<b>Present Status:</b> Sediments and runoff would decrease dramatically
 if clear cutting is discouraged. <br>
<b>Suggested Improvement:</b> <a
href="$domain$html/logging.html">Forbid Clear Cutting</a><br>
HTML
}

sub printPostInfoLogging{
print <<"HTML";

<b>Description:</b> Forested at the Headwaters<br>
<b>Present Status:</b> Sediments and runoff have decreased dramatically because a buffer was required. <br>
<b>Improvement:</b> <a href="$domain$html/streambuffer.html">Require a
buffer</a><br>

HTML
}

sub printPreInfoStripCropping{
print <<"HTML";

<b>Description:</b> Largely Agricultural Area <br>
<b>Present Status:</b> Very High Nitrogen, Sediments, Toxins & Water Temp, Low D.O.<br>
<b>Suggested Improvement:</b> <a href="$domain$html/stripcropping.html">Strip Cropping</a><br>
HTML
}

sub printPostInfoStripCropping{
print <<"HTML";

<b>Description:</b> Largely Agricultural Area <br>
<b>Present Status:</b>Grass buffer has reduced sediments and nutrients, increased D.O.<br>
<b>Improvement:</b> <a href="$domain$html/stripcropping.html">Strip Cropping</a><br>

HTML
}

sub printPreInfoStreamBuffer{
print <<"HTML";

<b>Description:</b> Suburban Area<br>
<b>Present Status:</b> runoff, sediments, nutrients, toxins are affected<br>
<b>Suggested Improvement:</b> <a href="$domain$html/streambuffer.html">Require a stream buffer</a><br>

HTML
}

sub printPostInfoStreamBuffer{
print <<"HTML";

<b>Description:</b> Suburban Area<br>
<b>Present Status:</b> runoff, sediments, nutrients, toxins are affected<br>
<b>Improvement:</b> <a href="$domain$html/streambuffer.html">stream buffer</a><br>

HTML
}

sub printPreInfoRunoffPond{
print <<"HTML";

<b>Description:</b> Shopping Mall<br>
<b>Present Status:</b> Runoff amount, Temperature and Toxins are affected<br>
<b>Suggested Improvement:</b> <a href="$domain$html/runoffpond.html">Require a Runoff Pond / Cache Basin</a><br>

HTML
}

sub printPostInfoRunoffPond{
print <<"HTML";

<b>Description:</b> Shopping Mall<br>
<b>Present Status:</b> Runoff amount, Temperature and Toxins are affected<br>
<b>Improvement:</b> <a href="$domain$html/runoffpond.html">Implemented a Runoff Pond / Cache Basin</a><br>

HTML
}

sub printPreInfoStormSanitary{
print <<"HTML";

<b>Description:</b> This location is in an urban area drained by a tributary.<br>
<b>Present Status:</b> High Toxins, Temperature<br>
<b>Suggested Improvement:</b> <a href="$domain$html/stormsanitary.html">Seperate storm and sanitary sewers.</a><br>

HTML
}

sub printPostInfoStormSanitary{
print <<"HTML";

<b>Description:</b> Urban Area<br>
<b>Present Status:</b> Lower Nutrients, Toxins<br>
<b>Improvement:</b> <a href="$domain$html/stormsanitary.html">Seperate storm and sanitary sewers.</a><br>

HTML
}

sub printPreInfoMarsh{
print <<"HTML";

<b>Description:</b> Wetlands Area<br>
<b>Present Status:</b> <br>
<b>Suggested Improvement:</b> <a
href="$domain$html/wetlands.html">Wetlands</a><br>

HTML
}

sub printPostInfoMarsh{
print <<"HTML";

<b>Description:</b> Wetlands Area<br>
<b>Present Status:</b> <br>
<b>Improvement:</b> <a href="$domain$html/wetlands.html">Wetlands</a><br>

HTML
}
1;