SF.net SVN: ledger-smb: [409] trunk/bin/rc.pl

[..hidden..]

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

Log Message:
-----------
Localise strings

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

Modified: trunk/bin/rc.pl
===================================================================
--- trunk/bin/rc.pl	2006-10-31 00:16:12 UTC (rev 408)
+++ trunk/bin/rc.pl	2006-10-31 00:25:26 UTC (rev 409)
@@ -194,7 +194,7 @@
   @colheadings = qw(Source Actual Expected Error);
   my $curren = $pos_config{'curren'};
 
-  $form->{title} = "Closing Till For $form->{login}";
+  $form->{title} = $locale->text("Closing Till For [_1]", $form->{login});
   require "pos.conf.pl"; 
   RC->getposlines(\%myconfig, \%$form);
   $form->header;
@@ -288,7 +288,7 @@
   err_cell.innerHTML = '$curren' + source_error;\n"; 
   } (keys %pos_sources);
   print qq|
-  alert('Cumulative Error: $curren' + money_round(cumulative_error));
+  alert('|.$locale->text('Cumulative Error:').qq| $curren' + money_round(cumulative_error));
 }
 </script>
 
@@ -313,7 +313,7 @@
   </tr>
   </table>
 <input type=button name=calculate class=submit onClick="custom_calc_total()" 
-   value='Calculate'>
+   value='|.$locale->text('Calculate').qq|'>
 |;
   print qq|</table><button type="submit" name="action" value="close_till">|.
 		$locale->text("Close Till").qq|</button>|;
@@ -395,13 +395,14 @@
     $calcval = 'calc_' . $calcval;
     push @cashlines, "$form->{$calcval} x $parseval = $form->{$subval}";
   }
-  push @cashlines, $locale->text("Total Cash in Drawer:") . $form->{sub_sub};
-  push @cashlines, $locale->text("Less Cash in Till At Start:") . 
-  	$form->{till_cash};
+  push @cashlines, $locale->text("Total Cash in Drawer: [_1]", 
+  	$form->{sub_sub});
+  push @cashlines, $locale->text("Less Cash in Till At Start: [_1]", 
+  	$form->{till_cash});
   push @cashlines, "\n";
   $cash = join ("\n", @cashlines);
-  $foot = $locale->text("Cumulative Error: ")."$difference\n";
-  $foot .= $locale->text('Reset Till By ')."$amount\n\n\n\n\n\n\n\n\n\n";
+  $foot = $locale->text("Cumulative Error: [_1]", $difference)."\n";
+  $foot .= $locale->text('Reset Till By [_1]', $amount)."\n\n\n\n\n\n\n\n\n\n";
   open (PRN, "|-",  ${LedgerSMB::Sysconfig::printer}{Printer});
   print PRN $head;
   print PRN $lines;
@@ -410,9 +411,9 @@
   print PRN $foot;
   close PRN;
   if ($difference > 0){
-    $message = $locale->text("You are over by ").$difference;
+    $message = $locale->text("You are over by [_1]", $difference);
   } elsif ($difference < 0){
-    $message = $locale->text("You are under by ").$difference * -1;
+    $message = $locale->text("You are under by [_1]", $difference * -1);
   }
   else {
     $message = $local->text("Congratulations!  Your till is exactly balanced.");


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