use warnings;
use strict;
use CGI ":standard";

print header(), start_html();

print
    start_form(),
    h3('Select Project to view QA Metrics'),
    br(),
    br(),
    "<em><b>Enter Start Date  [dd/mm/yyyy]</b></em><br>",
    textfield(-name=>'start_date',
                    -default=>'07/03/2009',
                    -size=>9,
                    -maxlength=>80),
    br(),
    br(),
    "<em><b>Enter End Date  [dd/mm/yyyy]</b></em><br>",
    textfield(-name=>'end_date',
                    -default=>'08/01/2010',
                    -override=>1,
                    -size=>9,
                    -maxlength=>80),
    br(),
    div({-style=>"float:left; width: 45%; margin:1ex 0 1ex %5"},
        h4("Select Project to View QA Metrics"),
        scrolling_list(-name=>'Projects',
                       -value=>[
                                'ARES',
                                'POSEIDON_SW',
                                'DEIMOS',
                                'MIMAS',
                                'JUPITER',
                                'POSEIDON',
                                'DIONYSUS'],
                       -size=>8,
                       -multiple=>'true',
                       -default=>'ARES'),
        ),
    div({-style=>"float:left; width: 45%; margin:1ex 0 1ex %5"},
        h4("Select from P1, P2, or P1+P2 Bugs Data"),
        radio_group(-name=>'P1P2_bugs',
                    -values=> ['P1', 'P2','P1-P2'],
                    -default=>['P1'],
                    -linebreak=>'true'),
        ),
    div({-style=>"clear:both; text-align:center"},
        submit(-value=>'Submit Project'),
        ),
    end_form();

print end_html();