Lines 1184-1189
sub GetBorNotifyAcctRecord {
Link Here
|
1184 |
$sth->execute( $borrowernumber, $notifyid ); |
1184 |
$sth->execute( $borrowernumber, $notifyid ); |
1185 |
my $total = 0; |
1185 |
my $total = 0; |
1186 |
while ( my $data = $sth->fetchrow_hashref ) { |
1186 |
while ( my $data = $sth->fetchrow_hashref ) { |
|
|
1187 |
if ( $data->{itemnumber} ) { |
1188 |
my $biblio = GetBiblioFromItemNumber( $data->{itemnumber} ); |
1189 |
$data->{biblionumber} = $biblio->{biblionumber}; |
1190 |
$data->{title} = $biblio->{title}; |
1191 |
} |
1187 |
$acctlines[$numlines] = $data; |
1192 |
$acctlines[$numlines] = $data; |
1188 |
$numlines++; |
1193 |
$numlines++; |
1189 |
$total += int(100 * $data->{'amountoutstanding'}); |
1194 |
$total += int(100 * $data->{'amountoutstanding'}); |
1190 |
- |
|
|