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> Near the mouth of the river. Flow includes water from all tributaries.<br>
<b>Present Status:</b> very high Nitrogen, Sediments, Toxins, Temperature; 
low Dissolved Oxygen<br>
<b>Task:</b> Reduce runoff and pollutants N, S, T; increase available O2 (D.O.) and lower Temperature. <br>
<b>How to Proceed?</b> Examine both graphs for pollution Indicators.  For 
each graph, Select Indicators from list on the left side of your screen, 
then Change Display.  Go to other stations to improve water 
quality.<br><br>

HTML
}

sub printPreInfoPristine{
$landuse="Pristine Forest";
&printLULink;
print <<"HTML";
5000 acres<br>
<b>Present Status:</b> n/a<br>
<b>Biodiversity:</b> High<br>
<b>Suggested Improvement:</b> None<br>

HTML
}

sub printPreInfoLogging{
$landuse="Logging Forest";
&printLULink;
print <<"HTML";
10000 acres<br>
<b>Present Status:</b> Sediments and runoff would decrease dramatically
 if responsible forestry techniques are used. <br>
<b>Biodiversity:</b> Low<br>
<b>Suggested Improvement:</b> Forbid Clear Cutting 
HTML
&printBMPLink;
}

sub printPostInfoLogging{
$landuse="Logging Forest";
&printLULink;
print <<"HTML";
10000 acres<br>
<b>Present Status:</b> Sediments and runoff have decreased dramatically because a buffer was required. <br>
<b>Biodiversity:</b> Medium<br>
<b>Improvement:</b> Forbid Clear Cutting 
HTML
&printBMPLink;
}

sub printPreInfoStripCropping{
$landuse="Mixed Agricultural Area";
&printLULink;
print <<"HTML";
50000 acres<br>
<b>Present Status:</b> Very High Nitrogen, Sediments, Toxins & Water Temp, Low D.O.<br>
<b>Biodiversity:</b> Low<br>
<b>Suggested Improvement:</b> Strip Cropping 
HTML
&printBMPLink;
}

sub printPostInfoStripCropping{
$landuse="Mixed Agricultural Area";
&printLULink;
print <<"HTML";
50000 acres<br>
<b>Present Status:</b> Grass buffer has reduced sediments and nutrients, increased D.O.<br>
<b>Biodiversity:</b> Medium<br>
<b>Improvement:</b> Strip Cropping 
HTML
&printBMPLink;
}

sub printPreInfoStreamBuffer{
$landuse="Suburbs";
&printLULink;
print <<"HTML";
12000 acres<br>
<b>Present Status:</b> runoff, sediments, nutrients, toxins are affected<br>
<b>Biodiversity:</b> Low<br>
<b>Suggested Improvement:</b> Require a Stream Buffer 
HTML
&printBMPLink;
}

sub printPostInfoStreamBuffer{
$landuse="Suburbs";
&printLULink;
print <<"HTML";
12000 acres<br>
<b>Present Status:</b> runoff, sediments, nutrients, toxins are affected<br>
<b>Biodiversity:</b> Medium<br>
<b>Improvement:</b> Require a Stream Buffer 
HTML
&printBMPLink;
}

sub printPreInfoRunoffPond{
$landuse="Shopping Mall";
&printLULink;
print <<"HTML";
9000 acres<br>
<b>Present Status:</b> Runoff amount, Temperature and Toxins are affected<br>
<b>Biodiversity:</b> Low<br>
<b>Suggested Improvement:</b> Require a Runoff Pond / Cache Basin 
HTML
&printBMPLink;
}

sub printPostInfoRunoffPond{
$landuse="Shopping Mall";
&printLULink;
print <<"HTML";
9000 acres<br>
<b>Present Status:</b> Runoff amount, Temperature and Toxins are affected<br>
<b>Biodiversity:</b> Medium<br>
<b>Improvement:</b> Require a Runoff Pond / Cache Basin 
HTML
&printBMPLink;
}

sub printPreInfoStormSanitary{
$landuse="Urban Area";
&printLULink;
print <<"HTML";
8000 acres<br>
<b>Present Status:</b> High Toxins, Temperature<br>
<b>Biodiversity:</b> Low<br>
<b>Suggested Improvement:</b> Separate Storm and Sanitary Sewers 
HTML
&printBMPLink;
}

sub printPostInfoStormSanitary{
$landuse="Urban Area";
&printLULink;
print <<"HTML";
8000 acres<br>
<b>Present Status:</b> Lower Nutrients, Toxins<br>
<b>Biodiversity: </b> Medium<br>
<b>Improvement:</b> Separate Storm and Sanitary Sewers 
HTML
&printBMPLink;
}

sub printPreInfoMarsh{
$landuse="Wetlands";
&printLULink;
print <<"HTML";
10000 acres<br>
<b>Present Status:</b> <br>
<b>Biodiversity:</b> High<br>
<b>Suggested Improvement:</b> Protect Wetlands 
HTML
&printBMPLink;
}

sub printPostInfoMarsh{
$landuse="Wetlands";
&printLULink;
print <<"HTML";
10000 acres<br>
<b>Present Status:</b> <br>
<b>Biodiversity:</b> High<br>
<b>Improvement:</b> Protect Wetlands 
HTML
&printBMPLink;
}
1;

sub printBMPLink{ #bmp info link
print "[<a href=\"bmpinfo.php?";
print "&user=$user";
print "&topgraph=$topgraph";
print "&topstation=$station";
print "&stationname=$topaltname";
print "&topfrom=$topfrom";
print "&topto=$topto";
print "&topyrange=$topyrange";
print "&topyrangeto=$topyrangeto";
print "&bottomgraph=$bottomgraph";
print "&bottomstation=$bottomstation";
print "&bottomstationname=$botaltname";
print "&botfrom=$botfrom";
print "&botto=$botto";
print "&botyrange=$botyrange";
print "&botyrangeto=$botyrangeto";
print "&topbmp=$topbmp";
print "&botbmp=$botbmp";
print "&place=$locale\" ";
print "target=\"otherWindow\" onClick=\"Others()";
print "\">More Info</a>]<BR>";
}

sub printLULink{ #land use link
print "<b>Description:</b> ";
print "<a href=\"landuse.php?";
print "&user=$user";
print "&topgraph=$topgraph";
print "&topstation=$station";
print "&topstationname=$topaltname";
print "&topfrom=$topfrom";
print "&topto=$topto";
print "&topyrange=$topyrange";
print "&topyrangeto=$topyrangeto";
print "&bottomgraph=$bottomgraph";
print "&bottomstation=$bottomstation";
print "&bottomstationname=$botaltname";
print "&botfrom=$botfrom";
print "&botto=$botto";
print "&botyrange=$botyrange";
print "&botyrangeto=$botyrangeto";
print "&topbmp=$topbmp";
print "&botbmp=$botbmp";
print "&place=$locale\" ";
print "target=\"otherWindow\" onClick=\"Others()";
print "\">$landuse</a> ";
}