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 if ($i > 0){
  29   print $input->header;
  30   print "error borrower has items on issue";
  31 } else {
  32   delmember($member);
  33   print $input->redirect("/members/");
  34 }
  35
  36 sub delmember{
  37   my ($member)=@_;
  38   my $dbh=C4Connect;
  39   my $query="Select * from borrowers where borrowernumber='$member'";
  40   my $sth=$dbh->prepare($query);
  41   $sth->execute;
  42   my @data=$sth->fetchrow_array;
  43   $sth->finish;
  44   $query="Insert into deletedborrowers values (";
  45   foreach my $temp (@data){
  46     $query=$query."'$temp',";
  47   }
  48   $query=~ s/\,$/\)/;
  49   #  print $query;
  50   $sth=$dbh->prepare($query);
  51   $sth->execute;
  52   $sth->finish;
  53   $query = "Delete from borrowers where borrowernumber='$member'";
  54   $sth=$dbh->prepare($query);
  55   $sth->execute;
  56   $sth->finish;
  57   $dbh->disconnect;
  58 }