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

[..hidden..]

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

Log Message:
-----------
Some string cleaning

Modified Paths:
--------------
    trunk/bin/aa.pl
    trunk/bin/admin.pl
    trunk/bin/arap.pl
    trunk/bin/io.pl
    trunk/bin/ir.pl
    trunk/bin/oe.pl

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2006-10-31 00:38:28 UTC (rev 410)
+++ trunk/bin/aa.pl	2006-10-31 01:51:30 UTC (rev 411)
@@ -1317,7 +1317,7 @@
     $callback .= "&transdateto=$form->{transdateto}";
     $href .= "&transdateto=$form->{transdateto}";
     $option .= "\n<br>" if ($option);
-    $option .= $locale->text('To')."&nbsp;".$locale->date(\%myconfig, $form->{transdateto}, 1);
+    $option .= $locale->text('To [_1]', $locale->date(\%myconfig, $form->{transdateto}, 1));
   }
   if ($form->{open}) {
     $callback .= "&open=$form->{open}";

Modified: trunk/bin/admin.pl
===================================================================
--- trunk/bin/admin.pl	2006-10-31 00:38:28 UTC (rev 410)
+++ trunk/bin/admin.pl	2006-10-31 01:51:30 UTC (rev 411)
@@ -132,7 +132,7 @@
 		<p><button type="submit" class="submit" name="action" value="change_password">|.$locale->text('Change Password').qq|</button></p>
 		</form>
 
-		<a href="http://www.ledgersmb.org/";>LedgerSMB |.$locale->text('website').qq|</a>
+		<a href="http://www.ledgersmb.org/";>|.$locale->text('LedgerSMB website').qq|</a>
 	</div>
 	</body>
 	</html>
@@ -175,7 +175,7 @@
 			>|.$locale->text("Application Login").qq|</a></p>
 
 
-		<a href="http://www.ledgersmb.org/";>LedgerSMB |.$locale->text('website').qq|</a>
+		<a href="http://www.ledgersmb.org/";>|.$locale->text('LedgerSMB website').qq|</a>
 	</div>
 	</body>
 	</html>
@@ -880,7 +880,7 @@
 
 	$form->{templates} = ($form->{templates}) ? "${LedgerSMB::Sysconfig::templates}/$form->{templates}" : "$templates/$form->{login}";
 
-	$form->error("${LedgerSMB::Sysconfig::memberfile} ".$locale->text('locked!')) if (-f ${memberfile}.LCK);
+	$form->error($locale->text("[_1] locked!", ${LedgerSMB::Sysconfig::memberfile}) if (-f ${memberfile}.LCK);
 
 	open(FH, ">${memberfile}.LCK") or $form->error("${memberfile}.LCK : $!");
 	close(FH);

Modified: trunk/bin/arap.pl
===================================================================
--- trunk/bin/arap.pl	2006-10-31 00:38:28 UTC (rev 410)
+++ trunk/bin/arap.pl	2006-10-31 01:51:30 UTC (rev 411)
@@ -711,7 +711,7 @@
 |;
 
   
-  $title = $locale->text('Recurring Transaction') ." ".  $locale->text('for') ." $description";
+  $title = $locale->text('Recurring Transaction for [_1]', $description);
 
   $form->header;
 
@@ -906,15 +906,15 @@
   if ($form->{media} eq 'email') {
     # add email message
     $now = scalar localtime;
-    $cc = $locale->text('Cc').qq|: $form->{cc}\n| if $form->{cc};
-    $bcc = $locale->text('Bcc').qq|: $form->{bcc}\n| if $form->{bcc};
+    $cc = $locale->text('Cc: [_1]', $form->{cc}).qq|\n| if $form->{cc};
+    $bcc = $locale->text('Bcc: [_1]', $form->{bcc}).qq|\n| if $form->{bcc};
 
     $form->{intnotes} .= qq|\n\n| if $form->{intnotes};
     $form->{intnotes} .= qq|[email]\n|
-    .$locale->text('Date').qq|: $now\n|
-    .$locale->text('To').qq|: $form->{email}\n${cc}${bcc}|
-    .$locale->text('Subject').qq|: $form->{subject}\n\n|
-    .$locale->text('Message').qq|: |;
+    .$locale->text('Date: [_1]', $now).qq|\n|
+    .$locale->text('To: [_1]\n[_2][_3]', $form->{email}, ${cc}, ${bcc})
+    .$locale->text('Subject: [_1]', $form->{subject}).qq|\n\n|
+    .$locale->text('Message: ');
 
     $form->{intnotes} .= ($form->{message}) ? $form->{message} : $locale->text('sent');
     

Modified: trunk/bin/io.pl
===================================================================
--- trunk/bin/io.pl	2006-10-31 00:38:28 UTC (rev 410)
+++ trunk/bin/io.pl	2006-10-31 01:51:30 UTC (rev 411)
@@ -1468,15 +1468,15 @@
     }
 
     $now = scalar localtime;
-    $cc = $locale->text('Cc').qq|: $form->{cc}\n| if $form->{cc};
-    $bcc = $locale->text('Bcc').qq|: $form->{bcc}\n| if $form->{bcc};
+    $cc = $locale->text('Cc: [_1]', $form->{cc}).qq|\n| if $form->{cc};
+    $bcc = $locale->text('Bcc: [_1]', $form->{bcc}).qq|\n| if $form->{bcc};
     
     if (defined %$old_form) {
       $old_form->{intnotes} = qq|$old_form->{intnotes}\n\n| if $old_form->{intnotes};
       $old_form->{intnotes} .= qq|[email]\n|
-      .$locale->text('Date').qq|: $now\n|
-      .$locale->text('To').qq|: $form->{email}\n${cc}${bcc}|
-      .$locale->text('Subject').qq|: $form->{subject}\n|;
+      .$locale->text('Date: [_1]', $now).qq|\n|
+      .$locale->text('To: [_1]\n[_2][_3]', $form->{email}, ${cc}, ${bcc})
+      .$locale->text('Subject: [_1]', $form->{subject}).qq|\n|;
 
       $old_form->{intnotes} .= qq|\n|.$locale->text('Message').qq|: |;
       $old_form->{intnotes} .= ($form->{message}) ? $form->{message} : $locale->text('sent');

Modified: trunk/bin/ir.pl
===================================================================
--- trunk/bin/ir.pl	2006-10-31 00:38:28 UTC (rev 410)
+++ trunk/bin/ir.pl	2006-10-31 01:51:30 UTC (rev 411)
@@ -883,7 +883,7 @@
   ($form->{AP_paid}) = split /--/, $form->{AP_paid};
   
   if (IR->post_invoice(\%myconfig, \%$form)) {
-    $form->redirect($locale->text('Invoice')." $form->{invnumber} ".$locale->text('posted!'));
+    $form->redirect($locale->text('Invoice [_1] posted!', $form->{invnumber}));
   } else {
     $form->error($locale->text('Cannot post invoice!'));
   }

Modified: trunk/bin/oe.pl
===================================================================
--- trunk/bin/oe.pl	2006-10-31 00:38:28 UTC (rev 410)
+++ trunk/bin/oe.pl	2006-10-31 01:51:30 UTC (rev 411)
@@ -1367,7 +1367,7 @@
       $quotation = $locale->text('RFQ');
 
       if ($myconfig{acs} !~ /Quotations--Quotations/) {
-	$button{'Quotations--RFQ'}{code} = qq|<button class="submit" type="submit" name="action" value="rfq_">|.$locale->text('RFQ ').qq|"</button> |;
+	$button{'Quotations--RFQ'}{code} = qq|<button class="submit" type="submit" name="action" value="add">|.$locale->text('RFQ').qq|"</button> |;
 	$button{'Quotations--RFQ'}{order} = $i++;
       }
       
@@ -1417,7 +1417,7 @@
       $quotation = $locale->text('Quotation');
 
       if ($myconfig{acs} !~ /Quotations--Quotations/) {
-	$button{'Quotations--Quotation'}{code} = qq|<button class="submit" type="submit" name="action" value="quotation_">|.$locale->text('Quotation ').qq|</button> |;
+	$button{'Quotations--Quotation'}{code} = qq|<button class="submit" type="submit" name="action" value="add">|.$locale->text('Quotation').qq|</button> |;
 	$button{'Quotations--Quotation'}{order} = $i++;
       }
       
@@ -2740,10 +2740,6 @@
 }
 
 
-sub rfq_ { &add };
-sub quotation_ { &add };
-
-
 sub generate_purchase_orders {
 
   for (1 .. $form->{rowcount}) {


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