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 648-655 foreach my $flag ( sort keys %$flags ) { Link Here
648
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0;
648
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0;
649
$amountold =~ s/^.*\$//;    # remove upto the $, if any
649
$amountold =~ s/^.*\$//;    # remove upto the $, if any
650
650
651
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );
652
653
if ( $borrower->{'category_type'} eq 'C') {
651
if ( $borrower->{'category_type'} eq 'C') {
654
    my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
652
    my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
655
    my $cnt = scalar(@$catcodes);
653
    my $cnt = scalar(@$catcodes);
Lines 739-745 $template->param( Link Here
739
    message           => $message,
737
    message           => $message,
740
    CGIselectborrower => $CGIselectborrower,
738
    CGIselectborrower => $CGIselectborrower,
741
    totalprice        => sprintf('%.2f', $totalprice),
739
    totalprice        => sprintf('%.2f', $totalprice),
742
    totaldue          => sprintf('%.2f', $total),
740
    totaldue          => sprintf('%.2f', $borrower->{account_balance}),
743
    todayissues       => \@todaysissues,
741
    todayissues       => \@todaysissues,
744
    previssues        => \@previousissues,
742
    previssues        => \@previousissues,
745
    relissues			=> \@relissues,
743
    relissues			=> \@relissues,
(-)a/members/moremember.pl (-4 / +2 lines)
Lines 223-229 if ( C4::Context->preference("IndependentBranches") ) { Link Here
223
my $branchdetail = GetBranchDetail( $data->{'branchcode'});
223
my $branchdetail = GetBranchDetail( $data->{'branchcode'});
224
@{$data}{keys %$branchdetail} = values %$branchdetail; # merge in all branch columns
224
@{$data}{keys %$branchdetail} = values %$branchdetail; # merge in all branch columns
225
225
226
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );
227
my $lib1 = &GetSortDetails( "Bsort1", $data->{'sort1'} );
226
my $lib1 = &GetSortDetails( "Bsort1", $data->{'sort1'} );
228
my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} );
227
my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} );
229
$template->param( lib1 => $lib1 ) if ($lib1);
228
$template->param( lib1 => $lib1 ) if ($lib1);
Lines 414-421 $template->param( Link Here
414
    branch          => $branch,
413
    branch          => $branch,
415
    todaysdate      => C4::Dates->today(),
414
    todaysdate      => C4::Dates->today(),
416
    totalprice      => sprintf("%.2f", $totalprice),
415
    totalprice      => sprintf("%.2f", $totalprice),
417
    totaldue        => sprintf("%.2f", $total),
416
    totaldue        => sprintf("%.2f", $data->{account_balance}),
418
    totaldue_raw    => $total,
417
    totaldue_raw    => $data->{account_balance},
419
    issueloop       => @issuedata,
418
    issueloop       => @issuedata,
420
    relissueloop    => @relissuedata,
419
    relissueloop    => @relissuedata,
421
    overdues_exist  => $overdues_exist,
420
    overdues_exist  => $overdues_exist,
422
- 

Return to bug 6427