[Koha-cvs] koha/C4 Members.pm [rel_3_0]

[Bruno Toumi]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Bruno Toumi <btoumi>	06/10/12 10:08:23

Modified files:
	C4             : Members.pm 

Log message:
	add function GetBorNotifyAcctRecord return all accountlines per borrowers , per file number

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Members.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.32.2.4&r2=1.32.2.5

Patches:
Index: Members.pm
===================================================================
RCS file: /sources/koha/koha/C4/Members.pm,v
retrieving revision 1.32.2.4
retrieving revision 1.32.2.5
diff -u -b -r1.32.2.4 -r1.32.2.5
--- Members.pm	25 Sep 2006 15:00:05 -0000	1.32.2.4
+++ Members.pm	12 Oct 2006 10:08:22 -0000	1.32.2.5
@@ -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.32.2.4 2006/09/25 15:00:05 btoumi Exp $
+# $Id: Members.pm,v 1.32.2.5 2006/10/12 10:08:22 btoumi Exp $
 
 use strict;
 require Exporter;
@@ -31,7 +31,7 @@
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
-$VERSION = do { my @v = '$Revision: 1.32.2.4 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.32.2.5 $' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -65,7 +65,7 @@
   &ethnicitycategories get_institutions add_member_orgs
   &get_age &GetBorrowersFromSurname &GetBranchCodeFromBorrowers
   &GetFlagsAndBranchFromBorrower
- &GetCities &GetRoadTypes
+ &GetCities &GetRoadTypes &GetBorNotifyAcctRecord
 );
 
 
@@ -591,8 +591,7 @@
         # It looks like the $i is only being returned to handle walking through
         # the array, which is probably better done as a foreach loop.
         #
-        my $guaquery =
-"update borrowers set streetaddress='$data{'address'}',faxnumber='$data{'faxnumber'}',
+         my $guaquery ="update borrowers set streetaddress='$data{'address'}',faxnumber='$data{'faxnumber'}',
 		streetcity='$data{'streetcity'}',phoneday='$data{'phoneday'}',city='$data{'city'}',area='$data{'area'}',phone='$data{'phone'}'
 		,streetaddress='$data{'address'}'
 		where borrowernumber='$guarantees->[$i]->{'borrowernumber'}'";
@@ -969,7 +968,7 @@
 
 #'
 sub getboracctrecord {
-    my ( $env, $params ) = @_;
+    my ( $env, $params) = @_;
     my $dbh = C4::Context->dbh;
     my @acctlines;
     my $numlines = 0;
@@ -977,7 +976,6 @@
         "Select * from accountlines where
 borrowernumber=? order by date desc,timestamp desc"
     );
-
     #   print $query;
     $sth->execute( $params->{'borrowernumber'} );
     my $total = 0;
@@ -1001,6 +999,56 @@
     return ( $numlines, \@acctlines, $total );
 }
 
+
+
+=head2 GetBorNotifyAcctRecord
+
+  ($count, $acctlines, $total) = &GetBorNotifyAcctRecord($env, $params,$notifyid);
+
+Looks up accounting data for the patron with the given borrowernumber per file number.
+
+C<$env> is ignored.
+
+(FIXME - I'm not at all sure what this is about.)
+
+C<&GetBorNotifyAcctRecord> returns a three-element array. C<$acctlines> is a
+reference-to-array, where each element is a reference-to-hash; the
+keys are the fields of the C<accountlines> table in the Koha database.
+C<$count> is the number of elements in C<$acctlines>. C<$total> is the
+total amount outstanding for all of the account lines.
+=cut
+
+sub GetBorNotifyAcctRecord {
+    my ( $env, $params , $notifyid) = @_;
+    my $dbh = C4::Context->dbh;
+    my @acctlines;
+    my $numlines = 0;
+    my $query  =  qq|	SELECT * 
+			FROM accountlines 
+			WHERE borrowernumber=? 
+			AND notify_id=? 
+			AND (accounttype='FU' OR accounttype='IP' OR accounttype='CH' OR accounttype='RE' OR accounttype='RL')
+			AND amountoutstanding != '0' 
+			ORDER BY notify_id,accounttype
+		|;
+    my $sth = $dbh->prepare($query);
+    #   print $query;
+    $sth->execute( $params->{'borrowernumber'},$notifyid );
+    my $total = 0;
+    while ( my $data = $sth->fetchrow_hashref ) {
+        $acctlines[$numlines] = $data;
+        $numlines++;
+        $total += $data->{'amountoutstanding'};
+    }
+    $sth->finish;
+    return ( $numlines, \@acctlines, $total );
+}
+
+
+
+
+
+
 =head2 checkuniquemember (OUEST-PROVENCE)
 
   $result = &checkuniquemember($collectivity,$surname,$categorycode,$firstname,$dateofbirth);