View | Details | Raw Unified | Return to bug 21756
Collapse All | Expand All

(-)a/members/maninvoice.pl (-6 / +5 lines)
Lines 80-88 if ($add){ Link Here
80
        my $amount=$input->param('amount');
80
        my $amount=$input->param('amount');
81
        my $type=$input->param('type');
81
        my $type=$input->param('type');
82
        my $note    = $input->param('note');
82
        my $note    = $input->param('note');
83
        my $account = $patron->account;
83
        try {
84
        try {
84
            my $account = $patron->account;
85
            $account->add_debit(
85
            my $invoice = $account->add_debit(
86
                {
86
                {
87
                    amount      => $amount,
87
                    amount      => $amount,
88
                    item_id     => $itemnum,
88
                    item_id     => $itemnum,
Lines 93-109 if ($add){ Link Here
93
            );
93
            );
94
94
95
            if ( C4::Context->preference('AccountAutoReconcile') ) {
95
            if ( C4::Context->preference('AccountAutoReconcile') ) {
96
                $patron->account->reconcile_balance;
96
                $account->reconcile_balance;
97
            }
97
            }
98
        }
98
        }
99
        catch {
99
        catch {
100
            if ( $_->isa('Koha::Exceptions::Object::FKConstraint') $error =~ /FOREIGN KEY/ && $error =~ /itemnumber/ ) {
100
            if ( $_->isa('Koha::Exceptions::Object::FKConstraint') && $_->error =~ /FOREIGN KEY/ && $_->error =~ /itemnumber/ ) {
101
                $template->param( 'ITEMNUMBER' => 1 ) if ($_->broken_fk eq 'itemnumber');
101
                $template->param( 'ITEMNUMBER' => 1 ) if ($_->broken_fk eq 'itemnumber');
102
                $template->param( 'ERROR' => $_->message );
102
                $template->param( 'ERROR' => $_->message );
103
            }
103
            }
104
            $template->param( csrf_token => Koha::Token->new->generate_csrf({ session_id => scalar $input->cookie('CGISESSID') }) );
104
            $template->param( csrf_token => Koha::Token->new->generate_csrf({ session_id => scalar $input->cookie('CGISESSID') }) );
105
            output_html_with_http_headers $input, $cookie, $template->output;
105
            output_html_with_http_headers $input, $cookie, $template->output;
106
        };
106
        }
107
107
108
        print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
108
        print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber");
109
        exit;
109
        exit;
110
- 

Return to bug 21756