Adding warnings, fixing a bug that meant the title of an item that had a fine was never printed

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
This commit is contained in:
Chris Cormack 2009-05-02 09:39:25 +12:00 committed by Henri-Damien LAURENT
parent 6f7b4fc8a7
commit 752ce30ddb
3 changed files with 4 additions and 7 deletions

View File

@ -1169,6 +1169,7 @@ sub GetMemberAccountRecords {
while ( my $data = $sth->fetchrow_hashref ) {
my $biblio = GetBiblioFromItemNumber($data->{itemnumber}) if $data->{itemnumber};
$data->{biblionumber} = $biblio->{biblionumber};
$data->{title} = $biblio->{title};
$acctlines[$numlines] = $data;
$numlines++;
$total += int(100 * $data->{'amountoutstanding'}); # convert float to integer to avoid round-off errors

View File

@ -37,7 +37,7 @@
<!-- TMPL_IF NAME="odd" --><tr class="highlight"><!-- TMPL_ELSE --><tr><!-- /TMPL_IF -->
<td><!-- TMPL_VAR NAME="date" --></td>
<td><!-- TMPL_VAR NAME="description" -->
<!-- TMPL_IF NAME="print_title" --><!-- TMPL_VAR NAME="title" --><!-- /TMPL_IF --></td>
<!-- TMPL_IF NAME="title" --><!-- TMPL_VAR NAME="title" escape="html" --><!-- /TMPL_IF --></td>
<!-- TMPL_IF NAME="amountcredit" --><td class="credit"><!-- TMPL_ELSE --><td class="debit"><!-- /TMPL_IF -->$<!-- TMPL_VAR NAME="amount" --></td>
<!-- TMPL_IF NAME="amountoutstandingcredit" --><td class="credit"><!-- TMPL_ELSE --><td class="debit"><!-- /TMPL_IF -->$<!-- TMPL_VAR NAME="amountoutstanding" --></td>
</tr>
@ -59,4 +59,4 @@
</div>
</div>
</div>
<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->
<!-- TMPL_INCLUDE NAME="opac-bottom.inc" -->

View File

@ -25,6 +25,7 @@ use C4::Circulation;
use C4::Auth;
use C4::Output;
use C4::Dates qw/format_date/;
use warnings;
my $query = new CGI;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
@ -59,11 +60,6 @@ for ( my $i = 0 ; $i < $numaccts ; $i++ ) {
if ( $accts->[$i]{'amountoutstanding'} >= 0 ) {
$accts->[$i]{'amountoutstandingcredit'} = 1;
}
if ( $accts->[$i]{'accounttype'} ne 'F'
&& $accts->[$i]{'accounttype'} ne 'FU' )
{
$accts->[$i]{'print_title'}; # FIXME: Useless use of hash element in void context
}
}
# add the row parity