|
Lines 85-121
sub getnextacctno {
Link Here
|
| 85 |
return ($sth->fetchrow || 1); |
85 |
return ($sth->fetchrow || 1); |
| 86 |
} |
86 |
} |
| 87 |
|
87 |
|
| 88 |
=head2 fixaccounts (removed) |
|
|
| 89 |
|
| 90 |
&fixaccounts($accountlines_id, $borrowernumber, $accountnumber, $amount); |
| 91 |
|
| 92 |
#' |
| 93 |
# FIXME - I don't understand what this function does. |
| 94 |
sub fixaccounts { |
| 95 |
my ( $accountlines_id, $borrowernumber, $accountno, $amount ) = @_; |
| 96 |
my $dbh = C4::Context->dbh; |
| 97 |
my $sth = $dbh->prepare( |
| 98 |
"SELECT * FROM accountlines WHERE accountlines_id=?" |
| 99 |
); |
| 100 |
$sth->execute( $accountlines_id ); |
| 101 |
my $data = $sth->fetchrow_hashref; |
| 102 |
|
| 103 |
# FIXME - Error-checking |
| 104 |
my $diff = $amount - $data->{'amount'}; |
| 105 |
my $outstanding = $data->{'amountoutstanding'} + $diff; |
| 106 |
$sth->finish; |
| 107 |
|
| 108 |
$dbh->do(<<EOT); |
| 109 |
UPDATE accountlines |
| 110 |
SET amount = '$amount', |
| 111 |
amountoutstanding = '$outstanding' |
| 112 |
WHERE accountlines_id = $accountlines_id |
| 113 |
EOT |
| 114 |
# FIXME: exceedingly bad form. Use prepare with placholders ("?") in query and execute args. |
| 115 |
} |
| 116 |
|
| 117 |
=cut |
| 118 |
|
| 119 |
=head2 chargelostitem |
88 |
=head2 chargelostitem |
| 120 |
|
89 |
|
| 121 |
In a default install of Koha the following lost values are set |
90 |
In a default install of Koha the following lost values are set |
| 122 |
- |
|
|