SF.net SVN: ledger-smb:[5213] trunk/LedgerSMB

[..hidden..]

Revision: 5213
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5213&view=rev
Author:   einhverfr
Date:     2012-11-20 04:11:53 +0000 (Tue, 20 Nov 2012)
Log Message:
-----------
A number of fixes for draft searches

Modified Paths:
--------------
    trunk/LedgerSMB/Report/Unapproved/Drafts.pm
    trunk/LedgerSMB/Report.pm
    trunk/LedgerSMB/Scripts/drafts.pm

Modified: trunk/LedgerSMB/Report/Unapproved/Drafts.pm
===================================================================
--- trunk/LedgerSMB/Report/Unapproved/Drafts.pm	2012-11-19 09:35:48 UTC (rev 5212)
+++ trunk/LedgerSMB/Report/Unapproved/Drafts.pm	2012-11-20 04:11:53 UTC (rev 5213)
@@ -180,7 +180,7 @@
 
 =cut
 
-has 'amount_lt' => (is => 'rw', coerce => 1, isa =>'LedgerSMB::Moose::Number'););
+has 'amount_lt' => (is => 'rw', coerce => 1, isa =>'LedgerSMB::Moose::Number');
 
 =back
 
@@ -205,6 +205,19 @@
         }
         $ref->{reference_href_suffix} = "$script.pl?action=edit&id=$ref->{id}";
     }
+    $self->buttons([
+      {name => 'action',
+       type => 'submit',
+       text => LedgerSMB::Report::text('Approve'), 
+      value => 'approve',
+      class => 'submit', },
+    
+      {name => 'action',
+       type => 'submit',
+       text => LedgerSMB::Report::text('Delete'),
+      value => 'approve',
+      class => 'submit', },
+    ]);
     $self->rows(..hidden..);
 }
 

Modified: trunk/LedgerSMB/Report.pm
===================================================================
--- trunk/LedgerSMB/Report.pm	2012-11-19 09:35:48 UTC (rev 5212)
+++ trunk/LedgerSMB/Report.pm	2012-11-20 04:11:53 UTC (rev 5213)
@@ -233,6 +233,7 @@
                        hlines => $self->header_lines,
                       columns => $self->show_cols($request), 
                     order_url => $self->order_url,
+                      buttons => $self->buttons,
                          rows => $self->rows});
 }
 

Modified: trunk/LedgerSMB/Scripts/drafts.pm
===================================================================
--- trunk/LedgerSMB/Scripts/drafts.pm	2012-11-19 09:35:48 UTC (rev 5212)
+++ trunk/LedgerSMB/Scripts/drafts.pm	2012-11-20 04:11:53 UTC (rev 5213)
@@ -147,7 +147,7 @@
     use LedgerSMB::Report::Unapproved::Drafts;
     my $report = LedgerSMB::Report::Unapproved::Drafts->new(%$request);
     $report->run_report;
-    $report->render;
+    $report->render($request);
 }
 
 =back

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