[Koha-cvs] CVS: koha/C4 Members.pm,1.8,1.9 Search.pm,1.105,1.106
Paul POULAIN
tipaul at users.sourceforge.net
Mon Sep 5 21:26:10 CEST 2005
Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6077/C4
Modified Files:
Members.pm Search.pm
Log Message:
moving findguarantor sub to Members package
Index: Members.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Members.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** Members.pm 20 Jun 2005 14:10:01 -0000 1.8
--- Members.pm 5 Sep 2005 19:26:08 -0000 1.9
***************
*** 50,54 ****
@EXPORT = qw(
! &getmember &fixup_cardnumber &findguarantees &modmember &newmember &changepassword
);
--- 50,54 ----
@EXPORT = qw(
! &getmember &fixup_cardnumber &findguarantees &findguarantor &modmember &newmember &changepassword
);
***************
*** 277,280 ****
--- 277,310 ----
}
+ =item findguarantor
+
+ $guarantor = &findguarantor($borrower_no);
+ $guarantor_cardno = $guarantor->{"cardnumber"};
+ $guarantor_surname = $guarantor->{"surname"};
+ ...
+
+ C<&findguarantor> takes a borrower number (presumably that of a child
+ patron), finds the guarantor for C<$borrower_no> (the child's parent),
+ and returns the record for the guarantor.
+
+ C<&findguarantor> returns a reference-to-hash. Its keys are the fields
+ from the C<borrowers> database table;
+
+ =cut
+ #'
+ sub findguarantor{
+ my ($bornum)=@_;
+ my $dbh = C4::Context->dbh;
+ my $sth=$dbh->prepare("select guarantor from borrowers where borrowernumber=?");
+ $sth->execute($bornum);
+ my $data=$sth->fetchrow_hashref;
+ $sth->finish;
+ $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
+ $sth->execute($data->{'guarantor'});
+ $data=$sth->fetchrow_hashref;
+ $sth->finish;
+ return($data);
+ }
+
# =item NewBorrowerNumber
#
Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.105
retrieving revision 1.106
diff -C2 -r1.105 -r1.106
*** Search.pm 5 Sep 2005 19:24:38 -0000 1.105
--- Search.pm 5 Sep 2005 19:26:08 -0000 1.106
***************
*** 63,100 ****
&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
-
- $guarantor = &findguarantor($borrower_no);
- $guarantor_cardno = $guarantor->{"cardnumber"};
- $guarantor_surname = $guarantor->{"surname"};
- ...
-
- C<&findguarantor> takes a borrower number (presumably that of a child
- patron), finds the guarantor for C<$borrower_no> (the child's parent),
- and returns the record for the guarantor.
-
- C<&findguarantor> returns a reference-to-hash. Its keys are the fields
- from the C<borrowers> database table;
-
- =cut
- #'
- sub findguarantor{
- my ($bornum)=@_;
- my $dbh = C4::Context->dbh;
- my $sth=$dbh->prepare("select guarantor from borrowers where borrowernumber=?");
- $sth->execute($bornum);
- my $data=$sth->fetchrow_hashref;
- $sth->finish;
- $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
- $sth->execute($data->{'guarantor'});
- $data=$sth->fetchrow_hashref;
- $sth->finish;
- return($data);
- }
=item NewBorrowerNumber
--- 63,70 ----
&borrdata2 &NewBorrowerNumber &bibitemdata &borrissues
&getboracctrecord &ItemType &itemissues &subject &subtitle
! &addauthor &bibitems &barcodes &allissues &getwebsites &getwebbiblioitems &catalogsearch &itemcount2
&isbnsearch &getbranchname &getborrowercategory);
# make all your functions, whether exported or not;
=item NewBorrowerNumber
More information about the Koha-cvs
mailing list