SF.net SVN: ledger-smb:[3233] trunk/bin/rp.pl

[..hidden..]

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

Log Message:
-----------
Remove section of code which can't be triggered.

 * bin/rp.pl (report): $form->all_vc() doesn't populate all_$vc, meaning
     only the 'else' clauses ever get executed.  Since nothing down in
     that function further depends on the other queries run by all_vc(),
     remove the call too.

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

Modified: trunk/bin/rp.pl
===================================================================
--- trunk/bin/rp.pl	2011-06-13 08:49:55 UTC (rev 3232)
+++ trunk/bin/rp.pl	2011-06-13 08:59:47 UTC (rev 3233)
@@ -249,25 +249,9 @@
             $form->{uvc} = 'Vendor';
         }
 
-        # setup vc selection
-        $form->all_vc( \%myconfig, $form->{vc},
-            ( $form->{vc} eq 'customer' ) ? "AR" : "AP" );
+	$vc = {name => $form->{vc}, size => 35};
+	$form->{vci} = {type => 'input', input => $vc};
 
-        my $vc;
-        if (ref $form->{"all_$form->{vc}"} eq 'ARRAY') {
-            $vc = {name => $form->{vc}, options => [{text => '', value => ''}]};
-            for ( @{ $form->{"all_$form->{vc}"} } ) {
-                push @{$vc->{options}}, {
-                    text => "$_->{name}",
-                    value => "$_->{name}--$_->{id}",
-                    };
-            }
-            $form->{vci} = {type => 'select', input => $vc};
-        } else {
-            $vc = {name => $form->{vc}, size => 35};
-            $form->{vci} = {type => 'input', input => $vc};
-        }
-
         $hiddens{type} = 'statement';
         $hiddens{format} = 'ps' if $myconfig{printer};
 	$hiddens{media} = $myconfig{printer};


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