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

[..hidden..]

Revision: 410
          http://svn.sourceforge.net/ledger-smb/?rev=410&view=rev
Author:   tetragon
Date:     2006-10-30 16:38:28 -0800 (Mon, 30 Oct 2006)

Log Message:
-----------
String and button updates

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

Modified: trunk/bin/rp.pl
===================================================================
--- trunk/bin/rp.pl	2006-10-31 00:25:26 UTC (rev 409)
+++ trunk/bin/rp.pl	2006-10-31 00:38:28 UTC (rev 410)
@@ -1691,9 +1691,9 @@
 # type=submit $locale->text('Print')
 # type=submit $locale->text('E-mail')
 
-    %button = ('Select all' => { ndx => 1, key => 'A', value => $locale->text('Select all') },
-               'Print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
-	       'E-mail' => { ndx => 5, key => 'E', value => $locale->text('E-mail') },
+    %button = ('select_all' => { ndx => 1, key => 'A', value => $locale->text('Select all') },
+               'print' => { ndx => 2, key => 'P', value => $locale->text('Print') },
+	       'e_mail' => { ndx => 5, key => 'E', value => $locale->text('E-mail') },
 	      );
     
     for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
@@ -1813,7 +1813,7 @@
 |;
   }
 
-  $title = $locale->text('E-mail Statement to')." $form->{$form->{ct}}";
+  $title = $locale->text('E-mail Statement to [_1]', $form->{$form->{ct}});
 
   $form->{media} = "email";
   
@@ -1893,14 +1893,14 @@
 
   $form->{OUT} = "${LedgerSMB::Sysconfig::sendmail}";
 
-  $form->{subject} = $locale->text('Statement').qq| - $form->{todate}| unless $form->{subject};
+  $form->{subject} = $locale->text('Statement - [_1]', $form->{todate}) unless $form->{subject};
   $form->isblank("email", $locale->text('E-mail address missing!'));
 
   RP->aging(\%myconfig, \%$form);
   
   &print_form;
   
-  $form->redirect($locale->text('Statement sent to')." $form->{$form->{ct}}");
+  $form->redirect($locale->text('Statement sent to [_1]', $form->{$form->{ct}}));
 
 }
 


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