From af0ff4419fa37e19ab491cff6d8fef7498ec3d7e Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 5 Sep 2005 19:24:38 +0000
Subject: [PATCH] removing findguarantee, that is also in Members.pm

---
 C4/Search.pm | 34 +---------------------------------
 1 file changed, 1 insertion(+), 33 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index b7c85a90bb..37b302a580 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -62,43 +62,11 @@ on what is passed to it, it calls the appropriate search function.
 &itemdata &bibdata &GetItems &borrdata &itemnodata
 &borrdata2 &NewBorrowerNumber &bibitemdata &borrissues
 &getboracctrecord &ItemType &itemissues &subject &subtitle
-&addauthor &bibitems &barcodes &findguarantees &allissues
+&addauthor &bibitems &barcodes &allissues
 &findguarantor &getwebsites &getwebbiblioitems &catalogsearch &itemcount2
 &isbnsearch &getbranchname &getborrowercategory);
 # make all your functions, whether exported or not;
 
-
-=item findguarantees
-
-  ($num_children, $children_arrayref) = &findguarantees($parent_borrno);
-  $child0_cardno = $children_arrayref->[0]{"cardnumber"};
-  $child0_borrno = $children_arrayref->[0]{"borrowernumber"};
-
-C<&findguarantees> takes a borrower number (e.g., that of a patron
-with children) and looks up the borrowers who are guaranteed by that
-borrower (i.e., the patron's children).
-
-C<&findguarantees> returns two values: an integer giving the number of
-borrowers guaranteed by C<$parent_borrno>, and a reference to an array
-of references to hash, which gives the actual results.
-
-=cut
-#'
-sub findguarantees{
-  my ($bornum)=@_;
-  my $dbh = C4::Context->dbh;
-  my $sth=$dbh->prepare("select cardnumber,borrowernumber, firstname, surname from borrowers where guarantor=?");
-  $sth->execute($bornum);
-
-  my @dat;
-  while (my $data = $sth->fetchrow_hashref)
-  {
-    push @dat, $data;
-  }
-  $sth->finish;
-  return (scalar(@dat), \@dat);
-}
-
 =item findguarantor
 
   $guarantor = &findguarantor($borrower_no);
-- 
2.39.5