Revert "Form: round_amount precision support"
authorSven Schöling <s.schoeling@linet-services.de>
Mon, 4 Apr 2016 11:38:54 +0000 (13:38 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Mon, 4 Apr 2016 11:38:54 +0000 (13:38 +0200)
Originalcommit: 73a78da630ce363f70062447dd82a8a0ece8cd89

SL/DB/MetaSetup/Default.pm
SL/Form.pm
sql/Pg-upgrade2/defaults_add_precision.sql [deleted file]

index 96c4b0f..4f0fcf0 100644 (file)
@@ -78,7 +78,6 @@ __PACKAGE__->meta->columns(
   payments_changeable                       => { type => 'integer', default => '0', not_null => 1 },
   pdonumber                                 => { type => 'text' },
   ponumber                                  => { type => 'text' },
-  precision                                 => { type => 'numeric', default => '0.01', not_null => 1, precision => 15, scale => 5 },
   profit_determination                      => { type => 'text' },
   project_status_id                         => { type => 'integer' },
   project_type_id                           => { type => 'integer' },
index 98bb4db..9dbe7a7 100644 (file)
@@ -948,17 +948,12 @@ sub parse_amount {
 }
 
 sub round_amount {
-  my ($self, $amount, $places, $adjust) = @_;
+  my ($self, $amount, $places) = @_;
 
   return 0 if !defined $amount;
 
   $places //= 0;
 
-  if ($adjust) {
-    my $precision = $::instance_conf->get_precision || 0.01;
-    return $self->round_amount( $self->round_amount($amount / $precision, 0) * $precision, $places);
-  }
-
   # We use Perl's knowledge of string representation for
   # rounding. First, convert the floating point number to a string
   # with a high number of places. Then split the string on the decimal
diff --git a/sql/Pg-upgrade2/defaults_add_precision.sql b/sql/Pg-upgrade2/defaults_add_precision.sql
deleted file mode 100644 (file)
index 88f854c..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
--- @tag: defaults_add_precision
--- @description: adds new column 'precision' in table defaults, used to round amounts
--- @depends: release_3_0_0
-ALTER TABLE defaults ADD COLUMN precision NUMERIC(15,5) NOT NULL DEFAULT(0.01);
-