From ccb7930217a5c1c7cb5341514072cb5e070a888e Mon Sep 17 00:00:00 2001 From: tetragon Date: Tue, 31 Oct 2006 01:51:30 +0000 Subject: Some string cleaning git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@411 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/aa.pl | 2 +- bin/admin.pl | 6 +++--- bin/arap.pl | 14 +++++++------- bin/io.pl | 10 +++++----- bin/ir.pl | 2 +- bin/oe.pl | 8 ++------ 6 files changed, 19 insertions(+), 23 deletions(-) diff --git a/bin/aa.pl b/bin/aa.pl index 35b4bbf2..e4f1db70 100755 --- a/bin/aa.pl +++ b/bin/aa.pl @@ -1317,7 +1317,7 @@ sub transactions { $callback .= "&transdateto=$form->{transdateto}"; $href .= "&transdateto=$form->{transdateto}"; $option .= "\n
" if ($option); - $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1); + $option .= $locale->text('To [_1]', $locale->date(\%myconfig, $form->{transdateto}, 1)); } if ($form->{open}) { $callback .= "&open=$form->{open}"; diff --git a/bin/admin.pl b/bin/admin.pl index 2e208ca7..74f3f6cf 100755 --- a/bin/admin.pl +++ b/bin/admin.pl @@ -132,7 +132,7 @@ sub setup_initial_password {

- LedgerSMB |.$locale->text('website').qq| + |.$locale->text('LedgerSMB website').qq| @@ -175,7 +175,7 @@ sub adminlogin { >|.$locale->text("Application Login").qq|

- LedgerSMB |.$locale->text('website').qq| + |.$locale->text('LedgerSMB website').qq| @@ -880,7 +880,7 @@ sub delete { $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); diff --git a/bin/arap.pl b/bin/arap.pl index 7da220d7..6ddd6e7e 100755 --- a/bin/arap.pl +++ b/bin/arap.pl @@ -711,7 +711,7 @@ sub schedule { |; - $title = $locale->text('Recurring Transaction') ." ". $locale->text('for') ." $description"; + $title = $locale->text('Recurring Transaction for [_1]', $description); $form->header; @@ -906,15 +906,15 @@ sub reprint { 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'); diff --git a/bin/io.pl b/bin/io.pl index 4577ed86..85f65055 100755 --- a/bin/io.pl +++ b/bin/io.pl @@ -1468,15 +1468,15 @@ sub print_form { } $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'); diff --git a/bin/ir.pl b/bin/ir.pl index 3ac3b403..cd6e43fb 100755 --- a/bin/ir.pl +++ b/bin/ir.pl @@ -883,7 +883,7 @@ sub post { ($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!')); } diff --git a/bin/oe.pl b/bin/oe.pl index f933b40b..ca1bbda2 100755 --- a/bin/oe.pl +++ b/bin/oe.pl @@ -1367,7 +1367,7 @@ sub transactions { $quotation = $locale->text('RFQ'); if ($myconfig{acs} !~ /Quotations--Quotations/) { - $button{'Quotations--RFQ'}{code} = qq| |; + $button{'Quotations--RFQ'}{code} = qq| |; $button{'Quotations--RFQ'}{order} = $i++; } @@ -1417,7 +1417,7 @@ sub transactions { $quotation = $locale->text('Quotation'); if ($myconfig{acs} !~ /Quotations--Quotations/) { - $button{'Quotations--Quotation'}{code} = qq| |; + $button{'Quotations--Quotation'}{code} = qq| |; $button{'Quotations--Quotation'}{order} = $i++; } @@ -2740,10 +2740,6 @@ sub transfer { } -sub rfq_ { &add }; -sub quotation_ { &add }; - - sub generate_purchase_orders { for (1 .. $form->{rowcount}) { -- cgit v1.2.3