summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-01 23:16:49 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-01 23:16:49 +0000
commit2788aecf5ca76c8ff061ed820480657baee34082 (patch)
treec84e731327c9f3e7ce8ec46e7be28cb7101aca7b
parentd6a3718043c92e934e9dd24edd46e346726c4f28 (diff)
String fixes... missed a few
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@453 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xbin/arap.pl2
-rwxr-xr-xbin/io.pl2
-rwxr-xr-xbin/rc.pl10
3 files changed, 9 insertions, 5 deletions
diff --git a/bin/arap.pl b/bin/arap.pl
index 6ddd6e7e..3f65d4ff 100755
--- a/bin/arap.pl
+++ b/bin/arap.pl
@@ -912,7 +912,7 @@ sub reprint {
$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: ');
diff --git a/bin/io.pl b/bin/io.pl
index 85f65055..efeaf8b4 100755
--- a/bin/io.pl
+++ b/bin/io.pl
@@ -1475,7 +1475,7 @@ sub print_form {
$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|: |;
diff --git a/bin/rc.pl b/bin/rc.pl
index e9d23b78..05d1f2f6 100755
--- a/bin/rc.pl
+++ b/bin/rc.pl
@@ -191,6 +191,10 @@ sub continue { &{ $form->{nextsub} } };
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 @@ sub till_closing {
|;
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 @@ function check_errors(){
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>