Select Code to Download

my %options = (    show_reqs => checkbox(-name=>'show_reqids', -checke
+d=>0, -value=>'ON', -label=>'Show requirement IDs?'),
        date       => "<b>Created: </b>" . radio_group(-name=>'bef_sin
+ce', -values=>['before', 'since'], -default=>'none',
...
                textfield(-name=>'date', -size=>10, -maxlength=>10),
        req_type  => "<b>Requirement Type</b> (e.g. BRQ): " . textfiel
+d(-name=>'reqtype', -size=>5, -maxlength=>5),
);

my %report_types = (    0 => {name => "Report One",
                opts => ['show_reqs', 'date'], coderef => \&report_typ
+e_two},
            1 => {name => "Report Two",
                opts => ['show_reqs', 'req_type', 'date'], coderef => 
+\&report_type_three},
);

#!c:/perl/bin/perl.exe -T

...
}

print end_html;