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/ps.pl | |
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/ps.pl')
-rw-r--r-- | bin/ps.pl | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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 |