diff options
author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-01 23:16:49 +0000 |
---|---|---|
committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-01 23:16:49 +0000 |
commit | 2788aecf5ca76c8ff061ed820480657baee34082 (patch) | |
tree | c84e731327c9f3e7ce8ec46e7be28cb7101aca7b | |
parent | d6a3718043c92e934e9dd24edd46e346726c4f28 (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-x | bin/arap.pl | 2 | ||||
-rwxr-xr-x | bin/io.pl | 2 | ||||
-rwxr-xr-x | bin/rc.pl | 10 |
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: '); @@ -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|: |; @@ -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> </td> - <th>Subtotal:</th> + <th>|.$locale->text("Subtotal").qq|:</th> <td><input type=text name=sub_sub value="$form->{sub_sub}"></td> </tr> </table> |