SF.net SVN: ledger-smb: [453] trunk/bin

[..hidden..]

Revision: 453
          http://svn.sourceforge.net/ledger-smb/?rev=453&view=rev
Author:   tetragon
Date:     2006-11-01 15:16:49 -0800 (Wed, 01 Nov 2006)

Log Message:
-----------
String fixes... missed a few

Modified Paths:
--------------
    trunk/bin/arap.pl
    trunk/bin/io.pl
    trunk/bin/rc.pl

Modified: trunk/bin/arap.pl
===================================================================
--- trunk/bin/arap.pl	2006-11-01 20:06:15 UTC (rev 452)
+++ trunk/bin/arap.pl	2006-11-01 23:16:49 UTC (rev 453)
@@ -912,7 +912,7 @@
     $form->{intnotes} .= qq|\n\n| if $form->{intnotes};
     $form->{intnotes} .= qq|[email]\n|
     .$locale->text('Date: [_1]', $now).qq|\n|
-    .$locale->text('To: [_1]\n[_2][_3]', $form->{email}, ${cc}, ${bcc})
+    .$locale->text('To: [_1]', $form->{email}).qq|\n${cc}${bcc}|
     .$locale->text('Subject: [_1]', $form->{subject}).qq|\n\n|
     .$locale->text('Message: ');
 

Modified: trunk/bin/io.pl
===================================================================
--- trunk/bin/io.pl	2006-11-01 20:06:15 UTC (rev 452)
+++ trunk/bin/io.pl	2006-11-01 23:16:49 UTC (rev 453)
@@ -1475,7 +1475,7 @@
       $old_form->{intnotes} = qq|$old_form->{intnotes}\n\n| if $old_form->{intnotes};
       $old_form->{intnotes} .= qq|[email]\n|
       .$locale->text('Date: [_1]', $now).qq|\n|
-      .$locale->text('To: [_1]\n[_2][_3]', $form->{email}, ${cc}, ${bcc})
+      .$locale->text('To: [_1]', $form->{email}).qq|\n${cc}${bcc}|
       .$locale->text('Subject: [_1]', $form->{subject}).qq|\n|;
 
       $old_form->{intnotes} .= qq|\n|.$locale->text('Message').qq|: |;

Modified: trunk/bin/rc.pl
===================================================================
--- trunk/bin/rc.pl	2006-11-01 20:06:15 UTC (rev 452)
+++ trunk/bin/rc.pl	2006-11-01 23:16:49 UTC (rev 453)
@@ -191,6 +191,10 @@
 sub till_closing {
   $form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
 
+  # $locale->text("Source");
+  # $locale->text("Actual");
+  # $locale->text("Expected");
+  # $locale->text("Error");
   @colheadings = qw(Source Actual Expected Error);
   my $curren = $pos_config{'curren'};
 
@@ -217,7 +221,7 @@
 |;
 
   print "<tr>";
-  map {print "<td class=listheading>$_</td>";} @colheadings;
+  map {print "<td class=listheading>".$locale->text($_)."</td>";} @colheadings;
   print "</tr>";
   my $j;
   my $source;
@@ -303,12 +307,12 @@
     print qq|<tr>
       <td><input type=text name=$calcval value="$form->{$calcval}"></td>
       <th>X ${curren}${unit} = </th>
-      <td><input type=text name=$subval value="$form->{$subval}"></td>
+      <td><input type="text" name="$subval" value="$form->{$subval}"></td>
     </tr>|;
   }
   print qq|<tr>
     <td>&nbsp;</td>
-    <th>Subtotal:</th>
+    <th>|.$locale->text("Subtotal").qq|:</th>
     <td><input type=text name=sub_sub value="$form->{sub_sub}"></td>
   </tr>
   </table>


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