deletemem.pl

   1 #!/usr/bin/perl
   2
   3 #script to delete borrowers
   4 #written 2/5/00
   5 #by chris@katipo.co.nz
   6
   7 use strict;
   8
   9 use C4::Search;
  10 use CGI;
  11 use C4::Output;
  12 use C4::Database;
  13 use C4::Circulation::Circ2;
  14 #use C4::Acquisitions;
  15 use C4::Auth;
  16
  17
  18 my $input = new CGI;
  19
  20 my $flagsrequired;
  21 $flagsrequired->{borrower}=1;
  22 my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
  23
  24
  25
  26 #print $input->header;
  27 my $member=$input->param('member');
  28 my %env;
  29 $env{'nottodayissues'}=1;
  30  my %member2;
  31  $member2{'borrowernumber'}=$member;
  32  my $issues=currentissues(\%env,\%member2);
  33  my $i=0;
  34  foreach (sort keys %$issues) {
  35   $i++;
  36  }
  37   my ($bor,$flags)=getpatroninformation(\%env, $member,'');
  38 my $dbh=C4Connect;
  39 my $query="Select * from borrowers where guarantor='$member'";
  40 my $sth=$dbh->prepare($query);
  41 $sth->execute;
  42 my $data=$sth->fetchrow_hashref;
  43 $sth->finish;
  44 $dbh->disconnect;
  45
  46
  47 if ($i > 0 || $flags->{'CHARGES'} ne '' || $data ne ''){
  48   print $input->header;
  49   print "<table border=1>";
  50   if ($i > 0){
  51       print "<TR><TD>Items on Issue</td><td align=right>$i</td></tr>";
  52   }
  53   if ($flags->{'CHARGES'} ne ''){
  54       print "<TR><TD>Charges</td><td>$flags->{'CHARGES'}->{'message'}</tr>";
  55   }
  56   if ($data ne ''){
  57       print "<TR><TD>Guarantees</td></tr>";
  58   }
  59   print "</table>";
  60
  61 } else {
  62          delmember($member);
  63          print $input->redirect("/members/");
  64 }
  65
  66 sub delmember{
  67   my ($member)=@_;
  68   my $dbh=C4Connect;
  69   my $query="Select * from borrowers where borrowernumber='$member'";
  70   my $sth=$dbh->prepare($query);
  71   $sth->execute;
  72   my @data=$sth->fetchrow_array;
  73   $sth->finish;
  74   $query="Insert into deletedborrowers values (";
  75   foreach my $temp (@data){
  76     $query=$query."'$temp',";
  77   }
  78   $query=~ s/\,$/\)/;
  79   #  print $query;
  80   $sth=$dbh->prepare($query);
  81   $sth->execute;
  82   $sth->finish;
  83   $query = "Delete from borrowers where borrowernumber='$member'";
  84   $sth=$dbh->prepare($query);
  85   $sth->execute;
  86   $sth->finish;
  87   $query="Delete from reserves where borrowernumber='$member'";
  88   $sth=$dbh->prepare($query);
  89   $sth->execute;
  90   $sth->finish;
  91   $dbh->disconnect;
  92 }