SF.net SVN: ledger-smb:[4724] branches/1.3/bin

[..hidden..]

Revision: 4724
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4724&view=rev
Author:   ehuelsmann
Date:     2012-05-18 17:59:46 +0000 (Fri, 18 May 2012)
Log Message:
-----------
Add the option to generate CSV output for
(sales\|purchase) orders and invoices, if the relevant templates exist.

Modified Paths:
--------------
    branches/1.3/bin/arapprn.pl
    branches/1.3/bin/io.pl

Modified: branches/1.3/bin/arapprn.pl
===================================================================
--- branches/1.3/bin/arapprn.pl	2012-05-18 13:35:38 UTC (rev 4723)
+++ branches/1.3/bin/arapprn.pl	2012-05-18 17:59:46 UTC (rev 4724)
@@ -519,7 +519,7 @@
     $media = qq|<select name=media>
           <option value="screen">| . $locale->text('Screen');
 
-    $form->{selectformat} = qq|<option value="html">html\n|;
+    $form->{selectformat} = qq|<option value="html">html<option value="csv">csv\n|;
 
     if ( %{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex} ) {
         for ( sort keys %{LedgerSMB::Sysconfig::printer} ) {

Modified: branches/1.3/bin/io.pl
===================================================================
--- branches/1.3/bin/io.pl	2012-05-18 13:35:38 UTC (rev 4723)
+++ branches/1.3/bin/io.pl	2012-05-18 17:59:46 UTC (rev 4724)
@@ -1400,7 +1400,8 @@
     $options{format} = {
         name => 'format',
         default_values => $form->{selectformat},
-        options => [{text => 'HTML', value => 'html'}],
+        options => [{text => 'HTML', value => 'html'},
+                    {text => 'CSV', value => 'csv'} ],
         };
     if ( ${LedgerSMB::Sysconfig::latex} ) {
         push @{$options{format}{options}}, {

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