#!/usr/local/bin/perl -w
# loanType.pl
# library script to set the loan types of the records
require "cgi-lib.pl";
print &PrintHeader;
print "Library Admin Screen
";
#parse form
&ReadParse(*input);
#from form
$action = $input{'action'};
$itemId = $input{'itemId'};
$firstId = $input{'first'};
$lastId = $input{'last'};
$tempIdStorer = $firstId;
for ($firstId..$lastId) {
@loanType = $input{'$firstId'};
$i++;
}
#####rest of my code to alter the records etc.