deletemem.pl

   1 #!/usr/bin/perl
   2
   3 #script to delete items
   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
  16 my $input = new CGI;
  17 #print $input->header;
  18 my $member=$input->param('member');
  19 my %env;
  20 $env{'nottodayissues'}=1;
  21  my %member2;
  22  $member2{'borrowernumber'}=$member;
  23  my $issues=currentissues(\%env,\%member2);
  24  my $i=0;
  25  foreach (sort keys %$issues) {
  26   $i++;
  27  }
  28   my ($bor,$flags)=getpatroninformation(\%env, $member,'');
  29 my $dbh=C4Connect;
  30 my $query="Select * from borrowers where guarantor='$member'";
  31 my $sth=$dbh->prepare($query);
  32 $sth->execute;
  33 my $data=$sth->fetchrow_hashref;
  34 $sth->finish;
  35 $dbh->disconnect;
  36
  37
  38 if ($i > 0 || $flags->{'CHARGES'} ne '' || $data ne ''){
  39   print $input->header;
  40   print "<table border=1>";
  41   if ($i > 0){
  42       print "<TR><TD>Items on Issue</td><td align=right>$i</td></tr>";
  43   }
  44   if ($flags->{'CHARGES'} ne ''){
  45       print "<TR><TD>Charges</td><td>$flags->{'CHARGES'}->{'message'}</tr>";
  46   }
  47   if ($data ne ''){
  48       print "<TR><TD>Guarantees</td></tr>";
  49   }
  50   print "</table>";
  51
  52 } else {
  53          delmember($member);
  54          print $input->redirect("/members/");
  55 }
  56
  57 sub delmember{
  58   my ($member)=@_;
  59   my $dbh=C4Connect;
  60   my $query="Select * from borrowers where borrowernumber='$member'";
  61   my $sth=$dbh->prepare($query);
  62   $sth->execute;
  63   my @data=$sth->fetchrow_array;
  64   $sth->finish;
  65   $query="Insert into deletedborrowers values (";
  66   foreach my $temp (@data){
  67     $query=$query."'$temp',";
  68   }
  69   $query=~ s/\,$/\)/;
  70   #  print $query;
  71   $sth=$dbh->prepare($query);
  72   $sth->execute;
  73   $sth->finish;
  74   $query = "Delete from borrowers where borrowernumber='$member'";
  75   $sth=$dbh->prepare($query);
  76   $sth->execute;
  77   $sth->finish;
  78   $query="Delete from reserves where borrowernumber='$member'";
  79   $sth=$dbh->prepare($query);
  80   $sth->execute;
  81   $sth->finish;
  82   $dbh->disconnect;
  83 }