demosrls2.cgi

#!/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 demosrls.cgi has been done 
if  ($input{'done'} < 1) {
  print "Location: http://www.westga.edu/~library/cgi-bin/demosrls.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'} eq "") {
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: http://www.westga.edu/~library/cgi-bin/demosrls.cgi", "\n\n";
  } elsif ($input{'todo'} eq "QUIT") {
  print "Location: http://www.westga.edu/~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 <
Ingram Library - Student Request for $input{'todo'} - Submitted by $input{'name'}

 














Call (770)836-6495 for further instructions.




The Ingram Library Student Request for Library Services (LIBSRLS) forms are provided for your convenience as a way to request services from the library.  There are currently a total of 2 types of requests that you can make using these forms:




Interlibrary Loan (Article):

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:

Ingram Library Catalog
E-Journals and Databases




Interlibrary Loan (Book):

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:

Ingram Library Catalog








ENDOFTEXT

print &LibFooter;

exit;

}

# Respond to wrong password or missing data.
sub DoOver {

# Print the header
#  print &PrintHeader;
print &LibHeaderNC ("Ingram Library - $input{'todo'}");

print <
Ingram Library - Student Request for $input{'todo'} - Submitted by $input{'name'}

 










Oops!!!


Please, click "Continue" below to complete the following required fields:

$ERRORMSG1 $ERRORMSG2 $ERRORMSG3 $ERRORMSG4 $ERRORMSG5

$ERRORMSG6

$ERRORMSG7

Call (770)836-6495 for instructions.





ENDOFTEXT

print &LibFooter;

exit;

}

# Process accepted data and display selected request form.
sub ProcessForm {

# Set variable to check that form sequence is followed by user.
$input{'done'} = 2;

# Set address line
$dept = "$input{'dept'}";
$input{'campadd'} = $input{'addl1'};

# Seed deliv state for multiple requests.
if ($input{'deliv'} eq "mail") {
    $mailstate = "CHECKED";
  } elsif ($input{'deliv'} eq "hold") {
    $holdstate = "CHECKED";
  } elsif ($input{'deliv'} eq "") {
    $holdstate = "CHECKED";
}

# Start printing of form.
# Print the header.
#  print &PrintHeader;
print &LibHeaderNC ("Ingram Library - $input{'todo'}");

print <Ingram Library - Student Request for $input{'todo'} - Submitted by $input{'name'}

 







ENDOFTEXT


# Print ILL Article form stuff.
if ($input{'todo'} eq "ILL (Article)") {
  
  print <







Contact and Delivery Information



Daytime Phone:


()



Evening Phone:


()





FAX Number:


()









Delivery Method Requested:




Hold for me to pick up at the Circulation Desk


Mail article to my address below (You MUST include an address below!)







Mailing Address Line 1:







Mailing Address Line 2:







City, State Zip:


,  






Date after which you cannot use this article (MM/DD/YY):






Requested Article Information:

EITHER paste a SINGLE, well-formatted, bibliographic citation in the box below OR fill in the labeled fields.

ONLY ONE CITATION MAY BE SUBMITTED PER FORM, PLEASE!!!


Formatted Citation / Comments:




Labeled Fields:



Article Title:


Article Author(s):





Periodical Title:


Volume:

Number:




Date of Publication:

Page(s):




Below, list the publication in which you found this reference:



Source Title:

Volume:

Number:




Source Author(s):





Date of Publication:

Page(s):




ENDOFTEXT

  } elsif ($input{'todo'} eq "ILL (Book)") {

  print <








Contact and Delivery Information



Daytime Phone:


()



Evening Phone:


()





FAX Number:


()







Mailing Address Line 1:







Mailing Address Line 2:







City, State Zip:


,  






Date after which you cannot use this book (MM/DD/YY):






Requested Book Information:

EITHER paste a SINGLE, well-formatted, bibliographic citation in the box below OR fill in the labeled fields.

ONLY ONE CITATION MAY BE SUBMITTED PER FORM, PLEASE!!!


Formatted Citation / Comments:




Labeled Fields:




Book Title:


Edition or Volume:

This Edition Only?:
Yes



Book Author(s):

Date of Publication:





Publisher:

Place of Publication:




Below, list the publication in which you found this reference:




Source Title:

Volume:

Number:




Source Author(s):


Date of Publication:




Page(s):





ENDOFTEXT
  
  } else {

  open(INA,"./demosrnot.txt");
  while () {
    print $_;
  }
  }

print <


OR...



































Cancel this and make another request:


Interlibrary Loan (Article)
Interlibrary Loan (Book)
Start Over
QUIT






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/demosrls2.shtml Valid HTML?