|
Lines 264-269
sub pay {
Link Here
|
| 264 |
return $payment->id; |
264 |
return $payment->id; |
| 265 |
} |
265 |
} |
| 266 |
|
266 |
|
|
|
267 |
=head3 add_credit |
| 268 |
|
| 269 |
This method allows adding credits to a patron's account |
| 270 |
|
| 271 |
my $credit_line = Koha::Account->new({ patron_id => $patron_id })->add_credit( |
| 272 |
{ |
| 273 |
amount => $amount, |
| 274 |
description => $description, |
| 275 |
note => $note, |
| 276 |
user_id => $user_id, |
| 277 |
library_id => $library_id, |
| 278 |
sip => $sip, |
| 279 |
payment_type => $payment_type, |
| 280 |
type => $credit_type, |
| 281 |
item_id => $item_id |
| 282 |
} |
| 283 |
); |
| 284 |
|
| 285 |
$credit_type can be any of 'credit', 'payment', 'forgiven' or 'writeoff' |
| 286 |
|
| 287 |
=cut |
| 288 |
|
| 289 |
sub add_credit { |
| 290 |
|
| 291 |
my ( $self, $params ) = @_; |
| 292 |
|
| 293 |
# amount is passed as a positive value, but we store credit as negative values |
| 294 |
my $amount = $params->{amount} * -1; |
| 295 |
my $description = $params->{description} // q{}; |
| 296 |
my $note = $params->{note} // q{}; |
| 297 |
my $user_id = $params->{user_id}; |
| 298 |
my $library_id = $params->{library_id}; |
| 299 |
my $sip = $params->{sip}; |
| 300 |
my $payment_type = $params->{payment_type}; |
| 301 |
my $type = $params->{type} || 'payment'; |
| 302 |
my $item_id = $params->{item_id}; |
| 303 |
|
| 304 |
my $schema = Koha::Database->new->schema; |
| 305 |
|
| 306 |
my $account_type = $Koha::Account::account_type->{$type}; |
| 307 |
$account_type .= $sip |
| 308 |
if defined $sip && |
| 309 |
$type eq 'payment'; |
| 310 |
|
| 311 |
my $line; |
| 312 |
|
| 313 |
$schema->txn_do( |
| 314 |
sub { |
| 315 |
# We should remove accountno, it is no longer needed |
| 316 |
my $last = Koha::Account::Lines->search( { borrowernumber => $self->{patron_id} }, |
| 317 |
{ order_by => 'accountno' } )->next(); |
| 318 |
my $accountno = $last ? $last->accountno + 1 : 1; |
| 319 |
|
| 320 |
# Insert the account line |
| 321 |
$line = Koha::Account::Line->new( |
| 322 |
{ borrowernumber => $self->{patron_id}, |
| 323 |
date => \'NOW()', |
| 324 |
amount => $amount, |
| 325 |
description => $description, |
| 326 |
accounttype => $account_type, |
| 327 |
amountoutstanding => $amount, |
| 328 |
payment_type => $payment_type, |
| 329 |
note => $note, |
| 330 |
manager_id => $user_id, |
| 331 |
itemnumber => $item_id |
| 332 |
} |
| 333 |
)->store(); |
| 334 |
|
| 335 |
# Record the account offset |
| 336 |
my $account_offset = Koha::Account::Offset->new( |
| 337 |
{ credit_id => $line->id, |
| 338 |
type => $Koha::Account::offset_type->{$type}, |
| 339 |
amount => $amount |
| 340 |
} |
| 341 |
)->store(); |
| 342 |
|
| 343 |
UpdateStats( |
| 344 |
{ branch => $library_id, |
| 345 |
type => $type, |
| 346 |
amount => $amount, |
| 347 |
borrowernumber => $self->{patron_id}, |
| 348 |
accountno => $accountno, |
| 349 |
} |
| 350 |
); |
| 351 |
|
| 352 |
if ( C4::Context->preference("FinesLog") ) { |
| 353 |
logaction( |
| 354 |
"FINES", 'CREATE', |
| 355 |
$self->{patron_id}, |
| 356 |
Dumper( |
| 357 |
{ action => "create_$type", |
| 358 |
borrowernumber => $self->{patron_id}, |
| 359 |
accountno => $accountno, |
| 360 |
amount => $amount, |
| 361 |
description => $description, |
| 362 |
amountoutstanding => $amount, |
| 363 |
accounttype => $account_type, |
| 364 |
note => $note, |
| 365 |
itemnumber => $item_id, |
| 366 |
manager_id => $user_id, |
| 367 |
} |
| 368 |
) |
| 369 |
); |
| 370 |
} |
| 371 |
} |
| 372 |
); |
| 373 |
|
| 374 |
return $line; |
| 375 |
} |
| 376 |
|
| 267 |
=head3 balance |
377 |
=head3 balance |
| 268 |
|
378 |
|
| 269 |
my $balance = $self->balance |
379 |
my $balance = $self->balance |
|
Lines 363-368
sub non_issues_charges {
Link Here
|
| 363 |
|
473 |
|
| 364 |
1; |
474 |
1; |
| 365 |
|
475 |
|
|
|
476 |
=head2 Name mappings |
| 477 |
|
| 478 |
=head3 $offset_type |
| 479 |
|
| 480 |
=cut |
| 481 |
|
| 482 |
our $offset_type = { |
| 483 |
'credit' => 'Payment', |
| 484 |
'forgiven' => 'Writeoff', |
| 485 |
'payment' => 'Payment', |
| 486 |
'writeoff' => 'Writeoff' |
| 487 |
}; |
| 488 |
|
| 489 |
=head3 $account_type |
| 490 |
|
| 491 |
=cut |
| 492 |
|
| 493 |
our $account_type = { |
| 494 |
'credit' => 'C', |
| 495 |
'forgiven' => 'FOR', |
| 496 |
'payment' => 'Pay', |
| 497 |
'writeoff' => 'W' |
| 498 |
}; |
| 499 |
|
| 366 |
=head1 AUTHOR |
500 |
=head1 AUTHOR |
| 367 |
|
501 |
|
| 368 |
Kyle M Hall <kyle.m.hall@gmail.com> |
502 |
Kyle M Hall <kyle.m.hall@gmail.com> |
| 369 |
- |
|
|