diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-25 06:34:53 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-03-25 06:34:53 +0000 |
commit | a3a6064b492c70ecacaa5b413547deb695212487 (patch) | |
tree | d1362c3826adb562eebde32877ade244ab0104da /bin | |
parent | fc750f3a33311bb87b32650609d9a67d231fb981 (diff) |
Fixing partsgroup buttons in POS interface
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1010 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin')
-rw-r--r-- | bin/pos.pl | 6 | ||||
-rw-r--r-- | bin/ps.pl | 6 |
2 files changed, 8 insertions, 4 deletions
@@ -579,8 +579,6 @@ sub form_footer { for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }
- print qq|<p>
- <input type=text size=1 value="B" accesskey="B" title="[Alt-B]">\n|;
if ($form->{partsgroup}) {
$form->{partsgroup} =~ s/\r//g;
@@ -916,8 +914,8 @@ sub print_and_post { sub lookup_partsgroup {
- $form->{action} =~ s/\r//;
- $form->{action} = substr($form->{action}, 1);
+ $form->{my_partsgroup} =~ s/\r//;
+ $form->{action} = $form->{my_partsgroup};
if ($form->{language_code}) {
# get english
@@ -60,5 +60,11 @@ if (-f "bin/custom/$form->{login}_pos.pl") { eval { require "bin/custom/$form->{login}_pos.pl"; }; } +# Necessary for Partsgroup lookups +if ($form->{action} =~ s/^\s//){ + $form->{my_partsgroup} = $form->{action}; + $form->{action} = "lookup_partsgroup"; +} + 1; # end |