SF.net SVN: ledger-smb:[4597] trunk/bin/gl.pl

[..hidden..]

Revision: 4597
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4597&view=rev
Author:   einhverfr
Date:     2012-03-27 02:17:50 +0000 (Tue, 27 Mar 2012)
Log Message:
-----------
removing entry point for GL reports from old code

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

Modified: trunk/bin/gl.pl
===================================================================
--- trunk/bin/gl.pl	2012-03-27 01:50:07 UTC (rev 4596)
+++ trunk/bin/gl.pl	2012-03-27 02:17:50 UTC (rev 4597)
@@ -452,51 +452,6 @@
 
 }
 
-
-
-
-sub search {
-
-    $form->{title} = $locale->text('General Ledger Reports');
-
-    $colspan = 5;
-
-    #$form->all_departments( \%myconfig );
-
-    # departments
-    if ( @{ $form->{all_department} } ) {
-        unshift @{ $form->{all_department} }, {id => "", description => ""};
-    }
-
-    @{$form->{all_accounts}} = $form->all_accounts;
-    unshift @{$form->{all_accounts}}, {id => "", accno => ""};
-
-    if ( @{ $form->{all_years} } ) {
-        # accounting years
-        for ( @{ $form->{all_years} } ) {
-             $_ = {year => $_};
-        }
-        unshift @{ $form->{all_years} }, {};
-        $form->{accountingmonths} = [];
-        for ( sort keys %{ $form->{all_month} } ) {
-            push @{$form->{accountingmonths}}, 
-                {id     => $_,
-                 month  => $locale->text( $form->{all_month}{$_} )};
-        }
-
-    }
-    
-    my $template = LedgerSMB::Template->new(
-        user => \%myconfig,
-        locale => $locale,
-        path => 'UI/journal',
-        template => 'search',
-        format => 'HTML',
-        );
-    $template->render($form);
-    
-}
-
 sub edit {
 
     &create_links;

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