|
Lines 2776-2791
sub AddIssuingCharge {
Link Here
|
| 2776 |
my $dbh = C4::Context->dbh; |
2776 |
my $dbh = C4::Context->dbh; |
| 2777 |
my $nextaccntno = getnextacctno( $borrowernumber ); |
2777 |
my $nextaccntno = getnextacctno( $borrowernumber ); |
| 2778 |
my $manager_id = 0; |
2778 |
my $manager_id = 0; |
|
|
2779 |
my $item = GetBiblioFromItemNumber($itemnumber); |
| 2779 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
2780 |
$manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; |
| 2780 |
my $query =" |
2781 |
my $query =" |
| 2781 |
INSERT INTO accountlines |
2782 |
INSERT INTO accountlines |
| 2782 |
(borrowernumber, itemnumber, accountno, |
2783 |
(borrowernumber, itemnumber, accountno, |
| 2783 |
date, amount, description, accounttype, |
2784 |
date, amount, description, accounttype, |
| 2784 |
amountoutstanding, manager_id) |
2785 |
amountoutstanding, manager_id) |
| 2785 |
VALUES (?, ?, ?,now(), ?, 'Rental', 'Rent',?,?) |
2786 |
VALUES (?, ?, ?,now(), ?, ?, 'Rent',?,?) |
| 2786 |
"; |
2787 |
"; |
| 2787 |
my $sth = $dbh->prepare($query); |
2788 |
my $sth = $dbh->prepare($query); |
| 2788 |
$sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, $charge, $manager_id ); |
2789 |
$sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, "$item->{'title'} $item->{'barcode'}", $charge, $manager_id ); |
| 2789 |
} |
2790 |
} |
| 2790 |
|
2791 |
|
| 2791 |
=head2 GetTransfers |
2792 |
=head2 GetTransfers |
| 2792 |
- |
|
|