From af0ff4419fa37e19ab491cff6d8fef7498ec3d7e Mon Sep 17 00:00:00 2001 From: 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