diff --git a/moremember.pl b/moremember.pl
index ba2b691a0e..1c3e439199 100755
--- a/moremember.pl
+++ b/moremember.pl
@@ -37,6 +37,9 @@ use C4::Reserves2;
use C4::Circulation::Renewals2;
use C4::Circulation::Circ2;
use C4::Koha;
+use C4::Database;
+
+my $dbh=C4Connect;
my $input = new CGI;
my $bornum=$input->param('bornum');
@@ -250,7 +253,7 @@ for (my $i=0;$i<$count;$i++){
$issue->[$i]{'barcode'}
$issue->[$i]{'date_due'}
";
#find the charge for an item
- my ($charge,$itemtype)=calc_charges(undef,$issue->[$i]{'itemnumber'},$bornum);
+ my ($charge,$itemtype)=calc_charges(undef,$dbh,$issue->[$i]{'itemnumber'},$bornum);
print "
$itemtype
";
print "
$charge
";
@@ -302,7 +305,7 @@ print <Requested
-
Charge
+
Remove
@@ -318,14 +321,17 @@ my ($rescount,$reserves)=FindReserves('',$bornum); #From C4::Reserves2
# kind of loop?
#
for (my $i=0;$i<$rescount;$i++){
- $reserves->[$i]{'reservedate'} = slashifyDate($reserves->[$i]{'reservedate'});
-
+ $reserves->[$i]{'reservedate2'} = slashifyDate($reserves->[$i]{'reservedate'});
+ my $restitle;
+ if ($reserves->[$i]{'constrainttype'} eq 'o'){
+ $restitle=getreservetitle($reserves->[$i]{'biblionumber'},$reserves->[$i]{'borrowernumber'},$reserves->[$i]{'reservedate'},$reserves->[$i]{'timestamp'});
+ }
print "