[Koha-cvs] koha/C4 Members.pm

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/21 10:15:57

Modified files:
        C4             : Members.pm 

Log message:
        new function & subs renamed.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Members.pm?cvsroot=koha&r1=1.30&r2=1.31

Patches:
Index: Members.pm
===================================================================
RCS file: /sources/koha/koha/C4/Members.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -b -r1.30 -r1.31
--- Members.pm  12 Jul 2006 07:49:06 -0000      1.30
+++ Members.pm  21 Jul 2006 10:15:57 -0000      1.31
@@ -19,7 +19,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Members.pm,v 1.30 2006/07/12 07:49:06 toins Exp $
+# $Id: Members.pm,v 1.31 2006/07/21 10:15:57 toins Exp $
 
 use strict;
 require Exporter;
@@ -31,7 +31,7 @@
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
-$VERSION = do { my @v = '$Revision: 1.30 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.31 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -64,6 +64,7 @@
   &fixEthnicity
   &ethnicitycategories get_institutions add_member_orgs
   &get_age &GetBorrowersFromSurname &GetBranchCodeFromBorrowers
+  &GetFlagsAndBranchFromBorrower
 );
 
 
@@ -165,6 +166,37 @@
 
 =cut
 
+=head3
+
+=over 4
+
+($flags, $homebranch) = GetFlagsAndBranchFromBorrower($loggedinuser);
+
+this function read on the database to get flags and homebranch for a user
+given on input arg.
+
+return : 
+it returns the $flags & the homebranch in scalar context.
+
+=back
+
+=cut
+
+sub GetFlagsAndBranchFromBorrower {
+    my $loggedinuser = @_;
+    my $dbh = C4::Context->dbh;
+    my $query = "
+       SELECT flags, branchcode
+       FROM   borrowers
+       WHERE  borrowernumber = ? 
+    ";
+    my $sth = $dbh->prepare($query);
+    $sth->execute($loggedinuser);
+
+    return $sth->fetchrow;
+}
+
+
 #'
 sub getmember {
     my ( $cardnumber, $bornum ) = @_;