diff options
Diffstat (limited to 'bin')
| -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> |