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

print header;
print start_html('Delete useless papers from the database '),
    h1('Expunge paper'),
    start_form(-method=>'get',
               -action=>'http://vole/~meng/paper_database/cgi_bin/delete.cgi'),  
    "Title :",
    p,
    textfield('title', '', 60, 80),
    p,
    "Author: ",
    p,
    textfield('author', '', 60, 80),
    p,
    "Journal: ",
    p,
    textfield('journal', '', 60, 80),
    p,
    "Which year was it published?",
    p,
    radio_group(-name=>'year',
                   -values=>['1997','1996','1995','1994', '1993', 
                            '1992', '1991', '1990', 'Before 1990'],
                   -defaults=>['1997']),
    p,
    "Where is the paper's location?",
    p,
    popup_menu(-name=>'location',
               -values=>['unknown',
                         'david',
                         'jack',
                         'roberto',
                         'joe',
                         'Dr. Zhang']),
    p,
    "keyword: ",
    popup_menu(-name=>'keyword',
               -values=>['tolerance analysis and synthesis',
                         'statistical tolerance',
                         'geometric tolerance',
                         'CMM', 'CMM algorithm', 'metrology',
                         'functional tolerancing',
                         'mathematization']),

    p,
    submit,
    reset,
    end_form,
    hr;

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