=cut
sub recordpayment_selectaccts {
- my ( $borrowernumber, $amount, $accts ) = @_;
+ my ( $borrowernumber, $amount, $accts, $note ) = @_;
my $dbh = C4::Context->dbh;
my $newamtos = 0;
# create new line
$sql = 'INSERT INTO accountlines ' .
- '(borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id) ' .
- q|VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?)|;
- $dbh->do($sql,{},$borrowernumber, $nextaccntno, 0 - $amount, 0 - $amountleft, $manager_id );
+ '(borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id,note) ' .
+ q|VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?,?)|;
+ $dbh->do($sql,{},$borrowernumber, $nextaccntno, 0 - $amount, 0 - $amountleft, $manager_id, $note );
UpdateStats( $branch, 'payment', $amount, '', '', '', $borrowernumber, $nextaccntno );
if ( C4::Context->preference("FinesLog") ) {
[% IF ( loop.odd ) %]<tr>[% ELSE %]<tr class="highlight">[% END %]
<td>[% account.date %]</td>
<td>[% account.description %] [% IF ( account.itemnumber ) %]<a href="/cgi-bin/koha/catalogue/moredetail.pl?biblionumber=[% account.biblionumber %]&itemnumber=[% account.itemnumber %]">View item</a> [% END %][% account.title |html %]</td>
- <td>[% account.note %]</td>
+ <td>[% account.note | html_line_break %]</td>
[% IF ( account.amountcredit ) %]<td class="credit">[% ELSE %]<td class="debit">[% END %][% account.amount %]</td>
[% IF ( account.amountoutstandingcredit ) %]<td class="credit">[% ELSE %]<td class="debit">[% END %][% account.amountoutstanding %]</td>
[% IF ( reverse_col ) %]
</thead>
<tfoot>
<tr>
- <td class="total" colspan="7">Total Due:</td>
+ <td class="total" colspan="8">Total Due:</td>
<td>[% total | format('%.2f') %]</td>
</tr>
</tfoot>
<input type="hidden" name="totals[% line.accountno %]" value="[% line.totals %]" />
</td>
<td>[% line.description %] ([% line.title |html_entity %])</td>
- <td><input type="text" name="payment_note_[% line.accountno %]"></input></td>
+ <td><input type="text" name="payment_note_[% line.accountno %]" /></td>
<td>[% line.accounttype %]</td>
<td>[% line.notify_id %]</td>
<td>[% line.notify_level %]</td>
[% IF ( account_grp.total ) %]
<tr>
- <td class="total" colspan="7">Sub total:</td>
+ <td class="total" colspan="8">Sub total:</td>
<td>[% account_grp.total | format('%.2f') %]</td>
</tr>
[% END %]
<!-- default to paying all -->
<input name="paid" id="paid" value="[% total | format('%.2f') %]" onchange="moneyFormat(document.payfine.paid)"/>
</li>
+ <li>
+ <label for="selected_accts_notes">Note: </label>
+ <textarea name="selected_accts_notes" id="selected_accts_notes">[% selected_accts_notes %]</textarea>
+ </li>
</ol>
</fieldset>
<div class="action"><input type="submit" name="submitbutton" value="Confirm" />
}
$amt = '&amt=' . $amt;
my $sel = '&selected=' . join ',', @lines_to_pay;
+ my $notes = '¬es=' . join("%0A", map { $input->param("payment_note_$_") } @lines_to_pay );
my $redirect =
"/cgi-bin/koha/members/paycollect.pl?borrowernumber=$borrowernumber"
. $amt
- . $sel;
+ . $sel
+ . $notes;
print $input->redirect($redirect);
return;
$total_due = $input->param('amt');
$template->param(
selected_accts => $select_lines,
- amt => $total_due
+ amt => $total_due,
+ selected_accts_notes => $input->param('notes'),
);
}
$select = $1; # ensure passing no junk
}
my @acc = split /,/, $select;
- recordpayment_selectaccts( $borrowernumber, $total_paid,
- \@acc );
+ my $note = $input->param('selected_accts_notes');
+ recordpayment_selectaccts( $borrowernumber, $total_paid, \@acc, $note );
} else {
recordpayment( $borrowernumber, $total_paid );
}