print $cgi->startform; print $cgi->h3('Select Project to view QA Metrics'); print $cgi->br; print $cgi->br; print "Enter Start Date [dd/mm/yyyy]
"; print $cgi->textfield(-name=>'start_date', -default=>'07/03/2009', -size=>9, -maxlength=>80); print $cgi->br; print $cgi->br; print "Enter End Date [dd/mm/yyyy]
"; print $cgi->textfield(-name=>'end_date', -default=>'08/01/2010', -override=>true, -size=>9, -maxlength=>80); print $cgi->br; print $cgi->br; print $cgi->br; print "Select Project to View QA Metrics
"; print $cgi->br; print $cgi->scrolling_list(-name=>'Projects', -value=>[ 'ARES', 'POSEIDON_SW', 'DEIMOS', 'MIMAS', 'JUPITER', 'POSEIDON', 'DIONYSUS'], -size=>8, -multiple=>'true', -default=>'ARES'); print $cgi->br; print $cgi->br; print "Select from P1, P2, or P1+P2 Bugs Data
"; print $cgi->br; print $cgi->radio_group(-name=>'P1P2_bugs', -values=> ['P1', 'P2','P1-P2'], -default=>['P1'], -linebreak=>'true'); print $cgi->br; print $cgi->submit(-value=>'Submit Project'); print $cgi->endform;