|
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 common to all forms
&ReadParse(*input);
if ($input{'todo'} eq "QUIT") {
print "Location: /~library/depts/systems/rls", "\n\n";
}
if ($input{'todo'} eq "Start Over") {
print "Location: /~library/cgi-bin/demofrls.cgi", "\n\n";
}
if ($input{'done'} < 2) {
print "Location: /~library/cgi-bin/demofrls.cgi", "\n\n";
}
# Seed todo state for multiple requests.
if ($input{'todo'} =~ "ILL (Article)") {
$FRILLAstate = "SELECTED";
} elsif ($input{'todo'} eq "ILL (Book)") {
$FRILLBstate = "SELECTED";
} elsif ($input{'todo'} eq "Document Delivery (Book)") {
$FRDDBstate = "SELECTED";
} elsif ($input{'todo'} eq "Document Delivery (Article)") {
$FRDDAstate = "SELECTED";
} elsif ($input{'todo'} eq "Book Purchase") {
$FRBPstate = "SELECTED";
} elsif ($input{'todo'} eq "Periodical Purchase") {
$FRPPstate = "SELECTED";
}
$email = "";
if ($input{'email'} =~ /^\w/) {
$email = $input{'email'};
}
$name = $input{'name'};
$id = $input{'id'};
$dept = $input{'dept'};
$date = `date`;
$todo = $input{'todo'};
# Read in variables specific to chosen todo form
#Address values
$addl1 = $input{'addl1'};
$addl2 = $input{'addl2'};
$city = $input{'city'};
$state = $input{'state'};
$zip = $input{'zip'};
#Phone values
$dfona = $input{'dfona'};
$dfon = $input{'dfon'};
$nfona = $input{'nfona'};
$nfon = $input{'nfon'};
$ffona = $input{'ffona'};
$ffon = $input{'ffon'};
#Article Values
$deliv = $input{'deliv'};
$cua = $input{'cua'};
$atitle = $input{'atitle'};
$aauth = $input{'aauth'};
$ptitle = $input{'ptitle'};
$pvol = $input{'pvol'};
$pnum = $input{'pnum'};
$pdate = $input{'pdate'};
$ppg = $input{'ppage'};
#Source Values
$stitle = $input{'stitle'};
$sauth = $input{'sauth'};
$svol = $input{'svol'};
$snum = $input{'snum'};
$sdate = $input{'sdate'};
$spg = $input{'spage'};
#ILL Book Values
$edonly = $input{'edonly'};
$pub = $input{'pub'};
$pubplace = $input{'pubplace'};
#Book Purchase Values
$editn = $input{'editn'};
$vol = $input{'vol'};
$isbn = $input{'isbn'};
$price = $input{'price'};
$copies = $input{'copies'};
$lang = $input{'lang'};
#Periodical Purchase Values
$issn = $input{'issn'};
$freq = $input{'freq'};
#Reserve Materials Values
$libuse = $input{'libuse'};
$course = $input{'course'};
$quarter = $input{'quarter'};
$year = $input{'year'};
$remove = $input{'remove'};
$campadd = $input{'campadd'};
$campext = $input{'campext'};
#Something Else Values:
$subject = $input{'subject'};
#Comment form data
($htmlcomment = $input{'comment'}) =~ s/\n/\n<BR>/g;
# add <BR>'s after carriage returns
# to multline input, since HTML does not
# preserve line breaks
($comment = $input{'comment'}) =~ s/^\s*\r\n//g;
# remove leading blank lines
# s is white space
# r is carriage return
# n is newline
# why it leaves inner blank lines
($htmlbfiles = $input{'bfiles'}) =~ s/\n/\n<BR>/g;
# add <BR>'s after carriage returns
# to multline input, since HTML does not
# preserve line breaks
($bfiles = $input{'bfiles'}) =~ s/^\s*\r\n//g;
if ($atitle =~ /^\w/) {
$emailsubject = $atitle;
} elsif ($comment =~ /^\w/) {
$emailsubject = $comment;
} else {
$emailsubject = "BLANK";
}
if ($input{'todo'} eq "ILL (Article)") {
$emailpresub = "IA";
} elsif ($input{'todo'} eq "ILL (Book)") {
$emailpresub = "IB";
} elsif ($input{'todo'} eq "Document Delivery (Article)") {
$emailpresub = "DA";
} elsif ($input{'todo'} eq "Document Delivery (Book)") {
$emailpresub = "DB";
} elsif ($input{'todo'} eq "Book Purchase") {
$emailpresub = "BP";
} elsif ($input{'todo'} eq "Periodical Purchase") {
$emailpresub = "PP";
} elsif ($input{'todo'} eq "Reserve Materials") {
$emailpresub = "RM";
} else {
$emailpresub = "SE";
}
if ($dept eq "OTHER") {
$tomail = "default\@somewhere.edu";
} elsif ($dept eq "ACC") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "ART") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "BLY") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "CHM") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "CSC") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "CEP") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "CIN") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "ECN") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "EDF") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "ENG") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "FRL") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "GLY") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "HIS") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "LES") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "LIB") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "MGT") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "MKT") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "MAS") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "MAT") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "MGE") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "MUS") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "NUR") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "PER") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "PSC") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "PSY") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "RMT") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "SOC") {
$tomail = "depthead\@somewhere.edu";
} elsif ($dept eq "SED") {
$tomail = "depthead\@somewhere.edu";
}
if ($input{'todo'} =~ /ILL/) {
$tomail = "ill\@somewhere.edu";
} elsif ($input{'todo'} =~ /Reserve/) {
$tomail = "circ\@somewhere.edu";
} elsif ($input{'todo'} =~ /Document/) {
$tomail = "docdel\@somewhere.edu";
} elsif ($input{'todo'} =~ /Something/) {
$tomail = "default\@somewhere.edu";
}
$formail = "acqdept\@somewhere.edu";
#####################################
#
# Fix up incomplete email
#
if ($email =~ /^\s*$/) { $email .= "BLANKEMAIL\@ERROR" #error if blank or whitespace
} elsif ($email !~ /\@/) { $email .= "\@somewhere.edu" }; #guess domain if not given
# TEST VARIABLES
#if ($input{'todo'} =~ /ILL/) {
# $tomail = "chuff\@somewhere.edu";
# } elsif ($input{'todo'} =~ /Reserve/) {
# $tomail = "chuff\@somewhere.edu";
# } elsif ($input{'todo'} =~ /Document/) {
# $tomail = "chuff\@somewhere.edu";
# } elsif ($input{'todo'} =~ /Something/) {
# $tomail = "chuff\@somewhere.edu";
# }
$tomail = "chuff\@westga.edu";
$formail = "chuff\@westga.edu";
# END TEST VARIABLES
# Open format for emailed output of variables for Inter Library Loan
format MAILFRILLAPATRON =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $emailsubject
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
This copy of your recent request is for your records. Another copy has also been sent to @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<
$city $state $zip
======================================================================
Day: (@<<)@<<<<<<<<< Evening: (@<<)@<<<<<<<<<
$dfona,$dfon $nfona,$nfon
FAX: (@<<)@<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ffona,$ffon $email
======================================================================
Delivery: @<<<<<<<<<<<<<< Cannot Use After: @<<<<<<<
$deliv $cua
======================================================================
ARTICLE INFORMATION
Formatted Citation / Comments:
@*
$comment
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
PTitl: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ptitle
@<<<<<<<<<<<<<< Vol: @<<<<<<<, No: @<<<<<<< (@<<<<<<<<<<<<<<)
$pdate $pvol $pnum $ppg
======================================================================
SOURCE INFORMATION
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$stitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sauth
@<<<<<<<<<<<<<< Vol: @<<<<<<<, No: @<<<<<<< (@<<<<<<<<<<<<<<<)
$sdate $svol $snum $spg
======================================================================
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'} $ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRILLA =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $emailsubject
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<
$city $state $zip
======================================================================
Day: (@<<)@<<<<<<<<< Evening: (@<<)@<<<<<<<<<
$dfona,$dfon $nfona,$nfon
FAX: (@<<)@<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ffona,$ffon $email
======================================================================
Delivery: @<<<<<<<<<<<<<< Cannot Use After: @<<<<<<<
$deliv $cua
======================================================================
ARTICLE INFORMATION
Formatted Citation / Comments:
@*
$comment
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
PTitl: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ptitle
@<<<<<<<<<<<<<< Vol: @<<<<<<<, No: @<<<<<<< (@<<<<<<<<<<<<<<)
$pdate $pvol $pnum $ppg
======================================================================
SOURCE INFORMATION
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$stitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sauth
@<<<<<<<<<<<<<< Vol: @<<<<<<<, No: @<<<<<<< (@<<<<<<<<<<<<<<<)
$sdate $svol $snum $spg
======================================================================
LOCATION SYMBOLS:
ILL: REQ: RECD: RENEWAL:
OCLC: DUE: NEW DUE DATE:
OTHER: RETURNED: SHIP INS:
======================================================================
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'} $ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRILLACLIO =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
X-Sender: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Subject: CLIO ILL REQUEST
ID: @<<<<<<<<<<
$id
Dept: @<<<<
$dept
Name: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
Address: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<
$city $state $zip
Phone: (@<<)@<<<<<<<<<
$dfona,$dfon
Phone: (@<<)@<<<<<<<<<
$nfona,$nfon
Fax: (@<<)@<<<<<<<<<
$ffona,$ffon
Email: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Delivery: @<<<<<<<<<<<<<<
$deliv
Needby: @<<<<<<<
$cua
RequestType: @<<<<<<<<<<<<<<
$deliv
Notes: @*
$comment
ArticleTitle: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
ArticleAuthor: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ptitle
Date: @<<<<<<<<<<<<<<
$pdate
Vol: @<<<<<<<
$pvol
No: @<<<<<<<
$pnum
Pages: @<<<<<<<<<<<<<<
$ppg
.
format MAILFRILLBPATRON =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $emailsubject
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
This copy of your recent request is for your records. Another copy has also been sent to @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<
$city $state $zip
======================================================================
Day: (@<<)@<<<<<<<<< Evening: (@<<)@<<<<<<<<<
$dfona,$dfon $nfona,$nfon
FAX: (@<<)@<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ffona,$ffon $email
======================================================================
Cannot Use After: @<<<<<<<
$cua
======================================================================
BOOK INFORMATION
Formatted Citation / Comments:
@*
$comment
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
@<<<<<<<<<<<<< Vol/Ed @<<<<<<< This Edition Only: @<
$pdate $pvol $edonly
Publisher: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< City: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$pub $pubplace
======================================================================
SOURCE INFORMATION
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$stitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sauth
@<<<<<<<<<<<<< Vol: @<<<<<<<, No: @<<<<<<< (@<<<<<<<<<<<<<<<)
$sdate $svol $snum $spg
======================================================================
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'} $ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRILLB =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $emailsubject
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<
$city $state $zip
======================================================================
Day: (@<<)@<<<<<<<<< Evening: (@<<)@<<<<<<<<<
$dfona,$dfon $nfona,$nfon
FAX: (@<<)@<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ffona,$ffon $email
======================================================================
Cannot Use After: @<<<<<<<
$cua
======================================================================
BOOK INFORMATION
Formatted Citation / Comments:
@*
$comment
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
@<<<<<<<<<<<<< Vol/Ed @<<<<<<< This Edition Only: @<
$pdate $pvol $edonly
Publisher: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< City: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$pub $pubplace
======================================================================
SOURCE INFORMATION
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$stitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sauth
@<<<<<<<<<<<<< Vol: @<<<<<<<, No: @<<<<<<< (@<<<<<<<<<<<<<<<)
$sdate $svol $snum $spg
======================================================================
LOCATION SYMBOLS:
ILL: REQ: RECD: RENEWAL:
OCLC: DUE: NEW DUE DATE:
OTHER: RETURNED: SHIP INS:
PICKUP SIGNATURE:
======================================================================
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'} $ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRDDA =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $emailsubject
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<
$city $state $zip
Campus Address: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$campadd
======================================================================
Day: (@<<)@<<<<<<<<< Evening: (@<<)@<<<<<<<<<
$dfona,$dfon $nfona,$nfon
FAX: (@<<)@<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ffona,$ffon $email
======================================================================
Delivery: @<<<<<<<<<<<<<< Cannot Use After: @<<<<<<<
$input{'docdeliv'} $cua
Payment: @<<<<<<<<<<<<<< Account: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'paytype'} $input{'account'}
======================================================================
ARTICLE INFORMATION
Formatted Citation / Comments:
@*
$comment
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
PTitl: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ptitle
@<<<<<<<<<<<<< V@<<<<<<<, N@<<<<<<< (@<<<<<<<<<<<<<<)
$pdate $pvol $pnum $ppg
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'} $ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRDDAPATRON =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $emailsubject
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
This copy of your recent request is for your records. Another copy has also been sent to @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<
$city $state $zip
Campus Address: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$campadd
======================================================================
Day: (@<<)@<<<<<<<<< Evening: (@<<)@<<<<<<<<<
$dfona,$dfon $nfona,$nfon
FAX: (@<<)@<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ffona,$ffon $email
======================================================================
Delivery: @<<<<<<<<<<<<<< Cannot Use After: @<<<<<<<
$input{'docdeliv'} $cua
Payment: @<<<<<<<<<<<<<< Account: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'paytype'} $input{'account'}
======================================================================
ARTICLE INFORMATION
Formatted Citation / Comments:
@*
$comment
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
PTitl: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ptitle
@<<<<<<<<<<<<< V@<<<<<<<, N@<<<<<<< (@<<<<<<<<<<<<<<)
$pdate $pvol $pnum $ppg
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'} $ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRDDB =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $emailsubject
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<
$city $state $zip
Campus Address: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$campadd
======================================================================
Day: (@<<)@<<<<<<<<< Evening: (@<<)@<<<<<<<<<
$dfona,$dfon $nfona,$nfon
FAX: (@<<)@<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ffona,$ffon $email
======================================================================
Delivery: @<<<<<<<<<<<<<< Cannot Use After: @<<<<<<<
$input{'docdeliv'} $cua
Payment: @<<<<<<<<<<<<<< Account: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'paytype'} $input{'account'}
======================================================================
BOOK INFORMATION
Formatted Citation / Comments:
@*
$comment
CallN: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$doccall
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
@<<<<<<<<<<<<< Vol/Ed @<<<<<<< This Edition Only: @<
$pdate $pvol $edonly
Publisher: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< City: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$pub $pubplace
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'} $ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRDDBPATRON =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $emailsubject
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
This copy of your recent request is for your records. Another copy has also been sent to @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<
$city $state $zip
Campus Address: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$campadd
======================================================================
Day: (@<<)@<<<<<<<<< Evening: (@<<)@<<<<<<<<<
$dfona,$dfon $nfona,$nfon
FAX: (@<<)@<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ffona,$ffon $email
======================================================================
Delivery: @<<<<<<<<<<<<<< Cannot Use After: @<<<<<<<
$input{'docdeliv'} $cua
Payment: @<<<<<<<<<<<<<< Account: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'paytype'} $input{'account'}
======================================================================
BOOK INFORMATION
Formatted Citation / Comments:
@*
$comment
CallN: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$doccall
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
@<<<<<<<<<<<<< Vol/Ed @<<<<<<< This Edition Only: @<
$pdate $pvol $edonly
Publisher: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< City: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$pub $pubplace
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'} $ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRBPPATRON =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $emailsubject
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
This copy of your recent request is for your records. Another copy has also been sent to @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
======================================================================
BOOK INFORMATION
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
@<<<<<<<<<<<<< Vol: @<<<<<<< Edition: @<<<<<<<
$pdate $vol $editn
Publisher: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< City: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$pub $pubplace
ISBN: @<<<<<<<<<<<<<< Price: @<<<<<<< Copies: @<< Lang: @<<<<<<<<<<<<<<
$isbn $price $copies $lang
======================================================================
SOURCE INFORMATION
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$stitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sauth
@<<<<<<<<<<<<< Vol: @<<<<<<<, No: @<<<<<<< (@<<<<<<<<<<<<<<<)
$sdate $svol $snum $spg
======================================================================
FORMATTED CITATION / COMMENTS:
@*
$comment
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'}
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRBP =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
Bcc: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$formail
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $emailsubject
NOTE: If you approve this faculty request for Ingram Library to purchase the following book, please forward this email to:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$formail
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
======================================================================
BOOK INFORMATION
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$atitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$aauth
@<<<<<<<<<<<<< Vol: @<<<<<<< Edition: @<<<<<<<
$pdate $vol $editn
Publisher: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<< City: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$pub $pubplace
ISBN: @<<<<<<<<<<<<<< Price: @<<<<<<< Copies: @<< Lang: @<<<<<<<<<<<<<<
$isbn $price $copies $lang
======================================================================
SOURCE INFORMATION
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$stitle
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$sauth
@<<<<<<<<<<<<< Vol: @<<<<<<<, No: @<<<<<<< (@<<<<<<<<<<<<<<<)
$sdate $svol $snum $spg
======================================================================
FORMATTED CITATION / COMMENTS:
@*
$comment
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'}
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRPPPATRON =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $ptitle
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
This copy of your recent request is for your records. Another copy has also been sent to @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
======================================================================
PERIODICAL INFORMATION:
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ptitle
Publisher: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$pub
ISSN: @<<<<<<<<<<<<<< Price: @<<<<<<< Lang: @<<<<<<<<<<<<<<
$issn $price $lang
Frequency: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$freq
Backfiles Desired:
@*
$bfiles
======================================================================
COURSES SUPPORTED BY JOURNAL:
@*
$comment
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'}
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRPP =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
Bcc: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$formail
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $ptitle
NOTE: If you approve this faculty request for Ingram Library to purchase the following periodical, please forward this email to:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$formail
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
======================================================================
PERIODICAL INFORMATION:
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ptitle
Publisher: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$pub
ISSN: @<<<<<<<<<<<<<< Price: @<<<<<<< Lang: @<<<<<<<<<<<<<<
$issn $price $lang
Frequency: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$freq
Backfiles Desired:
@*
$bfiles
======================================================================
FAXON:
Beginning Date of Journal:
Former Titles:
Subject Headings:
Indexing:
Approved by: Fund:
======================================================================
COURSES SUPPORTED BY JOURNAL:
@*
$comment
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'}
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRRMPATRON =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $course
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
This copy of your recent request is for your records. Another copy has also been sent to @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
Received:
Completed:
Removed:
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$campadd
State Univeristy of West Georgia
Carrollton, GA 30118
======================================================================
Phone: @<<<
$campext
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Course: @<<<<<<<<< Semester: @<<<<<<<<<< Year: @<<<
$course $quarter $year
Libuse: @<<<< Remove: @<<<<<<<
$libuse $remove
======================================================================
RESERVE ITEMS:
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall1'} $input{'rpc1'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle1'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth1'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall2'} $input{'rpc2'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle2'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth2'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall3'} $input{'rpc3'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle3'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth3'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall4'} $input{'rpc4'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle4'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth4'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall5'} $input{'rpc5'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle5'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth5'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall6'} $input{'rpc6'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle6'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth6'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall7'} $input{'rpc7'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle7'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth7'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall8'} $input{'rpc8'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle8'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth8'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall9'} $input{'rpc9'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle9'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth9'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall10'} $input{'rpc10'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle10'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth10'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall11'} $input{'rpc11'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle11'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth11'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall12'} $input{'rpc12'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle12'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth12'}
======================================================================
COMMENTS:
@*
$comment
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'}
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRRM =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $course
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
Received:
Completed:
Removed:
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$campadd
State Univeristy of West Georgia
Carrollton, GA 30118
======================================================================
Phone: @<<<
$campext
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
Course: @<<<<<<<<< Semester: @<<<<<<<<<< Year: @<<<
$course $quarter $year
Libuse: @<<<< Remove: @<<<<<<<
$libuse $remove
======================================================================
RESERVE ITEMS:
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall1'} $input{'rpc1'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle1'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth1'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall2'} $input{'rpc2'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle2'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth2'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall3'} $input{'rpc3'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle3'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth3'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall4'} $input{'rpc4'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle4'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth4'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall5'} $input{'rpc5'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle5'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth5'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall6'} $input{'rpc6'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle6'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth6'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall7'} $input{'rpc7'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle7'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth7'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall8'} $input{'rpc8'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle8'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth8'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall9'} $input{'rpc9'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle9'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth9'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall10'} $input{'rpc10'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle10'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth10'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall11'} $input{'rpc11'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle11'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth11'}
Call#: @<<<<<<<<<<<<<< Personal Copy: @<
$input{'rcall12'} $input{'rpc12'}
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rtitle12'}
Auth : @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$input{'rauth12'}
======================================================================
COMMENTS:
@*
$comment
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'}
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_HOST'}
======================================================================
.
format MAILFRSE =
From: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$email
To: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tomail
Subject: @<: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$emailpresub $subject
DATE OF REQUEST: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$date
======================================================================
@<<<<<<<<<< @<<<<
$id $dept
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl1
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$addl2
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<, @< @<<<<
$city $state $zip
======================================================================
COMMENTS:
@*
$comment
======================================================================
Accessed From:
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_ADDR'}
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$ENV{'REMOTE_HOST'}
======================================================================
.
#Write output
if ($input{'todo'} eq "ILL (Article)") {
open (MAILFRILLA,"|/usr/lib/sendmail -oi -t");
write (MAILFRILLA);
close (MAILFRILLA);
if ($email ne "") {
open (MAILFRILLAPATRON,"|/usr/lib/sendmail -oi -t");
write (MAILFRILLAPATRON);
close (MAILFRILLAPATRON);
}
} elsif ($input{'todo'} eq "ILL (Book)") {
open (MAILFRILLB,"|/usr/lib/sendmail -oi -t");
write (MAILFRILLB);
close (MAILFRILLB);
if ($email ne "") {
open (MAILFRILLBPATRON,"|/usr/lib/sendmail -oi -t");
write (MAILFRILLBPATRON);
close (MAILFRILLBPATRON);
}
} elsif ($input{'todo'} eq "Document Delivery (Article)") {
# print "Location: /~library/cgi-bin/demofrls.cgi", "\n\n";
open (MAILFRDDA,"|/usr/lib/sendmail -oi -t");
write (MAILFRDDA);
close (MAILFRDDA);
if ($email ne "") {
open (MAILFRDDAPATRON,"|/usr/lib/sendmail -oi -t");
write (MAILFRDDAPATRON);
close (MAILFRDDAPATRON);
}
} elsif ($input{'todo'} eq "Document Delivery (Book)") {
# print "Location: /~library/cgi-bin/demofrls.cgi", "\n\n";
open (MAILFRDDB,"|/usr/lib/sendmail -oi -t");
write (MAILFRDDB);
close (MAILFRDDB);
if ($email ne "") {
open (MAILFRDDBPATRON,"|/usr/lib/sendmail -oi -t");
write (MAILFRDDBPATRON);
close (MAILFRDDBPATRON);
}
} elsif ($input{'todo'} eq "Book Purchase") {
open (MAILFRBP,"|/usr/lib/sendmail -oi -t");
write (MAILFRBP);
close (MAILFRBP);
# open (MAILFRBP,"|/usr/lib/sendmail -oi -t");
# write (MAILFRBP);
# close (MAILFRBP);
if ($email ne "") {
open (MAILFRBPPATRON,"|/usr/lib/sendmail -oi -t");
write (MAILFRBPPATRON);
close (MAILFRBPPATRON);
}
} elsif ($input{'todo'} eq "Periodical Purchase") {
open (MAILFRPP,"|/usr/lib/sendmail -oi -t");
write (MAILFRPP);
close (MAILFRPP);
# open (MAILFRPP,"|mail acqdept\@somewhere.edu");
# write (MAILFRPP);
# close (MAILFRPP);
if ($email ne "") {
open (MAILFRPPPATRON,"|/usr/lib/sendmail -oi -t");
write (MAILFRPPPATRON);
close (MAILFRPPPATRON);
}
} elsif ($input{'todo'} eq "Reserve Materials") {
open (MAILFRRM,"|/usr/lib/sendmail -oi -t");
write (MAILFRRM);
close (MAILFRRM);
if ($email ne "") {
open (MAILFRRMPATRON,"|/usr/lib/sendmail -oi -t");
write (MAILFRRMPATRON);
close (MAILFRRMPATRON);
}
} elsif ($input{'todo'} eq "Something Else") {
open (MAILFRSE,"|mail $tomail");
write (MAILFRSE);
close (MAILFRSE);
}
#print &PrintHeader;
print &LibHeader ("Ingram Library - $input{'todo'}");
print <<ENDOFHEAD;
<H3>Ingram Library - Faculty Request for $input{'todo'} - Submitted by $input{'name'}</H3>
<FORM METHOD = "POST" ACTION="/~library/cgi-bin/demofrls2.cgi">
<INPUT TYPE="hidden" NAME="name" VALUE="$input{'name'}">
<INPUT TYPE="hidden" NAME="id" VALUE="$input{'id'}">
<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="domain" VALUE="$input{'domain'}">
<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{'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'}">
<B>What other request do you want to make?</B><BR>
<SELECT NAME="todo">
<OPTION $FRILLAstate VALUE="ILL (Article)">Interlibrary Loan (Article)</OPTION>
<OPTION $FRILLBstate VALUE="ILL (Book)">Interlibrary Loan (Book)</OPTION>
<OPTION $FRDDAstate VALUE="Document Delivery (Article)">Document Delivery (Article)</OPTION>
<OPTION $FRDDBstate VALUE="Document Delivery (Book)">Document Delivery (Book)</OPTION>
<OPTION $FRBPstate VALUE="Book Purchase">Book Purchase</OPTION>
<OPTION $FRPPstate 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>
The following request has been emailed to:<BR>$tomail<BR>$email<BR>
You may wish to print this page for your records.<BR>
<P>
DATE OF REQUEST: $date<BR>
ENDOFHEAD
if ($input{'todo'} eq "ILL (Article)") {
print <<ENDOFILLA;
<TABLE BORDER="0">
<TR>
<TD><B>Patron Information</B></TD>
</TR>
<TR>
<TD>$name - $dept</TD>
</TR>
<TR>
<TD>$addl1</TD>
</TR>
<TR>
<TD>$addl2</TD>
</TR>
<TR>
<TD>$city, $state $zip</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
<TR>
<TD>Day: ($dfona)$dfon</TD><TD>Evening: ($nfona)$nfon</TD>
</TR>
<TR>
<TD>FAX: ($ffona)$ffon</TD><TD>Email: $email</TD>
</TR>
<TR>
<TD>Delivery: $deliv</TD><TD>Cannot Use After: $cua</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
</TABLE>
<B>Article Information</B><BR>
Formatted Article / Comments:<BR>
$htmlcomment
<TABLE BORDER="0">
<TR>
<TD>Title: $atitle</TD>
</TR>
<TR>
<TD>Auth : $aauth</TD>
</TR>
<TR>
<TD>PTitl: $ptitle</TD>
</TR>
<TR>
<TD>$pdate Vol: $pvol, No: $pnum ($ppg)</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
<TR>
<TD><B>Source Information</B></TD>
</TR>
<TR>
<TD>Title: $stitle</TD>
</TR>
<TR>
<TD>Auth : $sauth</TD>
</TR>
<TR>
<TD>$sdate Vol: $svol, No: $snum ($spg)</TD>
</TR>
</TABLE>
<P>
Accessed From:
$ENV{'REMOTE_ADDR'}
$ENV{'REMOTE_HOST'}
ENDOFILLA
} elsif ($input{'todo'} eq "ILL (Book)") {
print <<ENDOFILLB;
<TABLE BORDER="0">
<TR>
<TD><B>Patron Information</B></TD>
</TR>
<TR>
<TD>$name - $dept</TD>
</TR>
<TR>
<TD>$addl1</TD>
</TR>
<TR>
<TD>$addl2</TD>
</TR>
<TR>
<TD>$city, $state $zip</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
<TR>
<TD>Day: ($dfona)$dfon</TD><TD>Evening: ($nfona)$nfon</TD>
</TR>
<TR>
<TD>FAX: ($ffona)$ffon</TD><TD>Email: $email</TD>
</TR>
<TR>
<TD>Delivery: $deliv</TD><TD>Cannot Use After: $cua</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
</TABLE>
<B>Book Information</B><BR>
Formatted Article / Comments:<BR>
$htmlcomment
<TABLE BORDER="0">
<TR>
<TD>Title: $atitle</TD>
</TR>
<TR>
<TD>Auth : $aauth</TD>
</TR>
<TR>
<TD>$pdate Vol/Ed: $pvol This Edition Only: $edonly</TD>
</TR>
<TR>
<TD>Publisher: $pub City: $pubplace</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
<TR>
<TD><B>Source Information</B></TD>
</TR>
<TR>
<TD>Title: $stitle</TD>
</TR>
<TR>
<TD>Auth : $sauth</TD>
</TR>
<TR>
<TD>$sdate Vol: $svol, No: $snum ($spg)</TD>
</TR>
</TABLE>
<P>
Accessed From:
$ENV{'REMOTE_ADDR'}
$ENV{'REMOTE_HOST'}
ENDOFILLB
} elsif ($input{'todo'} eq "Document Delivery (Article)") {
print <<ENDOFDDA;
<TABLE BORDER="0">
<TR>
<TD><B>Patron Information</B></TD>
</TR>
<TR>
<TD>$name - $dept</TD>
</TR>
<TR>
<TD>$addl1</TD>
</TR>
<TR>
<TD>$addl2</TD>
</TR>
<TR>
<TD>$city, $state $zip</TD>
</TR>
<TR>
<TD>Campus Address: $campadd</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
<TR>
<TD>Day: ($dfona)$dfon</TD><TD>Evening: ($nfona)$nfon</TD>
</TR>
<TR>
<TD>FAX: ($ffona)$ffon</TD><TD>Email: $email</TD>
</TR>
<TR>
<TD>Delivery: $input{'docdeliv'}</TD><TD>Cannot Use After: $cua</TD>
</TR>
<TR>
<TD>Payment: $input{'paytype'}</TD><TD>Account: $input{'account'}</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
</TABLE>
<B>Article Information</B><BR>
Formatted Article / Comments:<BR>
$htmlcomment
<TABLE BORDER="0">
<TR>
<TD>Title: $atitle</TD>
</TR>
<TR>
<TD>Auth : $aauth</TD>
</TR>
<TR>
<TD>PTitl: $ptitle</TD>
</TR>
<TR>
<TD>$pdate Vol: $pvol, No: $pnum ($ppg)</TD>
</TR>
</TABLE>
<P>
Accessed From:
$ENV{'REMOTE_ADDR'}
$ENV{'REMOTE_HOST'}
ENDOFDDA
} elsif ($input{'todo'} eq "Document Delivery (Book)") {
print <<ENDOFDDB;
<TABLE BORDER="0">
<TR>
<TD><B>Patron Information</B></TD>
</TR>
<TR>
<TD>$name - $dept</TD>
</TR>
<TR>
<TD>$addl1</TD>
</TR>
<TR>
<TD>$addl2</TD>
</TR>
<TR>
<TD>$city, $state $zip</TD>
</TR>
<TR>
<TD>Campus Address: $campadd</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
<TR>
<TD>Day: ($dfona)$dfon</TD><TD>Evening: ($nfona)$nfon</TD>
</TR>
<TR>
<TD>FAX: ($ffona)$ffon</TD><TD>Email: $email</TD>
</TR>
<TR>
<TD>Delivery: $input{'docdeliv'}</TD><TD>Cannot Use After: $cua</TD>
</TR>
<TR>
<TD>Payment: $input{'paytype'}</TD><TD>Account: $input{'account'}</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
</TABLE>
<B>Book Information</B><BR>
Formatted Article / Comments:<BR>
$htmlcomment
<TABLE BORDER="0">
<TR>
<TD>CallN: $input{'doccall'}</TD>
</TR>
<TR>
<TD>Title: $atitle</TD>
</TR>
<TR>
<TD>Auth : $aauth</TD>
</TR>
<TR>
<TD>$pdate Vol/Ed: $pvol This Edition Only: $edonly</TD>
</TR>
<TR>
<TD>Publisher: $pub City: $pubplace</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
</TABLE>
<P>
Accessed From:
$ENV{'REMOTE_ADDR'}
$ENV{'REMOTE_HOST'}
ENDOFDDB
} elsif ($input{'todo'} eq "Periodical Purchase") {
print <<ENDOFPP;
<TABLE BORDER="0">
<TR>
<TD><B>Patron Information</B></TD>
</TR>
<TR>
<TD>$name - $dept</TD>
</TR>
<TR>
<TD>Email: $email</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
</TABLE>
<TABLE BORDER="0">
<TR>
<TD><B>Periodical Information</B></TD>
</TR>
<TR>
<TD>Title: $ptitle</TD>
</TR>
<TR>
<TD>Publisher: $pub City: $pubplace</TD>
</TR>
<TR>
<TD>ISSN: $issn Price: $price Lang. $lang</TD>
</TR>
<TR>
<TD>Frequency: $freq</TD>
</TR>
</TABLE>
<B>Backfiles Desired:</B><BR>
$htmlbfiles
<P>
<B>Courses Supported by this Journal:</B><BR>
$htmlcomment
<P>
Accessed From:
$ENV{'REMOTE_ADDR'}
$ENV{'REMOTE_HOST'}
ENDOFPP
} elsif ($input{'todo'} eq "Book Purchase") {
print <<ENDOFBP;
<TABLE BORDER="0">
<TR>
<TD><B>Patron Information</B></TD>
</TR>
<TR>
<TD>$name - $dept</TD>
</TR>
<TR>
<TD>Email: $email</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
</TABLE>
<TABLE BORDER="0">
<TR>
<TD><B>Book Information</B></TD>
</TR>
<TR>
<TD>Title: $atitle</TD>
</TR>
<TR>
<TD>Auth : $aauth</TD>
</TR>
<TR>
<TD>$pdate Vol: $vol Edition: $editn</TD>
</TR>
<TR>
<TD>Publisher: $pub City: $pubplace</TD>
</TR>
<TR>
<TD>ISBN: $isbn Price: $price Copies: $copies Lang. $lang</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
<TR>
<TD><B>Source Information</B></TD>
</TR>
<TR>
<TD>Title: $stitle</TD>
</TR>
<TR>
<TD>Auth : $sauth</TD>
</TR>
<TR>
<TD>$sdate Vol: $svol, No: $snum ($spg)</TD>
</TR>
</TABLE>
<P>
<B>Comments:</B><BR>
$htmlcomment
<P>
Accessed From:
$ENV{'REMOTE_ADDR'}
$ENV{'REMOTE_HOST'}
ENDOFBP
} elsif ($input{'todo'} eq "Reserve Materials") {
print <<ENDOFRM;
<TABLE BORDER="0">
<TR>
<TD><B>Patron Information</B></TD>
</TR>
<TR>
<TD>Dept: $dept Phone: $campext</TD>
</TR>
<TR>
<TD>$name $email</TD>
</TR>
<TR>
<TD>$campadd</TD>
</TR>
<TR>
<TD>State University of West Georgia</TD>
</TR>
<TR>
<TD>Carrollton, GA 30118</TD>
</TR>
<TR>
<TD><B>Course Information:</B></TD>
</TR>
<TR>
<TD>Course: $course Semester: $quarter Year: $year Libuse: $libuse Remove: $remove</TD>
</TR>
</TABLE>
<TABLE BORDER="1">
<TR>
<TD><B>Reserve Items</B></TD>
</TR>
<TR>
<TD>Call#: $input{'rcall1'} Personal Copy: $input{'rpc1'}</TD>
<TD>Call#: $input{'rcall7'} Personal Copy: $input{'rpc7'}</TD>
</TR>
<TR>
<TD>Title: $input{'rtitle1'}</TD>
<TD>Title: $input{'rtitle7'}</TD>
</TR>
<TR>
<TD>Auth : $input{'rauth1'}</TD>
<TD>Auth : $input{'rauth7'}</TD>
</TR>
<TR>
<TD>Call#: $input{'rcall2'} Personal Copy: $input{'rpc2'}</TD>
<TD>Call#: $input{'rcall8'} Personal Copy: $input{'rpc8'}</TD>
</TR>
<TR>
<TD>Title: $input{'rtitle2'}</TD>
<TD>Title: $input{'rtitle8'}</TD>
</TR>
<TR>
<TD>Auth : $input{'rauth2'}</TD>
<TD>Auth : $input{'rauth8'}</TD>
</TR>
<TR>
<TD>Call#: $input{'rcall3'} Personal Copy: $input{'rpc3'}</TD>
<TD>Call#: $input{'rcall9'} Personal Copy: $input{'rpc9'}</TD>
</TR>
<TR>
<TD>Title: $input{'rtitle3'}</TD>
<TD>Title: $input{'rtitle9'}</TD>
</TR>
<TR>
<TD>Auth : $input{'rauth3'}</TD>
<TD>Auth : $input{'rauth9'}</TD>
</TR>
<TR>
<TD>Call#: $input{'rcall4'} Personal Copy: $input{'rpc4'}</TD>
<TD>Call#: $input{'rcall10'} Personal Copy: $input{'rpc10'}</TD>
</TR>
<TR>
<TD>Title: $input{'rtitle4'}</TD>
<TD>Title: $input{'rtitle10'}</TD>
</TR>
<TR>
<TD>Auth : $input{'rauth4'}</TD>
<TD>Auth : $input{'rauth10'}</TD>
</TR>
<TR>
<TD>Call#: $input{'rcall5'} Personal Copy: $input{'rpc5'}</TD>
<TD>Call#: $input{'rcall11'} Personal Copy: $input{'rpc11'}</TD>
</TR>
<TR>
<TD>Title: $input{'rtitle5'}</TD>
<TD>Title: $input{'rtitle11'}</TD>
</TR>
<TR>
<TD>Auth : $input{'rauth5'}</TD>
<TD>Auth : $input{'rauth11'}</TD>
</TR>
<TR>
<TD>Call#: $input{'rcall6'} Personal Copy: $input{'rpc6'}</TD>
<TD>Call#: $input{'rcall12'} Personal Copy: $input{'rpc12'}</TD>
</TR>
<TR>
<TD>Title: $input{'rtitle6'}</TD>
<TD>Title: $input{'rtitle12'}</TD>
</TR>
<TR>
<TD>Auth : $input{'rauth6'}</TD>
<TD>Auth : $input{'rauth12'}</TD>
</TR>
</TABLE>
<P>
<B>Comments:</B><BR>
$htmlcomment
<P>
Accessed From:
$ENV{'REMOTE_ADDR'}
$ENV{'REMOTE_HOST'}
ENDOFRM
} elsif ($input{'todo'} eq "Something Else") {
print <<ENDOFSE;
<TABLE BORDER="0">
<TR>
<TD><B>Patron Information</B></TD>
</TR>
<TR>
<TD>$name - $dept</TD>
</TR>
<TR>
<TD>$addl1</TD>
</TR>
<TR>
<TD>$addl2</TD>
</TR>
<TR>
<TD>$city, $state $zip</TD>
</TR>
<TR>
<TD>Email: $email</TD>
</TR>
<TR>
<TD><P></TD>
</TR>
</TABLE>
<B>Comments:</B><BR>
$htmlcomment
ENDOFSE
}
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/demofrls3.shtml Valid HTML? |