3 #script to delete items
13 use C4::Circulation::Circ2;
14 #use C4::Acquisitions;
17 #print $input->header;
18 my $member=$input->param('member');
20 $env{'nottodayissues'}=1;
22 $member2{'borrowernumber'}=$member;
23 my $issues=currentissues(\%env,\%member2);
25 foreach (sort keys %$issues) {
28 my ($bor,$flags)=getpatroninformation(\%env, $member,'');
30 my $query="Select * from borrowers where guarantor='$member'";
31 my $sth=$dbh->prepare($query);
33 my $data=$sth->fetchrow_hashref;
38 if ($i > 0 || $flags->{'CHARGES'} ne '' || $data ne ''){
40 print "<table border=1>";
42 print "<TR><TD>Items on Issue</td><td align=right>$i</td></tr>";
44 if ($flags->{'CHARGES'} ne ''){
45 print "<TR><TD>Charges</td><td>$flags->{'CHARGES'}->{'message'}</tr>";
48 print "<TR><TD>Guarantees</td></tr>";
54 print $input->redirect("/members/");
60 my $query="Select * from borrowers where borrowernumber='$member'";
61 my $sth=$dbh->prepare($query);
63 my @data=$sth->fetchrow_array;
65 $query="Insert into deletedborrowers values (";
66 foreach my $temp (@data){
67 $query=$query."'$temp',";
71 $sth=$dbh->prepare($query);
74 $query = "Delete from borrowers where borrowernumber='$member'";
75 $sth=$dbh->prepare($query);
78 $query="Delete from reserves where borrowernumber='$member'";
79 $sth=$dbh->prepare($query);