fixes to fine management

Signed-off-by: Chris Cormack <crc@liblime.com>

C4/Accounts.pm

@@ -270,7 +270,7 @@ EOT
 sub returnlost {
     my ( $borrowernumber, $itemnum ) = @_;
     my $dbh      = C4::Context->dbh;
-    my $borrower = GetMember( $borrowernumber, 'borrowernumber' );
+    my $borrower = C4::Members::GetMember( $borrowernumber, 'borrowernumber' );
     my $sth      = $dbh->prepare(
         "UPDATE issues SET returndate=now() WHERE
   borrowernumber=? AND itemnumber=? AND returndate IS NULL"
@@ -367,6 +367,7 @@ sub manualinvoice {
         $sth->execute( $borrowernumber, $accountno, $amount, $desc, $type,
             $amountleft, $notifyid );
     }
+    return 0;
 }
 
 =head2 fixcredit

koha-tmpl/intranet-tmpl/prog/en/members/boraccount.tmpl

@@ -5,8 +5,19 @@
 <!-- TMPL_INCLUDE NAME="menus.inc" -->
 <!-- TMPL_INCLUDE NAME="menu-members.inc" -->
 
-<!-- The table with the account items -->
+<!-- The manual invoice and credit buttons -->
+<div id="action">
+    <div class="edit">
+        <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=<!-- TMPL_VAR NAME="borrowernumber" -->">Return to Patron Record</a>
+    </div>
+    <div class="view">
+        <a href="/cgi-bin/koha/members/pay.pl?borrowernumber=<!-- TMPL_VAR NAME="borrowernumber" -->" >Pay fines</a>
+        <a href="/cgi-bin/koha/members/maninvoice.pl?borrowernumber=<!-- TMPL_VAR NAME="borrowernumber" -->" >Create Manual Invoice</a>
+        <a href="/cgi-bin/koha/members/mancredit.pl?borrowernumber=<!-- TMPL_VAR NAME="borrowernumber" -->" >Create Manual Credit</a>
+    </div>
+</div>
 
+<!-- The table with the account items -->
 <h1>Account for <!-- TMPL_VAR NAME="firstname" --> <!-- TMPL_VAR NAME="surname" --></h1>
 
 <table>
@@ -34,13 +45,5 @@
   </tr>
   </tfoot>
 </table>
-<!-- The manual invoice and credit buttons -->
-<div id="action">
-    <a href="/cgi-bin/koha/members/moremember.pl?borrowernumber=<!-- TMPL_VAR NAME="borrowernumber" -->">Return to Patron Record</a>
-    <div class="edit">
-        <a href="/cgi-bin/koha/members/maninvoice.pl?borrowernumber=<!-- TMPL_VAR NAME="borrowernumber" -->" >Create Manual Invoice</a>
-        <a href="/cgi-bin/koha/members/mancredit.pl?borrowernumber=<!-- TMPL_VAR NAME="borrowernumber" -->" >Create Manual Credit</a>
-    </div>
-</div>
 
 <!-- TMPL_INCLUDE NAME="intranet-bottom.inc" -->

members/boraccount.pl

@@ -50,7 +50,7 @@ my $borrowernumber=$input->param('borrowernumber');
 my $data=GetMember($borrowernumber,'borrowernumber');
 
 #get account details
-my ($numaccts,$accts,$total)=GetMemberAccountRecords($borrowernumber);
+my ($total,$accts,$numaccts)=GetMemberAccountRecords($borrowernumber);
 my $totalcredit;
 if($total <= 0){
 	$totalcredit = 1;

members/maninvoice.pl

@@ -35,7 +35,6 @@ my $borrowernumber=$input->param('borrowernumber');
 # get borrower details
 my $data=GetMember($borrowernumber,'borrowernumber');
 my $add=$input->param('add');
-
 if ($add){
 #  print $input->header;
     my $itemnum=$input->param('itemnum');
@@ -63,6 +62,7 @@ if ($add){
 	}
 	else {
 		print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
+		exit;
 	}
 } else {
 	my ($template, $loggedinuser, $cookie)