if ( param("Apply Edit") ) {
        #print header();
	#if the "Apply Edit" button was pushed
	  my $note;
	  if (!(param("thenote"))) {$note=" ";}
	  else{
            $note                                      = param("thenote");
	  }
            $xml->{name}->{ param('selname') }->{note} = $note || die "assignment operator failed.";
            print XMLout( $xml, OutputFile => $xmlfile, NoAttr => 1, SuppressEmpty => undef ) || die "XMLout busted: $! .";
            my $title = "Whiteboard" || die "Can't assign title";
	    
            open( OUTFILE, ">", $htmlfile ) || die "Can't open $htmlfile for writing.";
            select(OUTFILE) || die "can't select OUTFILE";
            print start_html(
                -title => $title,
                -style => { 'src' => 'basic.css' }
            )|| die "Can't print start_html";
            print "<div id='masthead'>";
            print h3( a( { href => "../" }, "MFST" ) );
            print h1( "Whiteboard", span($title) );
            print "</div>";
            print "<div id='main'><div id='content'>";
            print "<table cols=2 rows='10' width='100%' border='1'>";
            print
"<th bgcolor='#00FF99' align='center'><h3 align='center'>Name</h3></th>
<th bgcolor='#00FF99' align='center'><h3 align='center'>Location/Notes</h3></th>";
            my $counter = 0;
            foreach $i (keys( %{ $xml->{name} } )) {
	      if (!($xml->{name}->{$i}->{note})){
		$xml->{name}->{$i}->{note}=" ";
	      }
                if ( $counter == 0 ) {
                    print
"\n<tr>\n<td width='30%'><h1 align='center'>$i</h1></td>\n<td width='30%'><h1 align='center'>$xml->{name}->{$i}->{note}</h1></td> </tr>";
                }
                else {
                    print
"\n<tr>\n<td width='30%'><h2 align='center'>$i</h2></td>\n<td width='30%'><h2 align='center'>$xml->{name}->{$i}->{note}</h2></td> </tr>";
                }
                ++$counter;
            }
            print "</table>";
            print
"<a href='edit.pl'><h2 align='center'>Edit Whiteboard</h2></a>
</div>
<div id='footer'>
<a href='#masthead' id='totop'>Return to Top of Page</a>";
            my $mtime1 = localtime( ( stat $xmlfile )[9] );
            print hr(),
              font( { -size => '-1' }, "Underlying data last edited $mtime1" ),
              br();
            print "<p> This page is restricted to MFST staff. </p>
</p>
</div>
</div>

            </body>";
	    print end_html();
	    close(OUTFILE);
            select STDOUT;
            #rename( $htmlfile2, $htmlfile ) || die "Can't rename HTML file";
	
        print redirect(
            'whiteboard.html');
    }    #end else
    elsif (param("Cancel")) {
       print redirect(
            'whiteboard.html');
     }
   else {
   #should be nothing else it could be, but just in case
       print header(), start_html(), "YOU HAVE REACHED THIS PAGE IN ERROR",end_html();
     }
   } #end else
}    #end begin