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;