kumara/addborrower.pl

#!/usr/bin/perl

#script to guide user thru adding/modifying a borrower entry
#written 22/11/99
#update 21/12/99 by chris@katipo.co.nz

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');
my $target=$input->param('target');
if ($action eq "") {
  $action="M";
  }
if ($target eq "") {
  $target = "addborrower.pl";
  }
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>CARDNO</b>','<b>NAME</b>','<b>CAT</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'}      ="21\t\t\thidden\tI";
  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();