[Koha-cvs] CVS: koha/C4 Members.pm,1.8,1.9 Search.pm,1.105,1.106

[Paul POULAIN]

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)address@hidden;
+   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)address@hidden;
-   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