sub generateFlgNotes
{
	my $cgi = shift;
    	my $readonly = shift;
    	my $attr = shift;
    	my $attrHash = shift;
    	
    	my $value = $attrHash->{VALUE};
    	my $result;
    	    	
 	$result .= $cgi->start_table({-id=>'FlagNotesTable'}); 
 	
 	 foreach my $note (@$value)
 	 {
 	 	 $result .= $cgi->Tr({}, 
                      $cgi->td("<TextArea>$note</TextArea>"));	
      }
    	
    	$result .= $cgi->end_table({});
    	
    	my $addbutton = button(-name=>'AddFlagNote',
           -value=>'Add Flag Note',
           -onclick=>"return addNote('FlagNotesTable', '')", 
           -onsubmit=>?????);
    	
    	$result .= $addbutton;
            	
    	return $result;
}