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 |
- |
|
|