summaryrefslogtreecommitdiff
path: root/LedgerSMB/Form.pm
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-02-16 21:51:20 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2008-02-16 21:51:20 +0000
commite8a5e1c576b1cd2b7a9d4a1585ad8933b6570033 (patch)
treec0a19dbc0280d6c511ded23ae1967e01074b4954 /LedgerSMB/Form.pm
parent0c8557918a88d43d649c3ee4c308dfc738765fd6 (diff)
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
Diffstat (limited to 'LedgerSMB/Form.pm')
-rwxr-xr-xLedgerSMB/Form.pm5
1 files changed, 2 insertions, 3 deletions
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]";