View | Details | Raw Unified | Return to bug 6427
Collapse All | Expand All

(-)a/circ/branchoverdues.pl (-2 / +1 lines)
Lines 49-57 use Data::Dumper; Link Here
49
 	level 3 : only methode is possible  : - Considered Lost
49
 	level 3 : only methode is possible  : - Considered Lost
50
50
51
 	the documents displayed on this interface, are checked on three points
51
 	the documents displayed on this interface, are checked on three points
52
 	- 1) the document must be on accountlines (Type 'FU')
52
    - 1) the document must be overdue with fines
53
 	- 2) item issues is not returned
53
 	- 2) item issues is not returned
54
	- 3) this item as not been already notify
55
54
56
  FIXME: who is the author?
55
  FIXME: who is the author?
57
  FIXME: No privisions (i.e. "actions") for handling notices are implemented.
56
  FIXME: No privisions (i.e. "actions") for handling notices are implemented.
(-)a/circ/circulation.pl (-3 / +1 lines)
Lines 654-661 foreach my $flag ( sort keys %$flags ) { Link Here
654
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0;
654
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0;
655
$amountold =~ s/^.*\$//;    # remove upto the $, if any
655
$amountold =~ s/^.*\$//;    # remove upto the $, if any
656
656
657
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );
658
659
if ( $borrower->{'category_type'} eq 'C') {
657
if ( $borrower->{'category_type'} eq 'C') {
660
    my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
658
    my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
661
    my $cnt = scalar(@$catcodes);
659
    my $cnt = scalar(@$catcodes);
Lines 726-732 $template->param( Link Here
726
    message           => $message,
724
    message           => $message,
727
    CGIselectborrower => $CGIselectborrower,
725
    CGIselectborrower => $CGIselectborrower,
728
    totalprice        => sprintf('%.2f', $totalprice),
726
    totalprice        => sprintf('%.2f', $totalprice),
729
    totaldue          => sprintf('%.2f', $total),
727
    totaldue          => sprintf('%.2f', $borrower->{account_balance}),
730
    todayissues       => \@todaysissues,
728
    todayissues       => \@todaysissues,
731
    previssues        => \@previousissues,
729
    previssues        => \@previousissues,
732
    relissues			=> \@relissues,
730
    relissues			=> \@relissues,
(-)a/members/moremember.pl (-4 / +2 lines)
Lines 226-232 else { Link Here
226
my $branchdetail = GetBranchDetail( $data->{'branchcode'});
226
my $branchdetail = GetBranchDetail( $data->{'branchcode'});
227
@{$data}{keys %$branchdetail} = values %$branchdetail; # merge in all branch columns
227
@{$data}{keys %$branchdetail} = values %$branchdetail; # merge in all branch columns
228
228
229
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );
230
my $lib1 = &GetSortDetails( "Bsort1", $data->{'sort1'} );
229
my $lib1 = &GetSortDetails( "Bsort1", $data->{'sort1'} );
231
my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} );
230
my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} );
232
$template->param( lib1 => $lib1 ) if ($lib1);
231
$template->param( lib1 => $lib1 ) if ($lib1);
Lines 420-427 $template->param( Link Here
420
    branch          => $branch,
419
    branch          => $branch,
421
    todaysdate      => C4::Dates->today(),
420
    todaysdate      => C4::Dates->today(),
422
    totalprice      => sprintf("%.2f", $totalprice),
421
    totalprice      => sprintf("%.2f", $totalprice),
423
    totaldue        => sprintf("%.2f", $total),
422
    totaldue        => sprintf("%.2f", $data->{account_balance}),
424
    totaldue_raw    => $total,
423
    totaldue_raw    => $data->{account_balance},
425
    issueloop       => @issuedata,
424
    issueloop       => @issuedata,
426
    relissueloop    => @relissuedata,
425
    relissueloop    => @relissuedata,
427
    overdues_exist  => $overdues_exist,
426
    overdues_exist  => $overdues_exist,
428
- 

Return to bug 6427