#!/usr/local/bin/perl -w
 
use CGI ':standard';

print header;
print start_html('Paper search'),
    h1('Paper search'),
    start_form(-method=>'get',
              -action=>'http://vole/~meng/paper_database/cgi_bin/search.cgi'),  
    "Title :   ",textfield('title', '', 50, 80),
    p,
    "Author: ",textfield('author', '', 50, 80),
    p,
    "Journal: ",textfield('journal', '', 50, 80),
    p,
    "Which year?",
    p,
    radio_group(-name=>'year',
                   -values=>['NULL', '1997','1996','1995','1994', '1993', 
                            '1992', '1991', '1990', 'Before 1990'],
                   -defaults=>['NULL']),
    p,
    "keyword: ",
    popup_menu(-name=>'keyword',
               -values=>['None',
                         'tolerance analysis and synthesis',
                         'statistical tolerance',
                         'geometric tolerance',
                         'CMM', 'CMM algorithm', 'metrology',
                         'functional tolerancing',
                         'mathematization']),

    p,
    popup_menu(-name=>'location',
               -values=>['unknown',
                         'david',
                         'jack',
                         'roberto',
                         'joe',
                         'Dr. Zhang']),
    p,
    submit,
    reset,
    end_form,
    hr;

print a({href=>'mailto:meng@eng.fsu.edu'},'please sent me your comments');
print end_html;