SF.net SVN: ledger-smb:[3250] trunk/LedgerSMB/ScriptLib/Company.pm

[..hidden..]

Revision: 3250
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3250&view=rev
Author:   einhverfr
Date:     2011-06-15 03:21:45 +0000 (Wed, 15 Jun 2011)

Log Message:
-----------
Customer/vendor histories now render all the way through for detail reports, but no data displays

Modified Paths:
--------------
    trunk/LedgerSMB/ScriptLib/Company.pm

Modified: trunk/LedgerSMB/ScriptLib/Company.pm
===================================================================
--- trunk/LedgerSMB/ScriptLib/Company.pm	2011-06-15 02:43:17 UTC (rev 3249)
+++ trunk/LedgerSMB/ScriptLib/Company.pm	2011-06-15 03:21:45 UTC (rev 3250)
@@ -481,13 +481,15 @@
     my $company = LedgerSMB::DBObject::Company->new(base => $request);
     $company->get_history();
     my @columns = ();
-    for my $c (qw(l_curr l_partnumber l_unit l_sellprice l_serialnumber
+    for my $col (qw(l_curr l_partnumber l_unit l_sellprice l_serialnumber
                   l_deliverydate l_projectnumber)){
-        if ($request->{$c}){
-           $c =~ s/l_//;
-           push @columns, $c;
+        if ($request->{$col}){
+           my $column = $col;
+           $column =~ s/l_//;
+           push @columns, $column;
         }
     }
+    $locale = $request->{_locale};
     my $column_header = {
        invnumber     => $locale->text('Invoice Number'),
        curr          => $locale->text('Currency'),
@@ -503,6 +505,12 @@
        push @$rows, $ref
 
     }
+    $template->render({
+        form    => $company,
+        columns => ..hidden..,
+        heading => $column_header,
+        rows    => $rows,
+    });
 
 
 }


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