[Koha-cvs] CVS: koha/C4 Search.pm,1.104,1.105

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5601/C4

Modified Files:
	Search.pm 
Log Message:
removing findguarantee, that is also in Members.pm

Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.104
retrieving revision 1.105
diff -C2 -r1.104 -r1.105
*** Search.pm	12 Aug 2005 13:52:28 -0000	1.104
--- Search.pm	5 Sep 2005 19:24:38 -0000	1.105
***************
*** 63,103 ****
  &borrdata2 &NewBorrowerNumber &bibitemdata &borrissues
  &getboracctrecord &ItemType &itemissues &subject &subtitle
! &addauthor &bibitems &barcodes &findguarantees &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
  
--- 63,71 ----
  &borrdata2 &NewBorrowerNumber &bibitemdata &borrissues
  &getboracctrecord &ItemType &itemissues &subject &subtitle
! &addauthor &bibitems &barcodes &allissues
  &findguarantor &getwebsites &getwebbiblioitems &catalogsearch &itemcount2
  &isbnsearch &getbranchname &getborrowercategory);
  # make all your functions, whether exported or not;
  
  =item findguarantor