From a18fbe8ae4981054cb909f622122602eb01a9c97 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 11 Dec 2013 11:06:20 -0500 Subject: [PATCH] Bug 6427 [Part 8] - Update existing intranet scripts --- circ/branchoverdues.pl | 3 +-- circ/circulation.pl | 4 +--- members/moremember.pl | 5 ++--- 3 files changed, 4 insertions(+), 8 deletions(-) diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl index c81547e..41e73c9 100755 --- a/circ/branchoverdues.pl +++ b/circ/branchoverdues.pl @@ -49,9 +49,8 @@ use Data::Dumper; level 3 : only methode is possible : - Considered Lost the documents displayed on this interface, are checked on three points - - 1) the document must be on accountlines (Type 'FU') + - 1) the document must be overdue with fines - 2) item issues is not returned - - 3) this item as not been already notify FIXME: who is the author? FIXME: No privisions (i.e. "actions") for handling notices are implemented. diff --git a/circ/circulation.pl b/circ/circulation.pl index 8af776f..734e886 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -649,8 +649,6 @@ foreach my $flag ( sort keys %$flags ) { my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0; $amountold =~ s/^.*\$//; # remove upto the $, if any -my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); - if ( $borrower->{'category_type'} eq 'C') { my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' ); my $cnt = scalar(@$catcodes); @@ -740,7 +738,7 @@ $template->param( message => $message, CGIselectborrower => $CGIselectborrower, totalprice => sprintf('%.2f', $totalprice), - totaldue => sprintf('%.2f', $total), + totaldue => sprintf('%.2f', $borrower->{account_balance}), todayissues => \@todaysissues, previssues => \@previousissues, relissues => \@relissues, diff --git a/members/moremember.pl b/members/moremember.pl index e794efa..af2fb82 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -226,7 +226,6 @@ else { my $branchdetail = GetBranchDetail( $data->{'branchcode'}); @{$data}{keys %$branchdetail} = values %$branchdetail; # merge in all branch columns -my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber ); my $lib1 = &GetSortDetails( "Bsort1", $data->{'sort1'} ); my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} ); $template->param( lib1 => $lib1 ) if ($lib1); @@ -420,8 +419,8 @@ $template->param( branch => $branch, todaysdate => C4::Dates->today(), totalprice => sprintf("%.2f", $totalprice), - totaldue => sprintf("%.2f", $total), - totaldue_raw => $total, + totaldue => sprintf("%.2f", $data->{account_balance}), + totaldue_raw => $data->{account_balance}, issueloop => @issuedata, relissueloop => @relissuedata, overdues_exist => $overdues_exist, -- 1.7.2.5