Attachment #141470 for bug #29987

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

Lines 73-79 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/mancredit.tt (-1 / +1 lines)
73	<li><label for="desc">Description: </label><input type="text" name="desc" size="50" id="desc" /></li>	73	<li><label for="desc">Description: </label><input type="text" name="desc" size="50" id="desc" /></li>
74	<li><label for="note">Note: </label><input type="text" name="note" size="50" id="note" /></li>	74	<li><label for="note">Note: </label><input type="text" name="note" size="50" id="note" /></li>
75	<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>	75	<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>
76	[% INCLUDE 'transaction_types.inc' %]	76	[% INCLUDE 'transaction_types.inc' type="credit" %]
77	[% IF Koha.Preference('UseCashRegisters') %]	77	[% IF Koha.Preference('UseCashRegisters') %]
78	<li>	78	<li>
79	[% IF Koha.Preference('RequireCashRegister') %]	79	[% 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');

    my $line = $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 86-96 if ($add) { Link Here

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