#! /usr/local/bin/perl use CGI qw(:standard); ############################################# # # File: GetInfo.cgi # # Does the updating of the student # assignments for the 503 course. Updates # various files. These files are read by # ShowPage.cgi # # ############################################# print header; start_html("GetInfo.cgi"); print h2("Add/Delete Your Name"); $method = "post"; $action = "ProcessInfo.cgi"; print start_form($method, $action); print "This form can be used to either enter or remove your name"; print " from a database group. To join a group, just enter your name"; print " and select a database group. If your name is not part of that group"; print " it will be added.(The group max size appears next to the name.)"; print " To remove your name from a group, again enter your name and"; print " group. If your name is part of that group, it will be removed."; print "<BR><BR>"; print "First enter your name: "; print p(textfield("name","Your Name Here",30,80)); print "Now scroll up and down this list and select a database group."; print "<BR><BR>"; print scrolling_list( -NAME => "database", -VALUES => [ qw(reporter abi agricola art biography biosis library pais sport dissertation periodical ei) ], -LABELS => { reporter => "World Reporter 7", abi => "ABI/INFORM 7", agricola => "AGRICOLA 5", art => "Art Abstracts, etc. 7", biography => "Biography Index, etc. 5", biosis => "BIOSIS 7", library => "Library Literature, etc. 7", pais => "PAIS 7", sport => "SPORTDiscus 5", dissertation => "Dissertation Abstracts 5", periodical => "Periodical Abstracts 7", ei => "Ei Compendex 5", }, -SIZE => 3, -MULTIPLE => 1, ); print p(submit("Submit Entry"),reset("Clear Form")); print end_form(), hr(); print end_html;