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 660-667 foreach my $flag ( sort keys %$flags ) { Link Here
660
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0;
660
my $amountold = $borrower->{flags}->{'CHARGES'}->{'message'} || 0;
661
$amountold =~ s/^.*\$//;    # remove upto the $, if any
661
$amountold =~ s/^.*\$//;    # remove upto the $, if any
662
662
663
my ( $total, $accts, $numaccts) = GetMemberAccountRecords( $borrowernumber );
664
665
if ( $borrowernumber && $borrower->{'category_type'} eq 'C') {
663
if ( $borrowernumber && $borrower->{'category_type'} eq 'C') {
666
    my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
664
    my  ( $catcodes, $labels ) =  GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
667
    my $cnt = scalar(@$catcodes);
665
    my $cnt = scalar(@$catcodes);
Lines 732-738 $template->param( Link Here
732
    message           => $message,
730
    message           => $message,
733
    CGIselectborrower => $CGIselectborrower,
731
    CGIselectborrower => $CGIselectborrower,
734
    totalprice        => sprintf('%.2f', $totalprice),
732
    totalprice        => sprintf('%.2f', $totalprice),
735
    totaldue          => sprintf('%.2f', $total),
733
    totaldue          => sprintf('%.2f', $borrower->{account_balance}),
736
    todayissues       => \@todaysissues,
734
    todayissues       => \@todaysissues,
737
    previssues        => \@previousissues,
735
    previssues        => \@previousissues,
738
    relissues			=> \@relissues,
736
    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 433-440 $template->param( Link Here
433
    branch          => $branch,
432
    branch          => $branch,
434
    todaysdate      => C4::Dates->today(),
433
    todaysdate      => C4::Dates->today(),
435
    totalprice      => sprintf("%.2f", $totalprice),
434
    totalprice      => sprintf("%.2f", $totalprice),
436
    totaldue        => sprintf("%.2f", $total),
435
    totaldue        => sprintf("%.2f", $data->{account_balance}),
437
    totaldue_raw    => $total,
436
    totaldue_raw    => $data->{account_balance},
438
    issueloop       => @issuedata,
437
    issueloop       => @issuedata,
439
    relissueloop    => @relissuedata,
438
    relissueloop    => @relissuedata,
440
    overdues_exist  => $overdues_exist,
439
    overdues_exist  => $overdues_exist,
441
- 

Return to bug 6427