From 607d006837906e0ad95a4f5f032117efade097dd Mon Sep 17 00:00:00 2001
From: einhverfr
Date: Wed, 25 Oct 2006 04:12:28 +0000
Subject: Made POS memo fields translatable and added sort to the fields
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@298 4979c152-3d1c-0410-bac9-87ea11338e46
---
bin/pos.pl | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
(limited to 'bin/pos.pl')
diff --git a/bin/pos.pl b/bin/pos.pl
index 248d7731..1802d669 100755
--- a/bin/pos.pl
+++ b/bin/pos.pl
@@ -163,6 +163,7 @@ sub edit {
sub form_header {
+
if (!$form->{'check_id'}){
&check_alert;
}
@@ -272,7 +273,7 @@ sub form_header {
$i = $form->{rowcount} + 1;
$focus = "partnumber_$i";
- $form->header;
+ $form->header();
print qq|
@@ -405,11 +406,12 @@ sub form_footer {
|;
}
- @column_index = qw(paid memo source AR_paid);
+ @column_index = qw(paid memo source cctrack AR_paid);
$column_data{paid} = "| ".$locale->text('Amount')." | ";
$column_data{source} = "".$locale->text('Source')." | ";
$column_data{memo} = "".$locale->text('Memo')." | ";
+ $column_data{cctrack} = "".$locale->text('Credit Card Track')." | ";
$column_data{AR_paid} = " | ";
print qq|
@@ -433,7 +435,7 @@ sub form_footer {
$form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
my $memoselect = qq||;
--
cgit v1.2.3