SF.net SVN: ledger-smb:[2788] trunk

[..hidden..]

Revision: 2788
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2788&view=rev
Author:   einhverfr
Date:     2009-11-10 18:48:09 +0000 (Tue, 10 Nov 2009)

Log Message:
-----------
Minor GL bug fixes re: departments and projects
Additional necessary API added for retrieving entity credit accounts

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm
    trunk/bin/gl.pl
    trunk/scripts/vouchers.pl
    trunk/sql/modules/Company.sql

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2009-11-09 19:59:19 UTC (rev 2787)
+++ trunk/LedgerSMB/Form.pm	2009-11-10 18:48:09 UTC (rev 2788)
@@ -489,7 +489,6 @@
     my ( $stylesheet, $favicon, $charset );
 
     if ( $ENV{GATEWAY_INTERFACE} ) {
-
         if ( $self->{stylesheet} && ( -f "css/$self->{stylesheet}" ) ) {
             $stylesheet =
 qq|<link rel="stylesheet" href="css/$self->{stylesheet}" type="text/css" title="LedgerSMB stylesheet" />\n|;

Modified: trunk/bin/gl.pl
===================================================================
--- trunk/bin/gl.pl	2009-11-09 19:59:19 UTC (rev 2787)
+++ trunk/bin/gl.pl	2009-11-10 18:48:09 UTC (rev 2788)
@@ -165,7 +165,12 @@
    
     my ($init) = @_; 
     # Form header part begins -------------------------------------------
-
+    if (@{$form->{all_department}}){
+        unshift @{ $form->{all_department} }, {};
+    }
+    if (@{$form->{all_project}}){
+       unshift @{ $form->{all_project} }, {};
+    }
     $title = $form->{title};
     if ( $form->{transfer} ) {
         $form->{title} = $locale->text("$title Cash Transfer Transaction");
@@ -935,7 +940,6 @@
     # projects
     if ( @{ $form->{all_project} } ) {
        $form->{projectset}=1; 
-       unshift @{ $form->{all_project} }, {};
        for ( @{ $form->{all_project} } ) {
 	  $_->{projectstyle}=$_->{projectnumber}."--".$_->{id};
        }

Modified: trunk/scripts/vouchers.pl
===================================================================
--- trunk/scripts/vouchers.pl	2009-11-09 19:59:19 UTC (rev 2787)
+++ trunk/scripts/vouchers.pl	2009-11-10 18:48:09 UTC (rev 2788)
@@ -108,6 +108,7 @@
     our $form = new Form;
     our %myconfig = ();
     %myconfig = %{$request->{_user}};
+    $form->{stylesheet} = $myconfig{stylesheet};
     our $locale = $request->{_locale};
 
     for (keys %$request){

Modified: trunk/sql/modules/Company.sql
===================================================================
--- trunk/sql/modules/Company.sql	2009-11-09 19:59:19 UTC (rev 2787)
+++ trunk/sql/modules/Company.sql	2009-11-10 18:48:09 UTC (rev 2788)
@@ -136,6 +136,12 @@
 END;
 $$ LANGUAGE plpgsql;
 
+CREATE OR REPLACE FUNCTION entity_credit__get(in_id int)
+RETURNS entity_credit_account AS
+$$
+SELECT * FROM entity_credit_account WHERE id = $1;
+$$ language sql;
+
 CREATE OR REPLACE FUNCTION entity_list_contact_class() 
 RETURNS SETOF contact_class AS
 $$


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