gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

removing findguarantee, that is also in Members.pm

This commit is contained in:
tipaul 2005-09-05 19:24:38 +00:00
parent 35af690c60
commit af0ff4419f
1 changed files with 1 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
C4/Search.pm
View File

@ -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);