[Koha-cvs] koha/C4 Members.pm
Antoine Farnault
antoine at koha-fr.org
Thu Jul 27 15:48:02 CEST 2006
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,\@results);
}
-=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;
More information about the Koha-cvs
mailing list