- my $barcode=$input->param('barcode');
- my $itemnum = GetItemnumberFromBarcode($barcode) if $barcode;
- my $desc=$input->param('desc');
- my $amount=$input->param('amount') || 0;
- $amount = -$amount;
- my $type=$input->param('type');
- manualinvoice($borrowernumber,$itemnum,$desc,$type,$amount);
- print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
+ if(checkauth($input)) {
+ my $barcode = $input->param('barcode');
+ my $itemnum;
+ if ($barcode) {
+ $itemnum = GetItemnumberFromBarcode($barcode);
+ }
+ my $desc = $input->param('desc');
+ my $note = $input->param('note');
+ my $amount = $input->param('amount') || 0;
+ $amount = -$amount;
+ my $type = $input->param('type');
+ manualinvoice( $borrowernumber, $itemnum, $desc, $type, $amount, $note );
+ print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
+ }