SF.net SVN: ledger-smb:[4863] branches/1.3/scripts/recon.pl

[..hidden..]

Revision: 4863
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4863&view=rev
Author:   einhverfr
Date:     2012-06-08 00:52:15 +0000 (Fri, 08 Jun 2012)
Log Message:
-----------
Correcting approval search workflow.  Old workflow still works.  New workflow is to click the [View] link on the right.

Modified Paths:
--------------
    branches/1.3/scripts/recon.pl

Modified: branches/1.3/scripts/recon.pl
===================================================================
--- branches/1.3/scripts/recon.pl	2012-06-07 14:17:14 UTC (rev 4862)
+++ branches/1.3/scripts/recon.pl	2012-06-08 00:52:15 UTC (rev 4863)
@@ -147,6 +147,7 @@
 
 sub get_results {
     my ($request) = @_;
+    my $locale = $request->{_locale};
     $request->close_form;
     $request->open_form({commit =>1});
         if ($request->{approved} ne '1' and $request->{approved} ne '0'){
@@ -179,15 +180,14 @@
              "&approved=$search->{approved}&submitted=$search->{submitted}";
         
         my $column_names = {
-            "select" => 'Select',
-            account => 'Account',
-            their_total => 'Balance',
-            end_date => 'Statement Date',
-            submitted => 'Submitted',
-            approved => 'Approved',
-            updated => 'Last Updated',
-            entered_username => 'Entered By',
-            approved_username => 'Approved By'
+            account => $locale->text('Account'),
+            their_total => $locale->text('Balance'),
+            end_date => $locale->text('Statement Date'),
+            submitted => $locale->text('Submitted'),
+            approved => $locale->text('Approved'),
+            updated => $locale->text('Last Updated'),
+            entered_username => $locale->text('Entered By'),
+            approved_username => $locale->text('Approved By')
         };
         my $sort_href = "$search_url&order_by";
         my @sort_columns = qw(account their_total end_date submitted 
@@ -195,8 +195,8 @@
         
 	my $cols = [];
 	my @acts = $search->get_accounts;
-	@$cols = qw(select account end_date their_total approved submitted 
-                    updated entered_username approved_username);
+	@$cols = qw(account end_date their_total approved submitted 
+                    updated entered_username approved_username action);
 	my $recon =$search;
 	for my $row(@results){
             my $act = undef;
@@ -213,6 +213,8 @@
                 text => $row->{end_date}, 
                 href => "$base_url&report_id=$row->{id}"
             };
+            $row->{action} = { text => '[' . $locale->text('View') . ']',
+                                href => "$base_url&report_id=$row->{id}" };
         }
 	$recon->{_results} = ..hidden..;
         $recon->{title} = $request->{_locale}->text('Reconciliation Sets');

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