use C4::Branch;
use C4::Accounts;
use C4::Items;
+use C4::Members::Attributes qw(GetBorrowerAttributes);
my $input=new CGI;
my $add=$input->param('add');
if ($add){
- 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");
+ }
} else {
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "members/mancredit.tmpl",
$template->param( adultborrower => 1 ) if ( $data->{category_type} eq 'A' );
my ($picture, $dberror) = GetPatronImage($data->{'cardnumber'});
$template->param( picture => 1 ) if $picture;
+
+if (C4::Context->preference('ExtendedPatronAttributes')) {
+ my $attributes = GetBorrowerAttributes($borrowernumber);
+ $template->param(
+ ExtendedPatronAttributes => 1,
+ extendedattributes => $attributes
+ );
+}
$template->param(
borrowernumber => $borrowernumber,
address => $data->{'address'},
address2 => $data->{'address2'},
city => $data->{'city'},
+ state => $data->{'state'},
zipcode => $data->{'zipcode'},
country => $data->{'country'},
phone => $data->{'phone'},