From 60d8961142e146fc12a209727c7c77774303f07a Mon Sep 17 00:00:00 2001
From: Janusz Dobrowolski <janusz@frontaccounting.eu>
Date: Fri, 14 Mar 2008 20:28:11 +0000
Subject: [PATCH] Added formating functions for price/percent/exrate/qty fields
 in user native format.

---
 includes/current_user.inc | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/includes/current_user.inc b/includes/current_user.inc
index a86d00d3..a913bf5e 100644
--- a/includes/current_user.inc
+++ b/includes/current_user.inc
@@ -113,6 +113,45 @@ function number_format2($number, $decimals=0)
 	return number_format($number, $decimals, $dsep,	$tsep);
 }
 
+function price_format($number) {
+    return number_format2($number, 
+	$_SESSION["wa_current_user"]->prefs->price_dec());
+}
+
+function qty_format($number) {
+    return number_format2($number, 
+	$_SESSION["wa_current_user"]->prefs->qty_dec());
+}
+
+function exrate_format($number) {
+    return number_format2($number, 
+	$_SESSION["wa_current_user"]->prefs->exrate_dec());
+}
+
+function percent_format($number) {
+    return number_format2($number, 
+	$_SESSION["wa_current_user"]->prefs->percent_dec());
+}
+
+function user_numeric($input) {
+    global $decseps, $thoseps;
+
+    $num = trim($input);
+    $sep = $thoseps[user_tho_sep()];
+    if($sep!='') $num = str_replace( $sep, '', $num);
+	str_replace($sep, '', $num);
+    $sep = $decseps[user_dec_sep()];
+    if($sep!='.') $num = str_replace( $sep, '.', $num);
+    
+    if (!is_numeric($num))
+	  return false;
+    $num = (float)$num;
+    if ($num == (int)$num)
+	  return (int)$num;
+    else
+	  return $num;
+}
+
 function user_company() 
 {
 	return $_SESSION["wa_current_user"]->company;
-- 
2.30.2