From e8a5e1c576b1cd2b7a9d4a1585ad8933b6570033 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 16 Feb 2008 21:51:20 +0000
Subject: Correcting all known casting issues relating to PostgreSQL 8.3

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@2071 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'LedgerSMB/Form.pm')

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 33eab435..ec4ad7ff 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -83,7 +83,7 @@ sub new {
     #menubar will be deprecated, replaced with below
     $self->{lynx} = 1 if $self->{path} =~ /lynx/i;
 
-    $self->{version}   = "1.2.12";
+    $self->{version}   = "1.2.10";
     $self->{dbversion} = "1.2.0";
 
     bless $self, $type;
@@ -2187,7 +2187,7 @@ sub all_years {
         '11' => 'November',
         '12' => 'December'
     );
-
+    @{$self->{all_years}} = @{$dbh->selectcol_arrayref($query)}; 
     $dbh->commit;
 }
 
@@ -3223,7 +3223,6 @@ sub audittrail {
                 my $key;
                 my $i;
                 my @flds = qw(tablename reference formname action transdate);
-
                 # put into hash and remove dups
                 while (@a) {
                     $key = "$a[2]$a[3]";
-- 
cgit v1.2.3