SF.net SVN: ledger-smb:[3231] trunk/LedgerSMB/Form.pm

[..hidden..]

Revision: 3231
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3231&view=rev
Author:   ehuelsmann
Date:     2011-06-13 08:04:57 +0000 (Mon, 13 Jun 2011)

Log Message:
-----------
Add retrieval of languages to Form::get_regular_metadata, as specified
by the docstring.

 * LedgerSMB/Form.pm
   (get_regular_metadata): Add a call to Form::all_languages().
   (all_vc): Remove now-redundant section which retrieves all languages.

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2011-06-13 03:02:49 UTC (rev 3230)
+++ trunk/LedgerSMB/Form.pm	2011-06-13 08:04:57 UTC (rev 3231)
@@ -1952,21 +1952,6 @@
           unless $self->{employee_id};
     }
 
-    # get language codes
-    $query = qq|SELECT *
-				  FROM language
-			  ORDER BY 2|;
-
-    $sth = $dbh->prepare($query);
-    $sth->execute || $self->dberror($query);
-
-    $self->{all_language} = ();
-
-    while ( $ref = $sth->fetchrow_hashref('NAME_lc') ) {
-        push @{ $self->{all_language} }, $ref;
-    }
-
-    $sth->finish;
     $self->get_regular_metadata($myconfig,$vc, $module, $dbh, $transdate, $job);
 }
 
@@ -2000,6 +1985,7 @@
     $self->all_departments( $myconfig, $dbh, $vc );
     $self->all_projects( $myconfig, $dbh, $transdate, $job );
     $self->all_taxaccounts( $myconfig, $dbh, $transdate );
+    $self->all_languages();
 }
 
 =item $form->all_accounts()


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