Attachment #139704 for bug #29987

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

Lines 71-77 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/mancredit.tt (-1 / +1 lines)
71	<li><label for="desc">Description: </label><input type="text" name="desc" size="50" id="desc" /></li>	71	<li><label for="desc">Description: </label><input type="text" name="desc" size="50" id="desc" /></li>
72	<li><label for="note">Note: </label><input type="text" name="note" size="50" id="note" /></li>	72	<li><label for="note">Note: </label><input type="text" name="note" size="50" id="note" /></li>
73	<li><label for="amount">Amount: </label><input type="text" inputmode="decimal" pattern="^\d+(\.\d{2})?$" name="amount" id="amount" required="required" min="0" value=""/> Example: 5.00</li>	73	<li><label for="amount">Amount: </label><input type="text" inputmode="decimal" pattern="^\d+(\.\d{2})?$" name="amount" id="amount" required="required" min="0" value=""/> Example: 5.00</li>
74	[% INCLUDE 'transaction_types.inc' %]	74	[% INCLUDE 'transaction_types.inc' type="credit" %]
75	[% IF Koha.Preference('UseCashRegisters') %]	75	[% IF Koha.Preference('UseCashRegisters') %]
76	<li>	76	<li>
77	[% IF Koha.Preference('RequireCashRegister') %]	77	[% IF Koha.Preference('RequireCashRegister') %]




        my $item = Koha::Items->find( { barcode => $barcode } );
        $item_id = $item->itemnumber if $item;
    }
    my $description      = $input->param('desc');
    my $note             = $input->param('note');
    my $amount           = $input->param('amount') || 0;
    my $type             = $input->param('type');
    my $credit_type      = $input->param('credit_type');
    my $cash_register_id = $input->param('cash_register');

    $patron->account->add_credit(

            type          => $type,
            user_id       => $logged_in_user->id,
            interface     => C4::Context->interface,
            payment_type  => $credit_type,
            cash_register => $cash_register_id
        }
    );
- 

Return to bug 29987

Lines 85-95 if ($add) { Link Here

(-)a/members/mancredit.pl (-7 / +6 lines)
85	my $item = Koha::Items->find( { barcode => $barcode } );	85	my $item = Koha::Items->find( { barcode => $barcode } );
86	$item_id = $item->itemnumber if $item;	86	$item_id = $item->itemnumber if $item;
87	}	87	}
88	my $description = $input->param('desc');	88	my $description = $input->param('desc');
89	my $note = $input->param('note');	89	my $note = $input->param('note');
90	my $amount = $input->param('amount') \|\| 0;	90	my $amount = $input->param('amount') \|\| 0;
91	my $type = $input->param('type');	91	my $type = $input->param('type');
92	my $payment_type = $input->param('payment_type');	92	my $credit_type = $input->param('credit_type');
93	my $cash_register_id = $input->param('cash_register');	93	my $cash_register_id = $input->param('cash_register');
94		94
95	$patron->account->add_credit(	95	$patron->account->add_credit(
Lines 102-108 if ($add) { Link Here
102	type => $type,	102	type => $type,
103	user_id => $logged_in_user->id,	103	user_id => $logged_in_user->id,
104	interface => C4::Context->interface,	104	interface => C4::Context->interface,
105	payment_type => $payment_type,	105	payment_type => $credit_type,
106	cash_register => $cash_register_id	106	cash_register => $cash_register_id
107	}	107	}
108	);	108	);
109	-