104 lines
3.7 KiB
Perl
Executable file
104 lines
3.7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
#script to guide user thru adding/modifying a borrower entry
|
|
#written 22/11/99
|
|
|
|
use strict;
|
|
#use C4::Search;
|
|
use CGI;
|
|
use C4::Output;
|
|
use C4::Input;
|
|
use C4::Database;
|
|
use C4::Search;
|
|
|
|
my $input = new CGI;
|
|
print $input->header;
|
|
my $data;
|
|
my $env;
|
|
my $bcnt;
|
|
my $results;
|
|
my $cardnumber;
|
|
my $action=$input->param('act');
|
|
$action="M";
|
|
if ($action eq "M") {
|
|
$cardnumber=$input->param('item');
|
|
$cardnumber =uc $cardnumber;
|
|
$data=borrdata($cardnumber);
|
|
if ($data->{borrowernumber} eq "") {
|
|
($bcnt,$results) = BornameSearch($env,$input->param('item'));
|
|
if ($bcnt > 0) {
|
|
$action = "S";
|
|
} else {
|
|
my $validcard = checkdigit($cardnumber);
|
|
if ($validcard eq "1") {
|
|
$action = "A";
|
|
}
|
|
}
|
|
}
|
|
}
|
|
print startpage();
|
|
print startmenu();
|
|
if ($action eq 'S') {
|
|
my $i = 0;
|
|
print center;
|
|
print mktablehdr;
|
|
print mktablerow(5,'#cccc99','<b>CARDNUMBER</b>','<b>NAME</b>','<b>CATEGORY</b>','<b>ADDRESS</B>','<b>PHONE</B>');
|
|
my $colour = 1;
|
|
while ($i < $bcnt) {
|
|
# create a search list
|
|
my @stuff;
|
|
my $data = @$results[$i];
|
|
$stuff[0] = "<a href=\"addborrower.pl?act=M&item=$data->{'cardnumber'}\">$data->{'cardnumber'}</a>";
|
|
$stuff[1] = "$data->{'surname'}, $data->{'firstname'}";
|
|
if ($data->{'othernames'} ne "") {
|
|
$stuff[1] = $stuff[1]." ($data->{'othernames'})";
|
|
}
|
|
$stuff[2] = $data->{'categorycode'};
|
|
$stuff[3] = "$data->{'streetaddress'}, $data->{'suburb'}, $data->{'city'}";
|
|
$stuff[4] = $data->{'phone'};
|
|
if ($colour == 1){
|
|
print mktablerow(5,'#ffffcc',$stuff[0],$stuff[1],$stuff[2],$stuff[3],$stuff[4]);
|
|
$colour=0;
|
|
} else{
|
|
print mktablerow(5,'white',$stuff[0],$stuff[1],$stuff[2],$stuff[3],$stuff[4]);
|
|
$colour=1;
|
|
}
|
|
$i++;
|
|
}
|
|
#print "</table>";
|
|
print mktableft;
|
|
print endcenter;
|
|
} else {
|
|
my %inputs;
|
|
my $catlist=makelist("categories","categorycode","description");
|
|
$inputs{'cardnumber'} ="1\tR\tCard Number\ttext\t20\t$data->{'cardnumber'}";
|
|
$inputs{'surname'} ="2\tR\tSurname\ttext\t40\t$data->{'surname'}";
|
|
$inputs{'firstname'} ="3\tR\tFirst Name\ttext\t40\t$data->{'firstname'}";
|
|
$inputs{'othernames'} ="4\t\tOther Names\ttext\t40\t$data->{'othernames'}";
|
|
$inputs{'initials'} ="5\t\tInitials\ttext\t40\t$data->{'initials'}";
|
|
$inputs{'streetaddress'}="6\tR\tAddress\ttext\t40\t$data->{'streetaddress'}";
|
|
$inputs{'suburb'} ="7\t\tArea\ttext\t40\t$data->{'suburb'}";
|
|
$inputs{'city'} ="8\t\tTown\ttext\t40\t$data->{'city'}";
|
|
$inputs{'phone'} ="9\tR\tTelephone\ttext\t20\t$data->{'phone'}";
|
|
$inputs{'emailaddress'} ="10\t\tEmail\ttext\t40\t$data->{'emailaddress'}";
|
|
$inputs{'faxnumber'} ="11\t\tFax Number\ttext\t20\t$data->{'faxnumber'}";
|
|
$inputs{'altstreetaddress'}="12\tR\tAlt Address\ttext\t40\t$data->{'altstreetaddress'}";
|
|
$inputs{'altsuburb'} ="13\t\tAlt Area\ttext\t40\t$data->{'altsuburb'}";
|
|
$inputs{'altcity'} ="14\t\tAlt Town\ttext\t40\t$data->{'altcity'}";
|
|
$inputs{'altphone'} ="15\tR\tAlt Phone\ttext\t20\t$data->{'altphone'}";
|
|
$inputs{'categorycode'} ="16\t\tCategory\tselect\t$data->{'categorycode'}".$catlist;
|
|
$inputs{'dateofbirth'} ="17\t\tDate of Birth\ttext\t20\t$data->{'dateofbirth'}";
|
|
$inputs{'contactname'} ="18\tR\tContact Name\ttext\t40\t$data->{'contactname'}";
|
|
$inputs{'borrowernotes'}="19\t\tNotes\ttextarea\t40x4\t$data->{'borrowernotes'}";
|
|
$inputs{'type'} ="20\t\t\thidden\tborrowers";
|
|
$inputs{'updtype'} ="I";
|
|
if ($action eq "M") {
|
|
$inputs{'updtype'} = "\21\t\t\thidden\tM";
|
|
$inputs{'borrowernumber'} ="22\t\t\thidden\t$data->{'borrowernumber'}";
|
|
}
|
|
print mkform2('/cgi-bin/kumara/insertdata.pl',%inputs);
|
|
#print mktablehdr();
|
|
#print mktableft();
|
|
}
|
|
print endmenu();
|
|
print endpage();
|