X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=deletemem.pl;h=74113739aa2e374c3710537d0636806ec93ad0c7;hb=e339f5d64ba06180925f551da12fd5a8cdffd444;hp=f2260ca4bce71560ddc2bcce73899818ff239b10;hpb=8752582dc2522f261128e7b142397a74efbd0cac;p=koha_fer

diff --git a/deletemem.pl b/deletemem.pl
index f2260ca4bc..74113739aa 100755
--- a/deletemem.pl
+++ b/deletemem.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+# $Id$
+
 #script to delete items
 #written 2/5/00
 #by chris@katipo.co.nz
@@ -30,8 +32,17 @@ use C4::Search;
 use C4::Output;
 use C4::Circulation::Circ2;
 #use C4::Acquisitions;
+use C4::Auth;
+
 
 my $input = new CGI;
+
+my $flagsrequired;
+$flagsrequired->{borrower}=1;
+my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
+
+
+
 #print $input->header;
 my $member=$input->param('member');
 my %env;
@@ -50,9 +61,9 @@ my $sth=$dbh->prepare($query);
 $sth->execute;
 my $data=$sth->fetchrow_hashref;
 $sth->finish;
-      
 
-if ($i > 0 || $flags->{'CHARGES'} ne '' || $data ne ''){ 
+
+if ($i > 0 || $flags->{'CHARGES'} ne '' || $data ne ''){
   print $input->header;
   print "<table border=1>";
   if ($i > 0){
@@ -68,7 +79,7 @@ if ($i > 0 || $flags->{'CHARGES'} ne '' || $data ne ''){
 
 } else {
          delmember($member);
-         print $input->redirect("/members/");
+         print $input->redirect("/cgi-bin/koha/members-home.pl");
 }
 
 sub delmember{
@@ -81,7 +92,7 @@ sub delmember{
   $sth->finish;
   $query="Insert into deletedborrowers values (";
   foreach my $temp (@data){
-    $query=$query."'$temp',";		# FIXME - .=
+    $query .= "'$temp',";
   }
   $query=~ s/\,$/\)/;
   #  print $query;