SF.net SVN: ledger-smb: [1097] branches/1.2

[..hidden..]

Revision: 1097
          http://svn.sourceforge.net/ledger-smb/?rev=1097&view=rev
Author:   einhverfr
Date:     2007-04-24 14:36:14 -0700 (Tue, 24 Apr 2007)

Log Message:
-----------
Updating version strings following release of 1.2.4.  Also adding fix for partsgroup handling.

Modified Paths:
--------------
    branches/1.2/Changelog
    branches/1.2/LedgerSMB/Form.pm
    branches/1.2/LedgerSMB/IS.pm
    branches/1.2/VERSION
    branches/1.2/dists/rpm/ledgersmb.spec
    branches/1.2/dists/source/build.sh
    branches/1.2/sql/Spain-ISO-chart.sql

Modified: branches/1.2/Changelog
===================================================================
--- branches/1.2/Changelog	2007-04-23 03:59:08 UTC (rev 1096)
+++ branches/1.2/Changelog	2007-04-24 21:36:14 UTC (rev 1097)
@@ -1,3 +1,6 @@
+Changelog for 1.2.5
+* Partsgroup handling corrected on POS and Sales invoice screens (Chris T)
+
 Changelog for 1.2.4
 * Fixed internal functions avgcost() and lastcost() to not use float (Joshua D)
 * Fixed error posting vendor invoice with fraction costs.  (Chris M)

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-04-23 03:59:08 UTC (rev 1096)
+++ branches/1.2/LedgerSMB/Form.pm	2007-04-24 21:36:14 UTC (rev 1097)
@@ -80,7 +80,7 @@
     #menubar will be deprecated, replaced with below
     $self->{lynx} = 1 if $self->{path} =~ /lynx/i;
 
-    $self->{version}   = "1.2.4";
+    $self->{version}   = "1.2.5";
     $self->{dbversion} = "1.2.0";
 
     bless $self, $type;
@@ -515,7 +515,7 @@
 
     my ( $self, $myconfig, $amount ) = @_;
 
-    if ( ( $amount eq '' ) or ( $amount eq undef ) ) {
+    if ( ( $amount eq '' ) or ( ! defined $amount ) ) {
         $amount = 0;
     }
 
@@ -548,7 +548,14 @@
         $amount = $1 * -1;
     }
     $amount =~ s/\s?CR//;
+
+    $amount =~ /(\d*)\.(\d*)/;
+
+    my $decimalplaces = length $1 + length $2;
+
     $amount = new Math::BigFloat($amount);
+    $amount->accuracy($decimalplaces);
+
     return ( $amount * 1 );
 }
 

Modified: branches/1.2/LedgerSMB/IS.pm
===================================================================
--- branches/1.2/LedgerSMB/IS.pm	2007-04-23 03:59:08 UTC (rev 1096)
+++ branches/1.2/LedgerSMB/IS.pm	2007-04-24 21:36:14 UTC (rev 1097)
@@ -1875,8 +1875,7 @@
 
     if ( $form->{"partsgroup_$i"} ne "" ) {
         ( $null, $var ) = split /--/, $form->{"partsgroup_$i"};
-        $var = $dbh->quote($var);
-        if ( $var == 0 ) {
+        if ( ! $var ) {
 
             # search by partsgroup, this is for the POS
             $where .=
@@ -1884,6 +1883,7 @@
               . $dbh->quote( $form->{"partsgroup_$i"} );
         }
         else {
+            $var = $dbh->quote($var);
             $where .= qq| AND p.partsgroup_id = $var|;
         }
     }

Modified: branches/1.2/VERSION
===================================================================
--- branches/1.2/VERSION	2007-04-23 03:59:08 UTC (rev 1096)
+++ branches/1.2/VERSION	2007-04-24 21:36:14 UTC (rev 1097)
@@ -1 +1 @@
-1.2.4 
+1.2.5 

Modified: branches/1.2/dists/rpm/ledgersmb.spec
===================================================================
--- branches/1.2/dists/rpm/ledgersmb.spec	2007-04-23 03:59:08 UTC (rev 1096)
+++ branches/1.2/dists/rpm/ledgersmb.spec	2007-04-24 21:36:14 UTC (rev 1097)
@@ -1,7 +1,7 @@
 # RPM spec written for and tested on Fedora Core 6
 Summary: LedgerSMB - Open Source accounting software
 Name: ledgersmb
-Version: 1.2.4
+Version: 1.2.5
 Release: 1
 License: GPL
 URL: http://www.ledgersmb.org/

Modified: branches/1.2/dists/source/build.sh
===================================================================
--- branches/1.2/dists/source/build.sh	2007-04-23 03:59:08 UTC (rev 1096)
+++ branches/1.2/dists/source/build.sh	2007-04-24 21:36:14 UTC (rev 1097)
@@ -9,8 +9,8 @@
    pgdoc="true";
 fi
 
-version="1.2.4";
-rpmversion="1.2.4";
+version="1.2.5";
+rpmversion="1.2.5";
 build_d="../release";
 
 if test -d blib; then

Modified: branches/1.2/sql/Spain-ISO-chart.sql
===================================================================
--- branches/1.2/sql/Spain-ISO-chart.sql	2007-04-23 03:59:08 UTC (rev 1096)
+++ branches/1.2/sql/Spain-ISO-chart.sql	2007-04-24 21:36:14 UTC (rev 1097)
@@ -113,19 +113,10 @@
 INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '472000002'), 0.07);
 INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '472000003'), 0.16);
 -- Recargo equivalente: 0.5, 1 or 4%
-INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '472000004'), 0.005);
-INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '472000005'), 0.01);
-INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '472000006'), 0.04);
---
--- IVA repercutido
 INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '477000000'), 0.0);
 INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '477000001'), 0.04);
 INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '477000002'), 0.07);
 INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '477000003'), 0.16);
--- Recargo equivalente: 0.5, 1 or 4%
-INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '477000004'), 0.005);
-INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '477000005'), 0.01);
-INSERT INTO "tax" ("chart_id", "rate") VALUES ((SELECT id FROM chart WHERE accno = '477000006'), 0.04);
 --
 -- update defaults
 --


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.