Check over data and if incorrect or in need of changes
Click on the BACK button
If correct, click on Send on the bottom of the page

Date: $date

This Question will possibly be for:

$round_data

Submitting Library: $library
Submitting Initials: $initials
Category: $category
Type: $type

$category Book and Author Info

$space20$book_author

Question and Answers

$space20 Question: $question

$space20 $space20 Answer: $round_answer

$space20 Page Number: $pagenum

$space20 Changes: $changes

File Name: $datefile

Data Line: $datajoin

E-mail list: $email_list

$errorcat_desc

 #### #!/usr/bin/perl -wT # Created - by Joseph Ruffino 08/13/04 use CGI::Carp qw(fatalsToBrowser); # Errors are displayed in the web browseer use CGI qw(:standard :html3); # For HTML output ############################################################################### # Load in variables from form # my $datefile = $ENV{'datefile'}; my $datajoin = $ENV{'datajoin'}; #open (BOBIN, ">>$datefile") || die "Cannot Open File $datefile for writing: $!"; #print BOBIN $datajoin; my $query = new CGI; print $query->header( "text/html" ); print <Question Confirmation

Data File: $datefile

Data Line: $datajoin

Your

Question and Answer

has been submitted to Youth

Click to back to Question Submiission Form

END_WEB close(BOBIN);