SF.net SVN: ledger-smb:[5236] trunk/bin/ic.pl

[..hidden..]

Revision: 5236
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5236&view=rev
Author:   einhverfr
Date:     2012-11-22 02:31:39 +0000 (Thu, 22 Nov 2012)
Log Message:
-----------
PNL reports now work for products

Modified Paths:
--------------
    trunk/bin/ic.pl

Modified: trunk/bin/ic.pl
===================================================================
--- trunk/bin/ic.pl	2012-11-22 02:12:58 UTC (rev 5235)
+++ trunk/bin/ic.pl	2012-11-22 02:31:39 UTC (rev 5236)
@@ -955,8 +955,31 @@
         qw(login path sessionid callback previousform isassemblyitem));
 
     print qq|
-</form>
-| . $form->close_status_div . qq|
+</form> |;
+    if ($form->{id}){
+        print qq|<form action="pnl.pl" method="GET">
+        <input type="hidden" name="id" value="$form->{id}">
+        <input type="hidden" name="pnl_type" value="product">
+        <table width="100%">
+        <col width="20em"><col>
+        <tr class="listtop"><th colspan=2>| . $locale->text('Profit/Loss') . qq|
+                    </th>
+        </tr>
+        <tr><th>| . $locale->text('Date From') . qq|</th>
+            <td><input type="text" size="12" name="date_from" class="date"></td>
+        </tr><tr>
+            <th>| . $locale->text('Date To') . qq|</th>
+            <td><input type="text" size="12" name="date_to" class="date"></td>
+        </tr><tr>
+            <td><button type="submit" name="action" 
+                        value="generate_income_statement" 
+                        class="submit">| . $locale->text('Continue') .
+                        qq|</button><td>
+        </tr>
+        </table>
+        </form>|;
+    } 
+    print $form->close_status_div . qq|
 </body>
 </html>
 |;

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