diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-25 04:12:28 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-25 04:12:28 +0000 |
| commit | 607d006837906e0ad95a4f5f032117efade097dd (patch) | |
| tree | 73a7b9c9345655ccc53a3ee99b671467edfe9dfd /bin/pos.pl | |
| parent | d257dc368e8d02f84b69c10a838a720b24c54c89 (diff) | |
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
Diffstat (limited to 'bin/pos.pl')
| -rwxr-xr-x | bin/pos.pl | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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| <body onLoad="document.forms[0].${focus}.focus()" /> @@ -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} = "<th>".$locale->text('Amount')."</th>"; $column_data{source} = "<th>".$locale->text('Source')."</th>"; $column_data{memo} = "<th>".$locale->text('Memo')."</th>"; + $column_data{cctrack} = "<th>".$locale->text('Credit Card Track')."</th>"; $column_data{AR_paid} = "<th> </th>"; print qq| @@ -433,7 +435,7 @@ sub form_footer { $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"}); my $memoselect = qq|<SELECT name="MEMONAME">|; - for (keys %pos_sources){ + for (sort keys %pos_sources){ $memoselect .= qq|<option value="$_">$pos_sources{$_}</option>|; } $memoselect .= qq|</SELECT>|; |