|
Library Home |
Catalog |
Databases |
GALILEO |
E-Journals |
Request Forms |
UWG Home |
#!/usr/local/bin/perl -- -*- C -*-
require "cgi-lib14.pl";
require "mycgi-lib";
MAIN:
{
# Read in all the variables set by the form.
&ReadParse(*input);
# Check for done variable to see if demofrls.cgi has been done
if ($input{'done'} < 1) {
print "Location: /~library/cgi-bin/demofrls.cgi", "\n\n";
}
# Reset Error Message variables.
$ERRORMSG1 = "";
$ERRORMSG2 = "";
$ERRORMSG3 = "";
$ERRORMSG4 = "";
$ERRORMSG5 = "";
$ERRORMSG6 = "";
$ERRORMSG7 = "";
$ERRORFOUND = "N";
# Check for incorrect password.
#if ($input{'done'} < 2) {
#if ((substr($input{'password'},0,6) ne substr($input{'id'},0,6)) || ($input{'password'} !~ /[a-zA-Z0-9]/)) {
# $ERRORMSG1 = " -PASSWORD- ";
# $ERRORFOUND = "Y";
#}
#}
# Check for missing data.
if ($input{'dept'} eq "select here") {
$ERRORMSG2 = " -DEPARTMENT- ";
$ERRORFOUND = "Y";
}
if ($input{'name'} eq "") {
$ERRORMSG3 = " -NAME- ";
$ERRORFOUND = "Y";
}
if ($input{'id'} eq "") {
$ERRORMSG4 = " -ID NUMBER- ";
$ERRORFOUND = "Y";
}
if ($input{'email'} =~ /^\s*$/) {
if ($input{'noemail'} eq "") {
$ERRORMSG5 = " -EMAIL ADDRESS- ";
$ERRORMSG6 = "NOTE: Providing your email address will result in faster service.";
$ERRORMSG7 = "Check the \"I have no email\" box if you don't have an email address.";
$ERRORFOUND = "Y";
}
}
if ($input{'todo'} eq "HELP") {
&DoHelp;
} elsif ($input{'todo'} eq "Start Over") {
print "Location: /~library/cgi-bin/demofrls.cgi", "\n\n";
} elsif ($input{'todo'} eq "QUIT") {
print "Location: /~library/depts/systems/rls", "\n\n";
} elsif ($ERRORFOUND eq "Y") {
&DoOver;
} else {
&ProcessForm;
}
}
# Respond to request for help.
sub DoHelp {
# Print the header
# print &PrintHeader;
print &LibHeaderNC ("Ingram Library - $input{'todo'}");
print <<ENDOFTEXT;
<CENTER>
<H3>Ingram Library - Faculty Request for $input{'todo'} - Submitted by $input{'name'}</H3>
<FORM METHOD = "POST" ACTION="/~library/cgi-bin/demofrls.cgi">
<INPUT TYPE="hidden" NAME="id" VALUE="$input{'id'}">
<INPUT TYPE="hidden" NAME="email" VALUE="$input{'email'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="name" VALUE="$input{'name'}">
<INPUT TYPE="hidden" NAME="dept" VALUE="$input{'dept'}">
<INPUT TYPE="hidden" NAME="todo" VALUE="$input{'todo'}">
<INPUT TYPE="hidden" NAME="password" VALUE="$input{'password'}">
<INPUT TYPE="hidden" NAME="done" VALUE="2">
<inPUT TYPE="submit" NAME="submit" VALUE="Go Back to Request Forms">
<P>
<FONT SIZE="+2">
Call (770)836-6495 for further instructions.
</FONT>
</CENTER>
<P>
The Ingram Library Faculty Request for Library Services (LIBFRLS) forms are provided for your convenience as a way to request services from the library. There are currently a total of 8 types of requests that you can make using these forms:
<DL>
<DT>
<B>Interlibrary Loan (Article):</B>
<DD>
Request journal articles you would like our Inter Library Loan department to find for you. You can only request articles that are NOT part of the Ingram Library collection. Please check here before requesting an article:<BR>
<LI><A HREF="http://gil.westga.edu">Ingram Library Catalog</A>
<LI><A HREF="/~library/databases.shtml">E-Journals and Databases</A>
<P>
<DT>
<B>Interlibrary Loan (Book):</B>
<DD>
Request books you would like our Inter Library Loan department to find for you. You can only request books that are NOT part of the Ingram Library collection. Please check here before requesting a book:<BR>
<LI><A HREF="http://gil.westga.edu">Ingram Library Catalog</A>
<P>
<DT>
<B>Document Delivery:</B>
<DD>
Request delivery of any book owned by Ingram Library, any article contained within the Library's extensive periodical collection, or copies of portions of non-circulating materials, such as Reference Books.
<LI><A HREF="/~library/depts/docdel/">More Information</A>
</DD>
<P>
<DT>
<B>Book Purchase:</B>
<DD>
Request books you would like our Acquisitions department to consider adding to the Ingram Library collection. You should only request books that are NOT part of the Ingram Library collection unless you are requesting additional copies of a book already in our collection. Please check here before requesting a book purchase:<BR>
<LI><A HREF="http://gil.westga.edu">Ingram Library Catalog</A>
<P>
<DT>
<B>Periodical Purchase:</B>
<DD>
Request periodicals you would like our Acquisitions department to consider adding to the Ingram Library collection. You should only request periodicals that are NOT part of the Ingram Library collection. Please check here before requesting a journal subscription:<BR>
<LI><A HREF="http://gil.westga.edu">Ingram Library Catalog</A>
<P>
<DT>
<B>Reserve Materials:</B>
<DD>
Request materials you would like our Circulation department to make available to your students. You can include items owned by Ingram Library (which we will pull from the shelves and place on reserve); owned by yourself; or requested through ILL. Please check here to find items in our collection:<BR>
<LI><A HREF="http://gil.westga.edu">Ingram Library Catalog</A>
<LI><A HREF="/~library/databases.shtml">E-Journals and Databases</A>
</DL>
<CENTER>
<inPUT TYPE="submit" NAME="submit" VALUE="Go Back to Request Forms">
</CENTER>
</FORM>
<P>
ENDOFTEXT
print &LibFooter;
exit;
}
# Respond to wrong password or missing data.
sub DoOver {
# Print the header
# print &PrintHeader;
print &LibHeaderNC ("Ingram Library - $input{'todo'} - Oops!");
print <<ENDOFTEXT;
<CENTER>
<H3>Ingram Library - Faculty Request for $input{'todo'} - Submitted by $input{'name'}</H3>
<FORM METHOD = "POST" ACTION="/~library/cgi-bin/demofrls.cgi">
<INPUT TYPE="hidden" NAME="id" VALUE="$input{'id'}">
<INPUT TYPE="hidden" NAME="email" VALUE="$input{'email'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="name" VALUE="$input{'name'}">
<INPUT TYPE="hidden" NAME="dept" VALUE="$input{'dept'}">
<INPUT TYPE="hidden" NAME="todo" VALUE="$input{'todo'}">
<INPUT TYPE="hidden" NAME="password" VALUE="$input{'password'}">
<INPUT TYPE="hidden" NAME="done" VALUE="2">
<FONT SIZE="+2">
Oops!!!<BR>
</FONT>
Please, click "Continue" below to complete the following required fields:
<P>
$ERRORMSG1 $ERRORMSG2 $ERRORMSG3 $ERRORMSG4 $ERRORMSG5<BR>
$ERRORMSG6<BR>
$ERRORMSG7
<P>
Call (770)836-6495 for instructions.
<P>
<inPUT TYPE="submit" NAME="submit" VALUE="CONTINUE">
</CENTER>
</FORM>
<P>
ENDOFTEXT
print &LibFooter;
exit;
}
# Process accepted data and display selected request form.
sub ProcessForm {
# Set campus address line to selected department.
$dept = "$input{'dept'}";
if ($input{'done'} < 2) {
if ($dept eq "OTHER") {
$input{'campadd'} = "";
} elsif ($dept eq "ACC") {
$input{'campadd'} = "Accounting Finance";
} elsif ($dept eq "ART") {
$input{'campadd'} = "ART";
} elsif ($dept eq "BLY") {
$input{'campadd'} = "Biology";
} elsif ($dept eq "CHM") {
$input{'campadd'} = "Chemistry";
} elsif ($dept eq "CSC") {
$input{'campadd'} = "Computing";
} elsif ($dept eq "CEP") {
$input{'campadd'} = "Counseling and Educational Psychology";
} elsif ($dept eq "ECE") {
$input{'campadd'} = "Early Childhood Education and Reading";
} elsif ($dept eq "ECN") {
$input{'campadd'} = "Economics";
} elsif ($dept eq "EDF") {
$input{'campadd'} = "Educational Leadership and Foundations";
} elsif ($dept eq "ENG") {
$input{'campadd'} = "English and Philosophy";
} elsif ($dept eq "FRL") {
$input{'campadd'} = "Foreign Languages and Literature";
} elsif ($dept eq "GLY") {
$input{'campadd'} = "Geology";
} elsif ($dept eq "HIS") {
$input{'campadd'} = "History";
} elsif ($dept eq "LES") {
$input{'campadd'} = "Learning Support and Testing";
} elsif ($dept eq "LIB") {
$input{'campadd'} = "Library";
} elsif ($dept eq "MGT") {
$input{'campadd'} = "Management and Business Systems";
} elsif ($dept eq "MKT") {
$input{'campadd'} = "Marketing and Real Estate";
} elsif ($dept eq "MAS") {
$input{'campadd'} = "Mass Communications and Theatre Arts";
} elsif ($dept eq "MAT") {
$input{'campadd'} = "Mathematics";
} elsif ($dept eq "MGE") {
$input{'campadd'} = "Middle Grades and Secondary Education";
} elsif ($dept eq "MUS") {
$input{'campadd'} = "Music";
} elsif ($dept eq "NUR") {
$input{'campadd'} = "Nursing";
} elsif ($dept eq "PER") {
$input{'campadd'} = "Physical Education and Recreation";
} elsif ($dept eq "PHY") {
$input{'campadd'} = "Physics";
} elsif ($dept eq "PSC") {
$input{'campadd'} = "Political Science and Geography Planning";
} elsif ($dept eq "PSY") {
$input{'campadd'} = "Psychology";
} elsif ($dept eq "RMT") {
$input{'campadd'} = "Research Media and Technology";
} elsif ($dept eq "SOC") {
$input{'campadd'} = "Sociology and Anthropology";
} elsif ($dept eq "SED") {
$input{'campadd'} = "Special Education and Speech Language Pathology";
}
}
if ($input{'campadd'} eq "") {
$input{'campadd'} = $input{'addl1'};
}
}
# Set variable to check that form sequence is followed by user.
$input{'done'} = 2;
# Seed paytype state for multiple requests.
if ($input{'paytype'} eq "bill") {
$billstate = "CHECKED";
} elsif ($input{'paytype'} eq "charge") {
$chargestate = "CHECKED";
} elsif ($input{'paytype'} eq "dept"){
$deptstate = "CHECKED";
} elsif ($input{'paytype'} eq "") {
$billstate = "CHECKED";
}
# Seed docdeliv state for multiple requests.
if ($input{'docdeliv'} eq "email") {
$emailstate = "CHECKED";
} elsif ($input{'docdeliv'} eq "campus") {
$campusstate = "CHECKED";
} elsif ($input{'docdeliv'} eq "fax") {
$faxstate = "CHECKED";
} elsif ($input{'docdeliv'} eq "mail") {
$mailstate = "CHECKED";
} elsif ($input{'docdeliv'} eq "") {
$faxstate = "CHECKED";
}
# Seed deliv state for multiple requests.
if ($input{'deliv'} eq "mail") {
$mailstate = "CHECKED";
} elsif ($input{'deliv'} eq "hold") {
$holdstate = "CHECKED";
} elsif ($input{'deliv'} eq "campus") {
$campusstate = "CHECKED";
} elsif ($input{'deliv'} eq "fax") {
$faxstate = "CHECKED";
} elsif ($input{'deliv'} eq "email") {
$emailstate = "CHECKED";
} elsif ($input{'deliv'} eq "") {
$holdstate = "CHECKED";
}
# Seed libuse state for multiple requests.
if ($input{'libuse'} eq "1hour") {
$hour1state = "CHECKED";
} elsif ($input{'libuse'} eq "2hour") {
$hour2state = "CHECKED";
} elsif ($input{'libuse'} eq "1day") {
$day1state = "CHECKED";
} elsif ($input{'libuse'} eq "3day") {
$day3state = "CHECKED";
} elsif ($input{'libuse'} eq "7day") {
$day7state = "CHECKED";
}
# Start printing of form.
# Print the header.
# print &PrintHeader;
print &LibHeaderNC ("Ingram Library - $input{'todo'}");
print <<ENDOFTEXT;
<H3>Ingram Library - Faculty Request for $input{'todo'} - Submitted by $input{'name'}</H3>
<FORM METHOD = "POST" ACTION="/~library/cgi-bin/demofrls3.cgi">
<INPUT TYPE="hidden" NAME="id" VALUE="$input{'id'}">
<INPUT TYPE="hidden" NAME="name" VALUE="$input{'name'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="dept" VALUE="$input{'dept'}">
<INPUT TYPE="hidden" NAME="todo" VALUE="$input{'todo'}">
<INPUT TYPE="hidden" NAME="done" VALUE="$input{'done'}">
ENDOFTEXT
# Print ILL Article form stuff.
if ($input{'todo'} eq "ILL (Article)") {
print <<ENDOFTEXT;
<INPUT TYPE="hidden" NAME="email" VALUE="$input{'email'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="campadd" VALUE="$input{'campadd'}">
<INPUT TYPE="hidden" NAME="campext" VALUE="$input{'campext'}">
<INPUT TYPE="hidden" NAME="libuse" VALUE="$input{'libuse'}">
<INPUT TYPE="hidden" NAME="course" VALUE="$input{'course'}">
<INPUT TYPE="hidden" NAME="quarter" VALUE="$input{'quarter'}">
<INPUT TYPE="hidden" NAME="year" VALUE="$input{'year'}">
<INPUT TYPE="hidden" NAME="remove" VALUE="$input{'remove'}">
<INPUT TYPE="hidden" NAME="account" VALUE="$input{'account'}">
<INPUT TYPE="hidden" NAME="paytype" VALUE="$input{'paytype'}">
<INPUT TYPE="hidden" NAME="docdeliv" VALUE="$input{'docdeliv'}">
<B>Contact and Delivery Information</B>
<table border="0">
<tr>
<td align="left">
Daytime Phone:
</td>
<td align="left">
(<INPUT NAME="dfona" maxlength="3" size="3" value="$input{'dfona'}">)
<INPUT NAME="dfon" maxlength="8" size="8" value="$input{'dfon'}">
</td>
<td align="left">
Evening Phone:
</td>
<td align="left">
(<INPUT NAME="nfona" maxlength="3" size="3" value="$input{'nfona'}">)
<INPUT NAME="nfon" maxlength="8" size="8" value="$input{'nfon'}">
</td>
</tr>
<tr>
<td align="left">
FAX Number:
</td>
<td align="left">
(<INPUT NAME="ffona" maxlength="3" size="3" value="$input{'ffona'}">)
<INPUT NAME="ffon" maxlength="8" size="8" value="$input{'ffon'}">
</td>
</tr>
</table>
<TABLE BORDER="0">
<TR>
<TD>
Delivery Method Requested:<BR>
</TD>
<TD>
<inPUT TYPE="radio" NAME="deliv" VALUE="hold" $holdstate>
Hold for me to pick up at the Circulation Desk</B><br>
<inPUT TYPE="radio" NAME="deliv" VALUE="mail" $mailstate>
Mail article to my address below <B>(You MUST include an address below!)</B>
</TD>
</TR>
</TABLE>
<table border="0">
<tr>
<td align="left">
Mailing Address Line 1:
</td>
<td align="left">
<inPUT NAME="addl1" maxlength="40" size="40" value="$input{'addl1'}">
</td>
</tr>
<tr>
<td align="left">
Mailing Address Line 2:
</td>
<td align="left">
<inPUT NAME="addl2" maxlength="40" size="40" value="$input{'addl2'}">
</td>
</tr>
<tr>
<td align="left">
City, State Zip:
</td>
<td align="left">
<inPUT NAME="city" maxlength="40" size="40" value="$input{'city'}">, <inPUT NAME="state" value="$input{'state'}" maxlength="2" size="2"> <inPUT NAME="zip" maxlength="5" size="5" value="$input{'zip'}">
</td>
</tr>
</table>
<table border="0">
<tr>
<td valign="top" align="left">
Date after which you cannot use this article (MM/DD/YY):
<inPUT NAME="cua" maxlength="8" size="8" value="$input{'cua'}">
</td>
</TR>
</TABLE>
<HR>
<B>Requested Article Information:</B><BR>
<B>EITHER</B> paste a <B>SINGLE</B>, well-formatted, bibliographic citation in the box below <B>OR</B> fill in the labeled fields.<BR>
<B>ONLY ONE CITATION MAY BE SUBMITTED PER FORM, PLEASE!!!</B>
<P>
<B>Formatted Citation / Comments:</B><BR>
<TEXTAREA WRAP="hard" name="comment" rows="5" cols="60"></TEXTAREA>
<P>
<B>Labeled Fields:</B><BR>
<TABLE BORDER="0">
<TR>
<TD>Article Title:</TD>
<TD><inPUT NAME="atitle" size="40"><br></TD>
<TD>Article Author(s):</TD>
<TD><INPUT NAME="aauth" maxlength="30" size="15"><br></TD>
</TR>
<TR>
<TD>Periodical Title:</TD>
<TD><input NAME="ptitle" size="40"><br></TD>
<TD>Volume:
<input NAME="pvol" maxlength="8" size="3"></TD>
<TD>Number:
<input NAME="pnum" maxlength="8" size="3"></TD>
</TR>
<TR>
<TD>Date of Publication:</TD>
<TD><input NAME="pdate" maxlength="15" size="15">
Page(s):
<input NAME="ppage" maxlength="15" size="8"></TD>
</TR>
</TABLE>
<B>Below, list the publication in which you found this reference:</B>
<TABLE BORDER="0">
<TR>
<TD>Source Title:</TD>
<TD><input NAME="stitle" size="40"></TD>
<TD>Volume:
<input NAME="svol" maxlength="8" size="3"></TD>
<TD>Number:
<input NAME="snum" maxlength="8" size="3"></TD>
</TR>
<TR>
<TD>Source Author(s):</TD>
<TD><INPUT NAME="sauth" maxlength="30" size="30"><br></TD>
</TR>
<TR>
<TD>Date of Publication:</TD>
<TD><input NAME="sdate" maxlength="15" size="15">
Page(s):
<input NAME="spage" maxlength="15" size="8"></TD>
</TR>
</TABLE>
ENDOFTEXT
} elsif ($input{'todo'} eq "ILL (Book)") {
print <<ENDOFTEXT;
<INPUT TYPE="hidden" NAME="email" VALUE="$input{'email'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="campadd" VALUE="$input{'campadd'}">
<INPUT TYPE="hidden" NAME="campext" VALUE="$input{'campext'}">
<INPUT TYPE="hidden" NAME="deliv" VALUE="$input{'deliv'}">
<INPUT TYPE="hidden" NAME="libuse" VALUE="$input{'libuse'}">
<INPUT TYPE="hidden" NAME="course" VALUE="$input{'course'}">
<INPUT TYPE="hidden" NAME="quarter" VALUE="$input{'quarter'}">
<INPUT TYPE="hidden" NAME="year" VALUE="$input{'year'}">
<INPUT TYPE="hidden" NAME="remove" VALUE="$input{'remove'}">
<INPUT TYPE="hidden" NAME="account" VALUE="$input{'account'}">
<INPUT TYPE="hidden" NAME="paytype" VALUE="$input{'paytype'}">
<INPUT TYPE="hidden" NAME="docdeliv" VALUE="$input{'docdeliv'}">
<B>Contact and Delivery Information</B>
<table border="0">
<tr>
<td align="left">
Daytime Phone:
</td>
<td align="left">
(<INPUT NAME="dfona" maxlength="3" size="3" value="$input{'dfona'}">)
<INPUT NAME="dfon" maxlength="8" size="8" value="$input{'dfon'}">
</td>
<td align="left">
Evening Phone:
</td>
<td align="left">
(<INPUT NAME="nfona" maxlength="3" size="3" value="$input{'nfona'}">)
<INPUT NAME="nfon" maxlength="8" size="8" value="$input{'nfon'}">
</td>
</tr>
<tr>
<td align="left">
FAX Number:
</td>
<td align="left">
(<INPUT NAME="ffona" maxlength="3" size="3" value="$input{'ffona'}">)
<INPUT NAME="ffon" maxlength="8" size="8" value="$input{'ffon'}">
</td>
</table>
<table border="0">
<tr>
<td align="left">
Mailing Address Line 1:
</td>
<td align="left">
<inPUT NAME="addl1" maxlength="40" size="40" value="$input{'addl1'}">
</td>
</tr>
<tr>
<td align="left">
Mailing Address Line 2:
</td>
<td align="left">
<inPUT NAME="addl2" maxlength="40" size="40" value="$input{'addl2'}">
</td>
</tr>
<tr>
<td align="left">
City, State Zip:
</td>
<td align="left">
<inPUT NAME="city" maxlength="40" size="40" value="$input{'city'}">, <inPUT NAME="state" maxlength="2" size="2" value="$input{'state'}"> <inPUT NAME="zip" maxlength="5" size="5" value="$input{'zip'}">
</td>
</tr>
</table>
<table border="0">
<tr>
<td valign="top" align="left">
Date after which you cannot use this book (MM/DD/YY):
<inPUT NAME="cua" maxlength="8" size="8" value="$input{'cua'}">
</td>
</TR>
</TABLE>
<HR>
<B>Requested Book Information:</B><BR>
<B>EITHER</B> paste a <B>SINGLE</B>, well-formatted, bibliographic citation in the box below <B>OR</B> fill in the labeled fields.<BR>
<B>ONLY ONE CITATION MAY BE SUBMITTED PER FORM, PLEASE!!!</B>
<P>
<B>Formatted Citation / Comments:</B><BR>
<TEXTAREA WRAP="hard" name="comment" rows="5" cols="60"></TEXTAREA>
<P>
<B>Labeled Fields:</B><BR>
<TABLE BORDER="0">
<TR>
<TD>Book Title:</TD>
<TD><inPUT NAME="atitle" size="40"><br></TD>
<TD>Edition or Volume:</TD>
<TD><input NAME="pvol" maxlength="8" size="3">
This Edition Only?:
<input type="checkbox" NAME="edonly" value="Y">Yes</TD>
</TR>
<TR>
<TD>Book Author(s):</TD>
<TD><INPUT NAME="aauth" maxlength="30" size="30"></TD>
<TD>Date of Publication:</TD>
<TD><input NAME="pdate" maxlength="15" size="15"></TD>
</TD>
</TR>
<TR>
<TD>Publisher:</TD>
<TD><input NAME="pub" maxlength="30" size="30"></TD>
<TD>Place of Publication:</TD>
<TD><input NAME="pubplace" maxlength="30" size="30"></TD>
</TR>
</TABLE>
<B>Below, list the publication in which you found this reference:</B>
<TABLE BORDER="0">
<TR>
<TD>Source Title:</TD>
<TD><input NAME="stitle" size="40"></TD>
<TD>Volume:
<input NAME="svol" maxlength="8" size="3"></TD>
<TD>Number:
<input NAME="snum" maxlength="8" size="3"></TD>
</TR>
<TR>
<TD>Source Author(s):</TD>
<TD><INPUT NAME="sauth" maxlength="30" size="30"><br></TD>
<TD>Date of Publication:</TD>
<TD><input NAME="sdate" maxlength="15" size="15"></TD>
</TR>
<TR>
<TD>Page(s):</TD>
<TD><input NAME="spage" maxlength="15" size="8"></TD>
</TR>
</TABLE>
ENDOFTEXT
} elsif ($input{'todo'} eq "Document Delivery (Article)") {
print <<ENDOFTEXT;
<INPUT TYPE="hidden" NAME="campext" VALUE="$input{'campext'}">
<INPUT TYPE="hidden" NAME="libuse" VALUE="$input{'libuse'}">
<INPUT TYPE="hidden" NAME="course" VALUE="$input{'course'}">
<INPUT TYPE="hidden" NAME="quarter" VALUE="$input{'quarter'}">
<INPUT TYPE="hidden" NAME="year" VALUE="$input{'year'}">
<INPUT TYPE="hidden" NAME="remove" VALUE="$input{'remove'}">
<B>Contact Information:</B><BR>
<TABLE BORDER="0">
<TR>
<TD NOWRAP>
Daytime Phone:
</TD>
<TD NOWRAP>
(<INPUT NAME="dfona" maxlength="3" size="3" value="$input{'dfona'}">)
<INPUT NAME="dfon" maxlength="8" size="8" value="$input{'dfon'}">
</TD>
<TD NOWRAP>
Evening Phone:
</TD>
<TD NOWRAP>
(<INPUT NAME="nfona" maxlength="3" size="3" value="$input{'nfona'}">)
<INPUT NAME="nfon" maxlength="8" size="8" value="$input{'nfon'}">
</TD>
</TR>
</TABLE>
<DL>
<DT>
<B>Delivery Method Requested:</B><BR>
</DT>
<DT>
<inPUT TYPE="radio" NAME="docdeliv" VALUE="fax" $faxstate>
Fax to:
(<INPUT NAME="ffona" maxlength="3" size="3" value="$input{'ffona'}">)
<INPUT NAME="ffon" maxlength="8" size="8" value="$input{'ffon'}">
</DT>
<DT>
<inPUT TYPE="radio" NAME="docdeliv" VALUE="email" $emailstate>
Email to <INPUT NAME="email" SIZE="25" MAXLENGTH="45" VALUE="$input{'email'}"> (If Possible)
</DT>
<DT>
<inPUT TYPE="radio" NAME="docdeliv" VALUE="campus" $campusstate>
Campus Mail</B> to: <INPUT NAME="campadd" SIZE="40" VALUE="$input{'campadd'}"><br>
</DT>
<DT>
<inPUT TYPE="radio" NAME="docdeliv" VALUE="mail" $mailstate>
First Class Mail to my address below <B>(You MUST include an address below!)</B>:<BR>
</DT>
<DD>
<table border="0">
<tr>
<td align="left">
Mailing Address Line 1:
</td>
<td align="left">
<inPUT NAME="addl1" maxlength="40" size="40" value="$input{'addl1'}">
</td>
</tr>
<tr>
<td align="left">
Mailing Address Line 2:
</td>
<td align="left">
<inPUT NAME="addl2" maxlength="40" size="40" value="$input{'addl2'}">
</td>
</tr>
<tr>
<td align="left">
City, State Zip:
</td>
<td align="left">
<inPUT NAME="city" maxlength="40" size="40" value="$input{'city'}">, <inPUT NAME="state" value="$input{'state'}" maxlength="2" size="2"> <inPUT NAME="zip" maxlength="5" size="5" value="$input{'zip'}">
</td>
</tr>
</table>
</DD>
</DL>
<DL>
<DT>
<B>Payment Method:</B>
<DD>
The charge for each article is 1.00 plus .10 per page.<BR>
First Class Mail is billed at cost.
</DT>
<DT>
<INPUT TYPE="radio" NAME="paytype" VALUE="bill" $billstate>Bill me on the library catalog system.
</DT>
<DT>
<INPUT TYPE="radio" NAME="paytype" VALUE="charge" $chargestate>Visa/MC (You will be contacted by phone for the card number.)
</DT>
<DT>
<INPUT TYPE="radio" NAME="paytype" VALUE="dept" $deptstate>Bill Department Account Number: <INPUT SIZE="30" NAME="account" value="$input{'account'}">
</DT>
</DL>
<HR>
Date after which you cannot use this article (MM/DD/YY):
<inPUT NAME="cua" maxlength="8" size="8" value="$input{'cua'}">
<HR>
<B>Requested Article Information:</B><BR>
<B>EITHER</B> paste a <B>SINGLE</B>, well-formatted, bibliographic citation in the box below <B>OR</B> fill in the labeled fields.<BR>
<B>ONLY ONE CITATION MAY BE SUBMITTED PER FORM, PLEASE!!!</B>
<P>
<B>Formatted Citation / Comments:</B><BR>
<TEXTAREA WRAP="hard" name="comment" rows="5" cols="60"></TEXTAREA>
<P>
<B>Labeled Fields:</B><BR>
<TABLE BORDER="0">
<TR>
<TD>Article Title:</TD>
<TD><inPUT NAME="atitle" size="40"><br></TD>
<TD>Article Author(s):</TD>
<TD><INPUT NAME="aauth" maxlength="30" size="15"><br></TD>
</TR>
<TR>
<TD>Periodical Title:</TD>
<TD><input NAME="ptitle" size="40"><br></TD>
<TD>Volume:
<input NAME="pvol" maxlength="8" size="3"></TD>
<TD>Number:
<input NAME="pnum" maxlength="8" size="3"></TD>
</TR>
<TR>
<TD>Date of Publication:</TD>
<TD><input NAME="pdate" maxlength="15" size="15">
Page(s):
<input NAME="ppage" maxlength="15" size="8"></TD>
</TR>
</TABLE>
ENDOFTEXT
} elsif ($input{'todo'} eq "Document Delivery (Book)") {
print <<ENDOFTEXT;
<INPUT TYPE="hidden" NAME="campext" VALUE="$input{'campext'}">
<INPUT TYPE="hidden" NAME="libuse" VALUE="$input{'libuse'}">
<INPUT TYPE="hidden" NAME="course" VALUE="$input{'course'}">
<INPUT TYPE="hidden" NAME="quarter" VALUE="$input{'quarter'}">
<INPUT TYPE="hidden" NAME="year" VALUE="$input{'year'}">
<INPUT TYPE="hidden" NAME="remove" VALUE="$input{'remove'}">
<B>Contact Information:</B><BR>
<TABLE BORDER="0">
<TR>
<TD NOWRAP>
Daytime Phone:
</TD>
<TD NOWRAP>
(<INPUT NAME="dfona" maxlength="3" size="3" value="$input{'dfona'}">)
<INPUT NAME="dfon" maxlength="8" size="8" value="$input{'dfon'}">
</TD>
<TD NOWRAP>
Evening Phone:
</TD>
<TD NOWRAP>
(<INPUT NAME="nfona" maxlength="3" size="3" value="$input{'nfona'}">)
<INPUT NAME="nfon" maxlength="8" size="8" value="$input{'nfon'}">
</TD>
</TR>
</TABLE>
<DL>
<DT>
<B>Delivery Method Requested:</B><BR>
</DT>
<DT>
<inPUT TYPE="radio" NAME="docdeliv" VALUE="fax" $faxstate>
Fax to:
(<INPUT NAME="ffona" maxlength="3" size="3" value="$input{'ffona'}">)
<INPUT NAME="ffon" maxlength="8" size="8" value="$input{'ffon'}">
</DT>
<DT>
<inPUT TYPE="radio" NAME="docdeliv" VALUE="email" $emailstate>
Email to <INPUT NAME="email" SIZE="25" MAXLENGTH="45" VALUE="$input{'email'}"> (If Possible)
</DT>
<DT>
<inPUT TYPE="radio" NAME="docdeliv" VALUE="campus" $campusstate>
Campus Mail</B> to: <INPUT NAME="campadd" SIZE="40" VALUE="$input{'campadd'}"><br>
</DT>
<DT>
<inPUT TYPE="radio" NAME="docdeliv" VALUE="mail" $mailstate>
First Class Mail to my address below <B>(You MUST include an address below!)</B>:<BR>
</DT>
<DD>
<table border="0">
<tr>
<td align="left">
Mailing Address Line 1:
</td>
<td align="left">
<inPUT NAME="addl1" maxlength="40" size="40" value="$input{'addl1'}">
</td>
</tr>
<tr>
<td align="left">
Mailing Address Line 2:
</td>
<td align="left">
<inPUT NAME="addl2" maxlength="40" size="40" value="$input{'addl2'}">
</td>
</tr>
<tr>
<td align="left">
City, State Zip:
</td>
<td align="left">
<inPUT NAME="city" maxlength="40" size="40" value="$input{'city'}">, <inPUT NAME="state" value="$input{'state'}" maxlength="2" size="2"> <inPUT NAME="zip" maxlength="5" size="5" value="$input{'zip'}">
</td>
</tr>
</table>
</DD>
</DL>
<DL>
<DT>
<B>Payment Method:</B>
<DD>
The charge for each book is 1.50.<BR>
First Class Mail is billed at cost.
</DT>
<DT>
<INPUT TYPE="radio" NAME="paytype" VALUE="bill" $billstate>Bill me on the library catalog system.
</DT>
<DT>
<INPUT TYPE="radio" NAME="paytype" VALUE="charge" $chargestate>Visa/MC (You will be contacted by phone for the card number.)
</DT>
<DT>
<INPUT TYPE="radio" NAME="paytype" VALUE="dept" $deptstate>Bill Department Account Number: <INPUT SIZE="30" NAME="account">
</DT>
</DL>
<HR>
Date after which you cannot use this book (MM/DD/YY):
<inPUT NAME="cua" maxlength="8" size="8" value="$input{'cua'}">
<HR>
<B>Requested Book Information:</B><BR>
<B>EITHER</B> paste a <B>SINGLE</B>, well-formatted, bibliographic citation in the box below <B>OR</B> fill in the labeled fields.<BR>
<B>ONLY ONE CITATION MAY BE SUBMITTED PER FORM, PLEASE!!!</B>
<P>
<B>Formatted Citation / Comments:</B><BR>
<TEXTAREA WRAP="hard" name="comment" rows="5" cols="60"></TEXTAREA>
<P>
<B>Labeled Fields:</B><BR>
<TABLE BORDER="0">
<TR>
<TD>Call Number:</TD>
<TD><INPUT NAME="doccall" maxlength="15" size="15"></TD>
</TR>
<TR>
<TD>Book Title:</TD>
<TD><inPUT NAME="atitle" size="40"><br></TD>
<TD>Edition or Volume:</TD>
<TD><input NAME="pvol" maxlength="8" size="3">
This Edition Only?:
<input type="checkbox" NAME="edonly" value="Y">Yes</TD>
</TR>
<TR>
<TD>Book Author(s):</TD>
<TD><INPUT NAME="aauth" maxlength="30" size="30"></TD>
<TD>Date of Publication:</TD>
<TD><input NAME="pdate" maxlength="15" size="15"></TD>
</TD>
</TR>
<TR>
<TD>Publisher:</TD>
<TD><input NAME="pub" maxlength="30" size="30"></TD>
<TD>Place of Publication:</TD>
<TD><input NAME="pubplace" maxlength="30" size="30"></TD>
</TR>
</TABLE>
ENDOFTEXT
} elsif ($input{'todo'} eq "Book Purchase") {
print <<ENDOFTEXT;
<INPUT TYPE="hidden" NAME="email" VALUE="$input{'email'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="dfona" VALUE="$input{'dfona'}">
<INPUT TYPE="hidden" NAME="dfon" VALUE="$input{'dfon'}">
<INPUT TYPE="hidden" NAME="nfona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="nfon" VALUE="$input{'nfon'}">
<INPUT TYPE="hidden" NAME="ffona" VALUE="$input{'ffona'}">
<INPUT TYPE="hidden" NAME="ffon" VALUE="$input{'ffon'}">
<INPUT TYPE="hidden" NAME="addl1" VALUE="$input{'addl1'}">
<INPUT TYPE="hidden" NAME="addl2" VALUE="$input{'addl2'}">
<INPUT TYPE="hidden" NAME="city" VALUE="$input{'city'}">
<INPUT TYPE="hidden" NAME="state" VALUE="$input{'state'}">
<INPUT TYPE="hidden" NAME="zip" VALUE="$input{'zip'}">
<INPUT TYPE="hidden" NAME="deliv" VALUE="$input{'deliv'}">
<INPUT TYPE="hidden" NAME="cua" VALUE="$input{'cua'}">
<INPUT TYPE="hidden" NAME="campadd" VALUE="$input{'campadd'}">
<INPUT TYPE="hidden" NAME="campext" VALUE="$input{'campext'}">
<INPUT TYPE="hidden" NAME="libuse" VALUE="$input{'libuse'}">
<INPUT TYPE="hidden" NAME="course" VALUE="$input{'course'}">
<INPUT TYPE="hidden" NAME="quarter" VALUE="$input{'quarter'}">
<INPUT TYPE="hidden" NAME="year" VALUE="$input{'year'}">
<INPUT TYPE="hidden" NAME="remove" VALUE="$input{'remove'}">
<INPUT TYPE="hidden" NAME="account" VALUE="$input{'account'}">
<INPUT TYPE="hidden" NAME="paytype" VALUE="$input{'paytype'}">
<INPUT TYPE="hidden" NAME="docdeliv" VALUE="$input{'docdeliv'}">
This request will be emailed to your department chair. To approve the request, the chair can forward the email to Ingram Library.
<P>
<B>Requested Book Information:</B><BR>
<B>EITHER</B> paste a <B>SINGLE</B>, well-formatted, bibliographic citation in the box below <B>OR</B> fill in the labeled fields.<BR>
<B>ONLY ONE CITATION MAY BE SUBMITTED PER FORM, PLEASE!!!</B>
<P>
<B>Formatted Citation / Comments:</B><BR>
<TEXTAREA WRAP="hard" name="comment" rows="5" cols="60"></TEXTAREA>
<P>
<B>Labeled Fields:</B><BR>
<TABLE BORDER="0">
<TR>
<TD>Book Title:</TD>
<TD><inPUT NAME="atitle" size="40"><br></TD>
<TD>Edition:
<input NAME="editn" maxlength="8" size="3">
<TD>Volumes:
<input NAME="vol" maxlength="8" size="3"></TD>
</TR>
<TR>
<TD>Book Author(s):</TD>
<TD><INPUT NAME="aauth" maxlength="30" size="30"></TD>
<TD>Publication Year:</TD>
<TD><input NAME="pdate" maxlength="15" size="15"></TD>
</TD>
</TR>
<TR>
<TD>Publisher:</TD>
<TD><input NAME="pub" maxlength="30" size="30"></TD>
<TD>Place of Publication:</TD>
<TD><input NAME="pubplace" maxlength="30" size="30"></TD>
</TR>
<TR>
<TD>ISBN:</TD>
<TD><input NAME="isbn" maxlength="15" size="15">
Price:
<input NAME="price" maxlength="8" size="8"></TD>
<TD>No. Copies:<input NAME="copies" maxlength="2" size="2"></TD>
<TD>Language:
<input NAME="lang" maxlength="15" size="15" value="English"></TD>
</TR>
</TABLE>
<B>Below, list the publication in which you found this reference:</B>
<TABLE BORDER="0">
<TR>
<TD>Source Title:</TD>
<TD><input NAME="stitle" size="40"></TD>
<TD>Volume:
<input NAME="svol" maxlength="8" size="3"></TD>
<TD>Number:
<input NAME="snum" maxlength="8" size="3"></TD>
</TR>
<TR>
<TD>Source Author(s):</TD>
<TD><INPUT NAME="sauth" maxlength="30" size="30"><br></TD>
<TD>Date of Publication:</TD>
<TD><input NAME="sdate" maxlength="15" size="15"></TD>
</TR>
<TR>
<TD>Page(s):</TD>
<TD><input NAME="spage" maxlength="15" size="8"></TD>
</TR>
</TABLE>
ENDOFTEXT
} elsif ($input{'todo'} eq "Periodical Purchase") {
print <<ENDOFTEXT;
<INPUT TYPE="hidden" NAME="email" VALUE="$input{'email'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="dfona" VALUE="$input{'dfona'}">
<INPUT TYPE="hidden" NAME="dfon" VALUE="$input{'dfon'}">
<INPUT TYPE="hidden" NAME="nfona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="nfon" VALUE="$input{'nfon'}">
<INPUT TYPE="hidden" NAME="ffona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="ffon" VALUE="$input{'ffon'}">
<INPUT TYPE="hidden" NAME="addl1" VALUE="$input{'addl1'}">
<INPUT TYPE="hidden" NAME="addl2" VALUE="$input{'addl2'}">
<INPUT TYPE="hidden" NAME="city" VALUE="$input{'city'}">
<INPUT TYPE="hidden" NAME="state" VALUE="$input{'state'}">
<INPUT TYPE="hidden" NAME="zip" VALUE="$input{'zip'}">
<INPUT TYPE="hidden" NAME="deliv" VALUE="$input{'deliv'}">
<INPUT TYPE="hidden" NAME="cua" VALUE="$input{'cua'}">
<INPUT TYPE="hidden" NAME="campadd" VALUE="$input{'campadd'}">
<INPUT TYPE="hidden" NAME="campext" VALUE="$input{'campext'}">
<INPUT TYPE="hidden" NAME="libuse" VALUE="$input{'libuse'}">
<INPUT TYPE="hidden" NAME="course" VALUE="$input{'course'}">
<INPUT TYPE="hidden" NAME="quarter" VALUE="$input{'quarter'}">
<INPUT TYPE="hidden" NAME="year" VALUE="$input{'year'}">
<INPUT TYPE="hidden" NAME="remove" VALUE="$input{'remove'}">
<INPUT TYPE="hidden" NAME="account" VALUE="$input{'account'}">
<INPUT TYPE="hidden" NAME="paytype" VALUE="$input{'paytype'}">
<INPUT TYPE="hidden" NAME="docdeliv" VALUE="$input{'docdeliv'}">
This request will be emailed to your department chair. To approve the request, the chair can forward the email to Ingram Library.
<TABLE BORDER="0">
<TR>
<TD>Title:</TD>
<TD><input NAME="ptitle" size="40"></TD>
</TR>
<TR>
<TD>Price:</TD>
<TD><input NAME="price" maxlength="8" size="8">
ISSN:
<input NAME="issn" maxlength="15" size="15"></TD>
</TR>
<TR>
<TD>Publisher</TD>
<TD><input NAME="pub" maxlength="30" size="30"></TD>
</TR>
<TR>
<TD>Language:</TD>
<TD><input NAME="lang" maxlength="15" size="15" value="English">
Frequency:<INPUT NAME="freq" maxlength="15" size="15" value="Monthly">
</TD>
</TR>
</TABLE>
List Desired Backfiles:<BR>
<TEXTAREA NAME="bfiles" WRAP="hard" rows="3" cols="60"></TEXTAREA>
<BR>
Courses Supported by this Journal / Comments:<BR>
<textarea name="comment" wrap="hard" rows="5" cols="60"></textarea>
ENDOFTEXT
} elsif ($input{'todo'} eq "Reserve Materials") {
print <<ENDOFTEXT;
<INPUT TYPE="hidden" NAME="email" VALUE="$input{'email'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="dfona" VALUE="$input{'dfona'}">
<INPUT TYPE="hidden" NAME="dfon" VALUE="$input{'dfon'}">
<INPUT TYPE="hidden" NAME="nfona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="nfon" VALUE="$input{'nfon'}">
<INPUT TYPE="hidden" NAME="ffona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="ffon" VALUE="$input{'ffon'}">
<INPUT TYPE="hidden" NAME="addl1" VALUE="$input{'addl1'}">
<INPUT TYPE="hidden" NAME="addl2" VALUE="$input{'addl2'}">
<INPUT TYPE="hidden" NAME="city" VALUE="$input{'city'}">
<INPUT TYPE="hidden" NAME="state" VALUE="$input{'state'}">
<INPUT TYPE="hidden" NAME="zip" VALUE="$input{'zip'}">
<INPUT TYPE="hidden" NAME="deliv" VALUE="$input{'deliv'}">
<INPUT TYPE="hidden" NAME="cua" VALUE="$input{'cua'}">
<INPUT TYPE="hidden" NAME="account" VALUE="$input{'account'}">
<INPUT TYPE="hidden" NAME="paytype" VALUE="$input{'paytype'}">
<INPUT TYPE="hidden" NAME="docdeliv" VALUE="$input{'docdeliv'}">
Campus Address:<BR>
<inPUT NAME="campadd" maxlength="40" size="40" value="$input{'campadd'}"><BR>
State University of West Georgia<BR>
Carrollton, GA 30118
<P>
Campus Phone Extenstion:<BR>
<INPUT NAME="campext" maxlength="4" size="4" value="$input{'campext'}">
<P>
<TABLE BORDER="1">
<TR>
<TD>
Library Use:<BR>
<INPUT TYPE="radio" NAME="libuse" VALUE="1hour" $hour1state>1 Hour<BR>
<INPUT TYPE="radio" NAME="libuse" VALUE="2hour" $hour2state>2 Hour<BR>
<INPUT TYPE="radio" NAME="libuse" VALUE="1day" $day1state>1 Day<BR>
<INPUT TYPE="radio" NAME="libuse" VALUE="3day" $day3state>3 Days<BR>
<INPUT TYPE="radio" NAME="libuse" VALUE="7day" $day7state>7 Days
</TD>
<TD>
Course:
<INPUT NAME="course" maxlength="10" size="10" value="$input{'course'}"><BR>
Semester:
<INPUT NAME="quarter" maxlength="10" size="10" value="$input{'quarter'}">
Year:
<INPUT NAME="year" maxlength="4" size="4" value="$input{'year'}"><BR>
Date to be removed (mm/dd/yy):
<INPUT NAME="remove" maxlength="8" size="8" value="$input{'remove'}">
</TD>
</TR>
</TABLE>
<TABLE BORDER="0">
<TR>
<TH>Author:</TH>
<TH>Title:</TH>
<TH>Call No.</TH>
<TH>Personal Copy</TH>
</TR>
<TR>
<TD><inPUT NAME="rauth1" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle1" size="40"></TD>
<TD><input NAME="rcall1" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc1" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth2" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle2" size="40"></TD>
<TD><input NAME="rcall2" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc2" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth3" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle3" size="40"></TD>
<TD><input NAME="rcall3" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc3" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth4" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle4" size="40"></TD>
<TD><input NAME="rcall4" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc4" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth5" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle5" size="40"></TD>
<TD><input NAME="rcall5" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc5" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth6" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle6" size="40"></TD>
<TD><input NAME="rcall6" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc6" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth7" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle7" size="40"></TD>
<TD><input NAME="rcall7" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc7" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth8" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle8" size="40"></TD>
<TD><input NAME="rcall8" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc8" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth9" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle9" size="40"></TD>
<TD><input NAME="rcall9" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc9" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth10" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle10" size="40"></TD>
<TD><input NAME="rcall10" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc10" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth11" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle11" size="40"></TD>
<TD><input NAME="rcall11" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc11" value="Y">Yes</TD>
</TR>
<TR>
<TD><inPUT NAME="rauth12" maxlength="30" size="15"></TD>
<TD><input NAME="rtitle12" size="40"></TD>
<TD><input NAME="rcall12" maxlength="15" size="10"></TD>
<TD><input TYPE="checkbox" NAME="rpc12" value="Y">Yes</TD>
</TR>
</TABLE>
Comments:<BR>
<textarea name="comment" wrap="hard" rows="5" cols="60"></textarea>
ENDOFTEXT
} elsif ($input{'todo'} eq "Library Instruction") {
print <<ENDOFTEXT;
<INPUT TYPE="hidden" NAME="email" VALUE="$input{'email'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="dfona" VALUE="$input{'dfona'}">
<INPUT TYPE="hidden" NAME="dfon" VALUE="$input{'dfon'}">
<INPUT TYPE="hidden" NAME="nfona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="nfon" VALUE="$input{'nfon'}">
<INPUT TYPE="hidden" NAME="ffona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="ffon" VALUE="$input{'ffon'}">
<INPUT TYPE="hidden" NAME="addl1" VALUE="$input{'addl1'}">
<INPUT TYPE="hidden" NAME="addl2" VALUE="$input{'addl2'}">
<INPUT TYPE="hidden" NAME="city" VALUE="$input{'city'}">
<INPUT TYPE="hidden" NAME="state" VALUE="$input{'state'}">
<INPUT TYPE="hidden" NAME="zip" VALUE="$input{'zip'}">
<INPUT TYPE="hidden" NAME="deliv" VALUE="$input{'deliv'}">
<INPUT TYPE="hidden" NAME="cua" VALUE="$input{'cua'}">
<INPUT TYPE="hidden" NAME="campadd" VALUE="$input{'campadd'}">
<INPUT TYPE="hidden" NAME="campext" VALUE="$input{'campext'}">
<INPUT TYPE="hidden" NAME="libuse" VALUE="$input{'libuse'}">
<INPUT TYPE="hidden" NAME="course" VALUE="$input{'course'}">
<INPUT TYPE="hidden" NAME="quarter" VALUE="$input{'quarter'}">
<INPUT TYPE="hidden" NAME="year" VALUE="$input{'year'}">
<INPUT TYPE="hidden" NAME="remove" VALUE="$input{'remove'}">
<INPUT TYPE="hidden" NAME="account" VALUE="$input{'account'}">
<INPUT TYPE="hidden" NAME="paytype" VALUE="$input{'paytype'}">
<INPUT TYPE="hidden" NAME="docdeliv" VALUE="$input{'docdeliv'}">
<TABLE BORDER="0">
<TR>
<TD NOWRAP>Course Name:</TD><TD><inPUT NAME="coursename" size="30"></TD>
</TR>
<TR>
<TD>Course Number:</TD><TD><inPUT NAME="coursenumber" maxlength="8" size="8"></TD>
</TR>
<TR>
<TD>Requested Date(s) of Instruction:</TD><TD><textarea name="instrdate" wrap="hard" rows="2" cols="60"></textarea></TD>
</TR>
<TR>
<TD>Requested Time(s) of Instruction:</TD><TD><textarea name="instrtime" wrap="hard" rows="2" cols="60"></textarea></TD>
</TR>
<TR>
<TD>Number of Students:</TD>
<TD><input name="undergrads" maxlength="4" size="4">Undergraduate<BR></TD>
<TD><input name="grads" maxlength="4" size="4">Graduate<BR></TD>
<TD><input name="other" maxlength="4" size="4">Other<BR></TD>
</TR>
</TABLE>
<p>
Please send any feedback, comments, suggestions, etc.:<br>
<textarea name="comment" wrap="hard" rows="5" cols="60"></textarea>
ENDOFTEXT
} elsif ($input{'todo'} eq "Something Else") {
print <<ENDOFTEXT;
<INPUT TYPE="hidden" NAME="email" VALUE="$input{'email'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="dfona" VALUE="$input{'dfona'}">
<INPUT TYPE="hidden" NAME="dfon" VALUE="$input{'dfon'}">
<INPUT TYPE="hidden" NAME="nfona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="nfon" VALUE="$input{'nfon'}">
<INPUT TYPE="hidden" NAME="ffona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="ffon" VALUE="$input{'ffon'}">
<INPUT TYPE="hidden" NAME="addl1" VALUE="$input{'addl1'}">
<INPUT TYPE="hidden" NAME="addl2" VALUE="$input{'addl2'}">
<INPUT TYPE="hidden" NAME="city" VALUE="$input{'city'}">
<INPUT TYPE="hidden" NAME="state" VALUE="$input{'state'}">
<INPUT TYPE="hidden" NAME="zip" VALUE="$input{'zip'}">
<INPUT TYPE="hidden" NAME="deliv" VALUE="$input{'deliv'}">
<INPUT TYPE="hidden" NAME="cua" VALUE="$input{'cua'}">
<INPUT TYPE="hidden" NAME="campadd" VALUE="$input{'campadd'}">
<INPUT TYPE="hidden" NAME="campext" VALUE="$input{'campext'}">
<INPUT TYPE="hidden" NAME="libuse" VALUE="$input{'libuse'}">
<INPUT TYPE="hidden" NAME="course" VALUE="$input{'course'}">
<INPUT TYPE="hidden" NAME="quarter" VALUE="$input{'quarter'}">
<INPUT TYPE="hidden" NAME="year" VALUE="$input{'year'}">
<INPUT TYPE="hidden" NAME="remove" VALUE="$input{'remove'}">
<INPUT TYPE="hidden" NAME="account" VALUE="$input{'account'}">
<INPUT TYPE="hidden" NAME="paytype" VALUE="$input{'paytype'}">
<INPUT TYPE="hidden" NAME="docdeliv" VALUE="$input{'docdeliv'}">
<inPUT NAME="subject" maxlength="20" size="20">-Subject of your message
(please be brief)
<p>
Please send any feedback, comments, suggestions, etc.:<br>
<textarea name="comment" wrap="hard" rows="5" cols="60"></textarea>
ENDOFTEXT
} else {
open(INA,"./demofrnot.txt");
while (<INA>) {
print $_;
}
}
print <<ENDOFTEXT;
<P>
<inPUT TYPE="submit" NAME="submit" VALUE="Send This Request for $input{'todo'}">
<inPUT TYPE="reset" NAME="clear" VALUE="Clear Form">
<FONT SIZE="+2">OR...</FONT>
</FORM>
<FORM METHOD = "POST" ACTION="/~library/cgi-bin/demofrls2.cgi">
<INPUT TYPE="hidden" NAME="id" VALUE="$input{'id'}">
<INPUT TYPE="hidden" NAME="name" VALUE="$input{'name'}">
<INPUT TYPE="hidden" NAME="dept" VALUE="$input{'dept'}">
<INPUT TYPE="hidden" NAME="email" VALUE="$input{'email'}">
<INPUT TYPE="hidden" NAME="noemail" VALUE="$input{'noemail'}">
<INPUT TYPE="hidden" NAME="done" VALUE="$input{'done'}">
<INPUT TYPE="hidden" NAME="dfona" VALUE="$input{'dfona'}">
<INPUT TYPE="hidden" NAME="dfon" VALUE="$input{'dfon'}">
<INPUT TYPE="hidden" NAME="nfona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="nfon" VALUE="$input{'nfon'}">
<INPUT TYPE="hidden" NAME="ffona" VALUE="$input{'nfona'}">
<INPUT TYPE="hidden" NAME="ffon" VALUE="$input{'ffon'}">
<INPUT TYPE="hidden" NAME="addl1" VALUE="$input{'addl1'}">
<INPUT TYPE="hidden" NAME="addl2" VALUE="$input{'addl2'}">
<INPUT TYPE="hidden" NAME="city" VALUE="$input{'city'}">
<INPUT TYPE="hidden" NAME="state" VALUE="$input{'state'}">
<INPUT TYPE="hidden" NAME="zip" VALUE="$input{'zip'}">
<INPUT TYPE="hidden" NAME="deliv" VALUE="$input{'deliv'}">
<INPUT TYPE="hidden" NAME="cua" VALUE="$input{'cua'}">
<INPUT TYPE="hidden" NAME="campadd" VALUE="$input{'campadd'}">
<INPUT TYPE="hidden" NAME="campext" VALUE="$input{'campext'}">
<INPUT TYPE="hidden" NAME="libuse" VALUE="$input{'libuse'}">
<INPUT TYPE="hidden" NAME="course" VALUE="$input{'course'}">
<INPUT TYPE="hidden" NAME="quarter" VALUE="$input{'quarter'}">
<INPUT TYPE="hidden" NAME="year" VALUE="$input{'year'}">
<INPUT TYPE="hidden" NAME="remove" VALUE="$input{'remove'}">
<INPUT TYPE="hidden" NAME="account" VALUE="$input{'account'}">
<INPUT TYPE="hidden" NAME="paytype" VALUE="$input{'paytype'}">
<INPUT TYPE="hidden" NAME="docdeliv" VALUE="$input{'docdeliv'}">
<B>Cancel this and make another request:</B><BR>
<SELECT NAME="todo">
<OPTION VALUE="ILL (Article)">Interlibrary Loan (Article)</OPTION>
<OPTION VALUE="ILL (Book)">Interlibrary Loan (Book)</OPTION>
<OPTION VALUE="Document Delivery (Article)">Document Delivery (Article)</OPTION>
<OPTION VALUE="Document Delivery (Book)">Document Delivery (Book)</OPTION>
<OPTION VALUE="Book Purchase">Book Purchase</OPTION>
<OPTION VALUE="Periodical Purchase">Periodical Purchase</OPTION>
<OPTION VALUE="Reserve Materials">Reserve Materials</OPTION>
<OPTION VALUE="Start Over">Start Over</OPTION>
<OPTION VALUE="QUIT">QUIT</OPTION>
</SELECT>
<INPUT TYPE="submit" VALUE="<--Do This"><BR>
</FORM>
ENDOFTEXT
print &LibFooter;
| HOME | Catalog | Databases | GALILEO | Article Locator | Requests | Help |
|
Irvine Sullivan Ingram Library, UWG 1601 Maple St - Carrollton, GA 30118-2000 (none) - (none) (678)839-6350 - Information Recording |
Send Comments
| (none) <(none)> Last Modified: July 23, 2001 http://www.westga.edu/~library/depts/systems/rls/demofrls2.shtml Valid HTML? |