SF.net SVN: ledger-smb:[5887] branches/1.3/LedgerSMB/Form.pm

[..hidden..]

Revision: 5887
          http://sourceforge.net/p/ledger-smb/code/5887
Author:   tshvr
Date:     2013-05-30 19:33:32 +0000 (Thu, 30 May 2013)
Log Message:
-----------
init hash variables properly,they may have been set to string after reading post of continue-screen

Modified Paths:
--------------
    branches/1.3/LedgerSMB/Form.pm

Modified: branches/1.3/LedgerSMB/Form.pm
===================================================================
--- branches/1.3/LedgerSMB/Form.pm	2013-05-30 13:46:24 UTC (rev 5886)
+++ branches/1.3/LedgerSMB/Form.pm	2013-05-30 19:33:32 UTC (rev 5887)
@@ -2234,6 +2234,8 @@
     my $dbh       = $self->{dbh};
     my @whereargs = ();
 
+    $self->{all_employee}=();#tshvr4 init properly
+
     # setup employees/sales contacts
     my $query = qq|
 		SELECT id, name
@@ -2290,6 +2292,8 @@
 
     my $where = "1 = 1";
 
+    $self->{all_project}=();#tshvr4 init properly
+
     $where = qq|id NOT IN (SELECT id
 							 FROM parts
 							WHERE project_id > 0)| if !$job;
@@ -2350,6 +2354,8 @@
 
     my $where = "1 = 1";
 
+    $self->{all_department}=();#tshvr4 init properly 
+
     if ($vc) {
         if ( $vc eq 'customer' ) {
             $where = " role = 'P'";
@@ -2419,6 +2425,8 @@
 
     my ( $self, $myconfig ) = @_;
 
+    $self->{all_month}=();#tshvr4 init properly
+ 
     my $dbh = $self->{dbh};
     $self->{all_years} = [];
 
@@ -2512,6 +2520,8 @@
     my $ref;
     my $key;
 
+    $self->{"${module}_links"}=();#tshvr4 init properly
+
     # now get the account numbers
     $query = qq|SELECT accno, description, link
 				  FROM chart

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