From 3e29b81f64438a9c82646412c308d3557a332ce5 Mon Sep 17 00:00:00 2001
From: oleonard <oleonard>
Date: Fri, 26 Nov 2004 20:24:38 +0000
Subject: [PATCH] Fix for Bug 848

---
 members/moremember.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/members/moremember.pl b/members/moremember.pl
index 6c997bf082..bcf56ecbc0 100755
--- a/members/moremember.pl
+++ b/members/moremember.pl
@@ -145,7 +145,7 @@ for (my $i=0;$i<$count;$i++){
 	# But &C4::Circulation::Renewals2::calc_charges doesn't appear to
 	# return the correct item type either (or a properly-formatted
 	# charge, for that matter).
-	my ($charge,$itemtype)=calc_charges(undef,$dbh,$issue->[$i]{'itemnumber'},$bornum);
+	my ($charge,$itemtype)=calc_charges($dbh,$issue->[$i]{'itemnumber'},$bornum);
 	$row{'itemtype'}=&ItemType($itemtype);
 	$row{'charge'}=$charge;
 
-- 
2.39.5