Lines 2283-2298
sub AddRenewal {
Link Here
|
2283 |
if ( $charge > 0 ) { |
2283 |
if ( $charge > 0 ) { |
2284 |
my $accountno = getnextacctno( $borrowernumber ); |
2284 |
my $accountno = getnextacctno( $borrowernumber ); |
2285 |
my $item = GetBiblioFromItemNumber($itemnumber); |
2285 |
my $item = GetBiblioFromItemNumber($itemnumber); |
|
|
2286 |
my $manager_id = 0; |
2287 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
2286 |
$sth = $dbh->prepare( |
2288 |
$sth = $dbh->prepare( |
2287 |
"INSERT INTO accountlines |
2289 |
"INSERT INTO accountlines |
2288 |
(date, |
2290 |
(date, borrowernumber, accountno, amount, manager_id, |
2289 |
borrowernumber, accountno, amount, |
2291 |
description,accounttype, amountoutstanding, itemnumber) |
2290 |
description, |
2292 |
VALUES (now(),?,?,?,?,?,?,?,?)" |
2291 |
accounttype, amountoutstanding, itemnumber |
|
|
2292 |
) |
2293 |
VALUES (now(),?,?,?,?,?,?,?)" |
2294 |
); |
2293 |
); |
2295 |
$sth->execute( $borrowernumber, $accountno, $charge, |
2294 |
$sth->execute( $borrowernumber, $accountno, $charge, $manager_id, |
2296 |
"Renewal of Rental Item $item->{'title'} $item->{'barcode'}", |
2295 |
"Renewal of Rental Item $item->{'title'} $item->{'barcode'}", |
2297 |
'Rent', $charge, $itemnumber ); |
2296 |
'Rent', $charge, $itemnumber ); |
2298 |
$sth->finish; |
2297 |
$sth->finish; |
Lines 2445-2459
sub AddIssuingCharge {
Link Here
|
2445 |
my ( $itemnumber, $borrowernumber, $charge ) = @_; |
2444 |
my ( $itemnumber, $borrowernumber, $charge ) = @_; |
2446 |
my $dbh = C4::Context->dbh; |
2445 |
my $dbh = C4::Context->dbh; |
2447 |
my $nextaccntno = getnextacctno( $borrowernumber ); |
2446 |
my $nextaccntno = getnextacctno( $borrowernumber ); |
|
|
2447 |
my $manager_id = 0; |
2448 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
2448 |
my $query =" |
2449 |
my $query =" |
2449 |
INSERT INTO accountlines |
2450 |
INSERT INTO accountlines |
2450 |
(borrowernumber, itemnumber, accountno, |
2451 |
(borrowernumber, itemnumber, accountno, |
2451 |
date, amount, description, accounttype, |
2452 |
date, amount, description, accounttype, |
2452 |
amountoutstanding) |
2453 |
amountoutstanding, manager_id) |
2453 |
VALUES (?, ?, ?,now(), ?, 'Rental', 'Rent',?) |
2454 |
VALUES (?, ?, ?,now(), ?, 'Rental', 'Rent',?,?) |
2454 |
"; |
2455 |
"; |
2455 |
my $sth = $dbh->prepare($query); |
2456 |
my $sth = $dbh->prepare($query); |
2456 |
$sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, $charge ); |
2457 |
$sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, $charge, $manager_id ); |
2457 |
$sth->finish; |
2458 |
$sth->finish; |
2458 |
} |
2459 |
} |
2459 |
|
2460 |
|
2460 |
- |
|
|