@@ -, +, @@
payments/fines
---
.../prog/en/includes/decimal-input-js.inc | 24 +++++++++++++++++++
.../prog/en/modules/members/mancredit.tt | 14 ++++++++++-
.../prog/en/modules/members/maninvoice.tt | 13 +++++++++-
members/maninvoice.pl | 5 ++--
4 files changed, 52 insertions(+), 4 deletions(-)
create mode 100644 koha-tmpl/intranet-tmpl/prog/en/includes/decimal-input-js.inc
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/decimal-input-js.inc
+++ a/koha-tmpl/intranet-tmpl/prog/en/includes/decimal-input-js.inc
@@ -0,0 +1,24 @@
+[% USE Koha %]
+
+
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/mancredit.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/mancredit.tt
@@ -44,7 +44,8 @@
- Example: 5.00
+ Example: 5[% IF Koha.Preference("CurrencyFormat") == 'FR' %],[% ELSE %].[% END %]12
+
@@ -63,10 +64,21 @@
[% MACRO jsinclude BLOCK %]
[% INCLUDE 'str/members-menu.inc' %]
[% Asset.js("js/members-menu.js") | $raw %]
+ [% INCLUDE 'decimal-input-js.inc' %]
[% END %]
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/maninvoice.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/maninvoice.tt
@@ -57,7 +57,7 @@
- Example: 5.00
+ Example: 5[% IF Koha.Preference("CurrencyFormat") == 'FR' %],[% ELSE %].[% END %]12
@@ -76,6 +76,7 @@
[% MACRO jsinclude BLOCK %]
[% INCLUDE 'str/members-menu.inc' %]
[% Asset.js("js/members-menu.js") | $raw %]
+ [% INCLUDE 'decimal-input-js.inc' %]
[% END %]
--- a/members/maninvoice.pl
+++ a/members/maninvoice.pl
@@ -31,12 +31,12 @@ use C4::Members;
use C4::Accounts;
use C4::Items;
use C4::Members::Attributes qw(GetBorrowerAttributes);
-use Koha::Token;
+use Koha::Token;
use Koha::Items;
use Koha::Patrons;
-
use Koha::Patron::Categories;
+use Koha::Number::Price;
my $input=new CGI;
my $flagsrequired = { borrowers => 'edit_borrowers' };
@@ -67,6 +67,7 @@ if ($add){
}
my $desc=$input->param('desc');
my $amount=$input->param('amount');
+ $amount=Koha::Number::Price->new( $amount )->unformat();
my $type=$input->param('type');
my $note = $input->param('note');
my $error = manualinvoice( $borrowernumber, $itemnum, $desc, $type, $amount, $note );
--