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 649-656 foreach my $flag ( sort keys %$flags ) { Link Here
649
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0;
649
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0;
650
$amountold =~ s/^.*\$//;    # remove upto the $, if any
650
$amountold =~ s/^.*\$//;    # remove upto the $, if any
651
651
652
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );
653
654
if ( $borrower->{'category_type'} eq 'C') {
652
if ( $borrower->{'category_type'} eq 'C') {
655
    my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
653
    my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
656
    my $cnt = scalar(@$catcodes);
654
    my $cnt = scalar(@$catcodes);
Lines 740-746 $template->param( Link Here
740
    message           => $message,
738
    message           => $message,
741
    CGIselectborrower => $CGIselectborrower,
739
    CGIselectborrower => $CGIselectborrower,
742
    totalprice        => sprintf('%.2f', $totalprice),
740
    totalprice        => sprintf('%.2f', $totalprice),
743
    totaldue          => sprintf('%.2f', $total),
741
    totaldue          => sprintf('%.2f', $borrower->{account_balance}),
744
    todayissues       => \@todaysissues,
742
    todayissues       => \@todaysissues,
745
    previssues        => \@previousissues,
743
    previssues        => \@previousissues,
746
    relissues			=> \@relissues,
744
    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