#!/bin/perl -Tw
# CGI script that creates a fill-out form
# and echoes back its values.

use CGI qw/:standard/;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time);
$year = $year + 1900;
$jdate = sprintf("%04d%02.2d%02.2d%02.2d%02.2d",$year,$mon+1,$mday,$min,$sec);

$check = 0;

# Open Output file for permanent record of response, name according to 
# date/time for unique names


print header, start_html('CEOP Land Cover and Soils Information');

if (param()) {


      # print h1('Your Response was: ');
      # Convert from param() to variable name so we can change the answers
      # to accomodate line breaks, hot links. 
      @names = param();
      for($i=0; $i<= $#names; $i++) {

           $key = $names[$i];
           $value{$key} = param($names[$i]);

           # Look for url's or e-mail addresses in text, if found make
           # them hot links.
           @fields = split(/ /,$value{$key});
           for($j=0; $j<= $#fields; $j++) {
               if ($fields[$j] =~ /\.\w{2,3}/ && $fields[$j] !~ /@/ ) {
                   if($fields[$j] =~ /^http/) {
                      #$fields[$j] = substr($fields[$j],7);
                      #$fields[$j] ="<a href=http://".$fields[$j].">".$fields[$j]."</a><br>\n";
                    } else {
                      #$fields[$j] ="<a href=http://".$fields[$j].">".$fields[$j]."</a><br>\n";
                    }
               } elsif($fields[$j] =~ /\.\w{2,3}/ && $fields[$j] =~ /@/ ) {
                      #$fields[$j] ="<a href=\"mailto:".$fields[$j]."\">".$fields[$j]."</a><br>\n";
               }
           }

           # Put everything back together
           $value{$key} = join(" ",@fields);

#          Look for non-expected characters and remove for security sake
           unless ($value{$key} =~ /\<a href/ ) { 
                $value{$key} =~ s/\</.lt./g;
                $value{$key} =~ s/\>/.gt./g;
           }
           # Look for line breaks from textarea replies and preserve 
           # formatting for html. If no answer given, insert blank.
           if ($value{$key})  {
#              print OUTFIL "key is defined: $_\n";
                $value{$key} =~ s/\r\n/<br>/g;
                $value{$key} =~ s/\r/<br>/g;

#          Look for non-expected characters and remove for security sake
                $value{$key} =~ s/\\//g;
                $value{$key} =~ s/\&/and/g;

               $test = 1;
           } else {
#              print OUTFIL "$_ is not defined\n";
               $value{$key} = "&nbsp;"; 
           }
     }


#  if( param('title') !~ /\w+/) {
#      
#    print h2('<font face=helvetica>ERROR - Title field is missing, please fill in missing blank on form - Thanks!</font>'),hr;
#    $check = 1;
#
#  } elsif( param('corr_email') !~ /\w+/) {
#      
#    print h2('<font face=helvetica>ERROR - e-mail address is missing, please fill in missing blank on form - Thanks!</font>'),hr;
#    $check = 1;
#
#  }

$fname = param('cse');
$fname2 = param('stn');
$fname =~ s/\s/_/g;
$file=$fname."_".$fname2."_".$jdate;
$file =~ m/^([a-zA-Z0-9\._]+)$/ or die "Bad data in first argument";

if(param('confirmation') && $check != 1) {
     # Write user response to Output file

     open (OUTFIL,">/web/docs/ghp/ceopdm/webresponse/veg/$1.html");
     open (OUTFIL2,">>/web/docs/ghp/ceopdm/webresponse/veg/data/$1.txt");

     print OUTFIL start_html('CEOP Land Cover and Soils Information');

     # Print answers to questionnaire 

     print OUTFIL table({-border=>undef,-width=>'80%',align=>center},
        caption(strong('<font face=helvetica>CEOP Land Cover and Soils Information</font>')),
        Tr({-align=>LEFT,-valign=>CENTER},
        [
           th({-bgcolor=>"#6677ff",colspan=>2,align=>center},'<font face=helvetica color=white>Minimum
               Requirements - All Reference Sites are requested to fill out this portion</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Which CEOP Continental Scale Experiment
              (CSE) and Reference Site are these repsonses related to?:</font> ').td([($value{'cse'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Which Station at the Reference Site are these
              repsonses related to?:</font> ').td([($value{'stn'})]),
           th({-bgcolor=>"#ccddee",align=>center,colspan=>2},'<font face=helvetica>Soils Minimum Requirement</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Surface sand, silt and clay percentages; or 
              <a target=view_window href="http://www.fao.org/ag/agl/agll/wrb/newkey.stm">texture class</a></font> ').td([($value{'soil_min1'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Surface porosity (%)</font></font>  ').td([($value{'soil_min2'})]),
           th({-bgcolor=>"#ccddee",align=>center,colspan=>2},'<font face=helvetica>Land Cover Minimum Requirement</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Dominant land cover at the ground measurement location
              (detailed description or
              <a target=view_window href="http://edcsns17.cr.usgs.gov/glcc/globdoc2_0.html#app3">USGS class</a>
              preferred; other classification optional)</font> ').td([($value{'land_min1'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Has there been a major change in land cover at the
              ground measurement site during the period from 1 October 2002 to 31 December 2004 (e.g.
              deforestation, crop rotation, fires, etc)?  If yes, please provide details.</font> ').td([($value{'land_min2'})]),
           th({-bgcolor=>"#ccddee",align=>center,colspan=>2},'<font face=helvetica>Elevation Minimum Requirement</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Elevation (m) at the ground measurement
               location</font> ').td([($value{'elev_min1'})]),
           th({-bgcolor=>"#6677ff",colspan=>2,align=>center},'<font face=helvetica color=white>Enhanced
               Information - All Reference Sites may fill out this section, but BALTEX Lindenberg, CAMP Tongyu,
               GAPP Bondville and MDB are specifically requested to fill out this section.</font> ',),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},'<font face=helvetica>Soils Enhanced Information</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Textures in deeper soil layers</font> ').td([($value{'soil_enh1'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Porosity (%) in deeper soil layers</font> ').td([($value{'soil_enh2'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Soil infiltration rate (mm/hr)</font> ').td([($value{'soil_enh3'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Bulk dry density (g/cm3)</font> ').td([($value{'soil_enh4'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Saturated hydraulic conductivity (cm/s)</font> ').td([($value{'soil_enh5'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Soil Reference Group(s) (from World Reference Base for Soil
              Resources)</font> ').td([($value{'soil_enh6'})]),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},'<font face=helvetica>Land Cover Enhanced
              Information</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Land cover (approximate percentages of each type) within
              50 m of the measurement location</font> ').td([($value{'land_enh1'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Land cover (approximate percentages of each type) within
              500 m of the measurement location (1 km pixel)</font> ').td([($value{'land_enh2'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Land cover (approximate percentages of
              each type) within 12 km of the measurement location (1/4 degree pixel)</font> ').td([($value{'land_enh3'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Are there seasonal land cover changes at this station
              (e.g. greening/harvesting, etc)? If yes, please provide details.
              Also provide typical or maximum seasonal LAI values.</font> ').td([($value{'land_enh4'})]),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},'<font face=helvetica>Elevation Enhanced
              Information</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Slope at the ground measurement
              location</font> ').td([($value{'elev_enh1'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Mean elevation (m) and range of elevations in
              1 km pixel</font> ').td([($value{'elev_enh2'})]),
        ]
        )
     ),br;


     close(OUTFIL);

     # Write pertinent information to data file so information can be summarized
     # using Filemaker Pro or other such program (fields are comma delimited)

     foreach $field ( param() ) {

         $value = param($field);
         $value =~ s/,/ /g;

         print OUTFIL2 "$field, $value,\n";

     }

     close(OUTFIL2);

     # Write confirmation message and output table to screen one last time
     print start_html('CEOP Land Cover and Soils Information');

     print h2('<font face=helvetica>Your information has been sent to the JOSS Server.
        Thank you for submitting your information.  To submit information for another station click
        <a href="http://www.joss.ucar.edu/cgi-bin/ceop/ceop_veg">here to return to the questionnaire.</a></font>'),hr;

} 

     # Print answers to questionnaire 

unless (param('confirmation')) {

     print h2('<table width=80% align=center><td><font size=+2 face=helvetica>Please review your responses below and
        if you are satisfied with them click the <font color=red>CONFIRM</font> button to submit your responses.
        If you need to change anything, change your answers in the form below and click the
        <font color=red>Preview Response</font> button at the bottom of the form.</font></td></table>'),hr;

     print start_form,
           submit(-name=>'confirmation', -value=>"CONFIRM-Below answers are correct"),hr;
}

     print table({-border=>undef,-width=>'80%',align=>center},
        caption(strong('<font face=helvetica>CEOP Land Cover and Soils Information')),
        Tr({-align=>LEFT,-valign=>CENTER},
        [
           th({-bgcolor=>"#6677ff",colspan=>2,align=>center},'<font face=helvetica color=white>Minimum
               Requirements - All Reference Sites are requested to fill out this portion</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Which CEOP Continental Scale Experiment
              (CSE) and Reference Site are these repsonses related to?:</font> ').td([($value{'cse'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Which Station at the Reference Site are these
              repsonses related to?:</font> ').td([($value{'stn'})]),
           th({-bgcolor=>"#ccddee",align=>center,colspan=>2},'<font face=helvetica>Soils Minimum Requirement</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Surface sand, silt and clay percentages; or 
              <a target=view_window href="http://www.fao.org/ag/agl/agll/wrb/newkey.stm">texture class</a></font> ').td([($value{'soil_min1'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Surface porosity (%)</font></font>  ').td([($value{'soil_min2'})]),
           th({-bgcolor=>"#ccddee",align=>center,colspan=>2},'<font face=helvetica>Land Cover Minimum Requirement</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Dominant land cover at the ground measurement location
              (detailed description or
              <a target=view_window href="http://edcsns17.cr.usgs.gov/glcc/globdoc2_0.html#app3">USGS class</a>
              preferred; other classification optional)</font> ').td([($value{'land_min1'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Has there been a major change in land cover at the
              ground measurement site during the period from 1 October 2002 to 31 December 2004 (e.g.
              deforestation, crop rotation, fires, etc)?  If yes, please provide details.</font> ').td([($value{'land_min2'})]),
           th({-bgcolor=>"#ccddee",align=>center,colspan=>2},'<font face=helvetica>Elevation Minimum Requirement</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Elevation (m) at the ground measurement
               location</font> ').td([($value{'elev_min1'})]),
           th({-bgcolor=>"#6677ff",colspan=>2,align=>center},'<font face=helvetica color=white>Enhanced
               Information - All Reference Sites may fill out this section, but BALTEX Lindenberg, CAMP Tongyu,
               GAPP Bondville and MDB are specifically requested to fill out this section.</font> ',),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},'<font face=helvetica>Soils Enhanced Information</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Textures in deeper soil layers</font> ').td([($value{'soil_enh1'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Porosity (%) in deeper soil layers</font> ').td([($value{'soil_enh2'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Soil infiltration rate (mm/hr)</font> ').td([($value{'soil_enh3'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Bulk dry density (g/cm3)</font> ').td([($value{'soil_enh4'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Saturated hydraulic conductivity (cm/s)</font> ').td([($value{'soil_enh5'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Soil Reference Group(s) (from World Reference Base for Soil
              Resources)</font> ').td([($value{'soil_enh6'})]),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},'<font face=helvetica>Land Cover Enhanced
              Information</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Land cover (approximate percentages of each type) within
              50 m of the measurement location</font> ').td([($value{'land_enh1'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Land cover (approximate percentages of each type) within
              500 m of the measurement location (1 km pixel)</font> ').td([($value{'land_enh2'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Land cover (approximate percentages of
              each type) within 12 km of the measurement location (1/4 degree pixel)</font> ').td([($value{'land_enh3'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Are there seasonal land cover changes at this station
              (e.g. greening/harvesting, etc)? If yes, please provide details.
              Also provide typical or maximum seasonal LAI values.</font> ').td([($value{'land_enh4'})]),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},'<font face=helvetica>Elevation Enhanced
              Information</font> ',),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Slope at the ground measurement
              location</font> ').td([($value{'elev_enh1'})]),
           th({-bgcolor=>"#e5ffff"},'<font face=helvetica>Mean elevation (m) and range of elevations in
              1 km pixel</font> ').td([($value{'elev_enh2'})]),
        ]
        )
     ),br,hr,br,br;


unless (param('confirmation')) {

     print h2('<table width=80% align=center><td><font size=+2 face=helvetica>If the above answers are correct please click the
        <font color=red>CONFIRM</font> button to submit your responses.
        If you need to change anything, change your answers in the form below and click the
        <font color=red>Preview Response</font> button at the bottom of the form.</font></td></table>'),hr;

     print start_form, 
           submit(-name=>'confirmation', -value=>"CONFIRM-Above answers are correct"),hr;
}

} else { 

     print start_form; 
}

unless (param('confirmation')) {

print h1('<table cellpadding=4 align=center><tr>
      <td><img src=/ghp/ceopdm/images/bond_veg.png></td>
      <td><img src="http://www.joss.ucar.edu/ghp/ceopdm/images/ceop50.gif"></td>
      <td><b><font size=+3 face=helvetica>Land Cover and Soils Questionnaire</font></b></td>
      <td><img src=/ghp/ceopdm/images/mong_soil.jpg></td>
      </tr><tr>
      <td align=left><img src="/ghp/ceopdm/images/gewex25.gif"></td>
      <td align=center colspan=2><img src="/ghp/ceopdm/images/clivar40.gif"></td>
      <td align=right><img src="/ghp/ceopdm/images/clic40.jpg"></td></table>'),
      '<font face=helvetica><table align=center width=80%><td>
       The following questionnaire is being utilized to collect a set of land cover and soils information
       from every station at every CEOP Reference Site.  You will need to fill out a separate form for
       every station at your reference site.  Each Reference Site is requested to provide responses to
       the "Minimum Requirements" section.  Each Reference Site may also respond to the "Enhanced
       Information" section, but the BALTEX Lindenberg, CAMP Tongyu, GAPP Bondville and MDB Reference
       Sites are specifically requested to provide responses to this section. After an initial study is
       completed, further information requirements will be determined and additional metadata may be
       requested.
<p>
       Please fill out as completely as possible the sections that are required for your reference site.
       Once you have completed filling out your required sections click on the 
       <font color=red><b>Preview Response</b></font> button at the bottom of this web page.  A summary
       of your responses will then appear above this questionnaire.  Please check over your response for
       any errors or omissions and change as desired.  In order for your response to be registered, you
       must click on the <font color=red><b>Confirm</b></font> button on that page after you are 
       satisfied with your responses.</td></table>',


     table({-border=>undef,width=>'80%',align=>center},
        caption(strong('&nbsp;')),
        Tr({-align=>LEFT,-valign=>CENTER},
        [
           th({-bgcolor=>"#6677ff",colspan=>2,align=>center},['<font face=helvetica color=white>Minimum
               Requirements - All Reference Sites are requested to fill out this portion</font> ',]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Which CEOP Continental Scale Experiment (CSE) and Reference
              Site are these responses related to?:</font> ', popup_menu(-name=>'cse',-value=>['BALTEX Cabauw',
              'BALTEX Lindenberg','BALTEX Norunda','BALTEX Sodankyla','CAMP Chao-Phraya River',
              'CAMP Equatorial Island','CAMP Himalayas','CAMP Korean Haenam','CAMP Korean Peninsula',
              'CAMP Mongolia', 'CAMP Northeast Thailand', 'CAMP Northern South China Sea - Southern Japan',
              'CAMP Siberia Taiga','CAMP Siberia Tundra','CAMP Tibet','CAMP Tongyu','CAMP Western Pacific Ocean','CATCH Niamey',
              'CATCH Oueme','GAPP Bondville','GAPP Ft. Peck','GAPP Mt. Bigelow','GAPP Oak Ridge','GAPP SGP',
              'LBA Brasilia','LBA Caxiuana','LBA Manaus','LBA Pantanal','LBA Rondonia','LBA Santarem','MAGS BERMS',
              'MDB Murrumbidgee','MDB Tumbarumba','Other ARM NSA','Other ARM TWP'])]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Which Station at the Reference Site are these
              responses related to?:</font> ', textarea(-name=>'stn',-rows=>2,columns=>60)]),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},['<font face=helvetica>Soils Minimum Requirement</font> ',]), 
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Surface sand, silt and clay percentages; or 
              <a target=view_window href="http://www.joss.ucar.edu/ghp/ceopdm/images/soil_texture.jpg">texture class</a></font> ', 
              textarea(-name=>'soil_min1',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Surface porosity (%)</font> ', 
              textarea(-name=>'soil_min2',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},['<font face=helvetica>Land Cover Minimum
              Requirement</font> ',]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Dominant land cover at the ground measurement location
              (detailed description or
              <a target=view_window href="http://edcsns17.cr.usgs.gov/glcc/globdoc2_0.html#app3">USGS class</a>
              preferred; other classification optional, but specify)</font> ',
              textarea(-name=>'land_min1',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Has there been a major change in land cover at the
              ground measurement site during the period from 1 October 2002 to 31 December 2004 (e.g. 
              deforestation, crop rotation, fires, etc)?  If yes, please provide details.</font> ',
              textarea(-name=>'land_min2',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},['<font face=helvetica>Elevation Minimum
              Requirement</font> ',]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Elevation (m) at the ground measurement location</font> ',
              textarea(-name=>'elev_min1',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#ffffff",colspan=>2,align=>center},['<font face=helvetica color=white>&nbsp</font> ',]),
           th({-bgcolor=>"#6677ff",colspan=>2,align=>center},['<font face=helvetica color=white>Enhanced
               Information - All Reference Sites may fill out this section, but BALTEX Lindenberg, CAMP Tongyu,
               GAPP Bondville and MDB are specifically requested to fill out this section.</font> ',]),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},['<font face=helvetica>Soils Enhanced Information</font> ',]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Textures in deeper soil layers<br>
              Layer sand, silt and clay percentages; or 
              <a target=view_window href="http://www.joss.ucar.edu/ghp/ceopdm/images/soil_texture.jpg">texture class</a></font> ', 
              textarea(-name=>'soil_enh1',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Porosity (%) in deeper soil layers</font> ',
              textarea(-name=>'soil_enh2',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Soil infiltration rate (mm/hr)</font> ',
              textarea(-name=>'soil_enh3',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Bulk dry density (g/cm3)</font> ',
              textarea(-name=>'soil_enh4',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Saturated hydraulic conductivity (cm/s)</font> ',
              textarea(-name=>'soil_enh5',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>
              <a target=view_window href="http://www.fao.org/ag/agl/agll/wrb/newkey.stm">Soil Reference Group(s)</a>
              (from World Reference Base for Soil Resources)</font> ', textarea(-name=>'soil_enh6',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},['<font face=helvetica>Land Cover Enhanced
              Information</font> ',]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Land cover (approximate percentages of each type) within
              50 m of the measurement location<br> (detailed description or
              <a target=view_window href="http://edcsns17.cr.usgs.gov/glcc/globdoc2_0.html#app3">USGS class</a>
              preferred; other classification optional, but specify)</font> ', textarea(-name=>'land_enh1',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Land cover (approximate percentages of each type) within
              500 m of the measurement location (1 km pixel)<br> (detailed description or
              <a target=view_window href="http://edcsns17.cr.usgs.gov/glcc/globdoc2_0.html#app3">USGS class</a>
              preferred; other classification optional, but specify)</font> ', textarea(-name=>'land_enh2',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Land cover (approximate percentages of 
              each type) within 12 km of the measurement location (1/4 degree pixel)<br> (detailed description or
              <a target=view_window href="http://edcsns17.cr.usgs.gov/glcc/globdoc2_0.html#app3">USGS class</a>
              preferred; other classification optional, but specify)</font> ', 
              textarea(-name=>'land_enh3',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Are there seasonal land cover changes at this station
              (e.g. greening/harvesting, etc)?
              If yes, please provide details.  Also provide typical or maximum seasonal LAI values. 
              </font> ', textarea(-name=>'land_enh4',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#ccddee",colspan=>2,align=>center},['<font face=helvetica>Elevation Enhanced
              Information</font> ',]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Slope at the ground measurement location</font> ',
              textarea(-name=>'elev_enh1',-rows=>4,-columns=>60)]),
           th({-bgcolor=>"#e5ffff"},['<font face=helvetica>Mean elevation (m) and range of elevations in 1 km pixel</font> ',
              textarea(-name=>'elev_enh2',-rows=>4,-columns=>60)]),

       ]
        )
     ),
      submit(-name=>'send',-value=>"Preview Response"),
      defaults(-name=>'Clear Form'),
      end_form,
      hr;

}