koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] koha/C4 Members.pm


From: Antoine Farnault
Subject: [Koha-cvs] koha/C4 Members.pm
Date: Thu, 27 Jul 2006 13:48:02 +0000

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        06/07/27 13:48:02

Modified files:
        C4             : Members.pm 

Log message:
        Deleted a duplicated function.

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

Patches:
Index: Members.pm
===================================================================
RCS file: /sources/koha/koha/C4/Members.pm,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- Members.pm  21 Jul 2006 10:15:57 -0000      1.31
+++ Members.pm  27 Jul 2006 13:48:02 -0000      1.32
@@ -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.31 2006/07/21 10:15:57 toins Exp $
+# $Id: Members.pm,v 1.32 2006/07/27 13:48:02 toins Exp $
 
 use strict;
 require Exporter;
@@ -31,7 +31,7 @@
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
-$VERSION = do { my @v = '$Revision: 1.31 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.32 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -166,7 +166,7 @@
 
 =cut
 
-=head3
+=head3 GetFlagsAndBranchFromBorrower
 
 =over 4
 
@@ -1374,29 +1374,6 @@
      return ($count,address@hidden);
 }
 
-=head2 GetBranchCodeFromBorrowers
-
-=over 4
-
-$sth = GetBranchCodeFromBorrowers();
-
-this function just prepare the SQL request.
-After this function, don't forget to execute it by using 
$sth->execute($borrowernumber)
-return :
-$sth = $dbh->prepare($query).
-
-=back
-
-=cut
-sub GetBranchCodeFromBorrowers {
-    my $dbh = C4::Context->dbh;
-    my $query = qq|
-        SELECT flags, branchcode
-        FROM   borrowers
-        WHERE  borrowernumber = ?
-    |;
-    return $dbh->prepare($query);
-}
 END { }       # module clean-up code here (global destructor)
 
 1;




reply via email to

[Prev in Thread] Current Thread [Next in Thread]