From a3a6064b492c70ecacaa5b413547deb695212487 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sun, 25 Mar 2007 06:34:53 +0000
Subject: 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
---
 bin/ps.pl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'bin/ps.pl')

diff --git a/bin/ps.pl b/bin/ps.pl
index f3df4c98..c9ba0c5c 100644
--- a/bin/ps.pl
+++ b/bin/ps.pl
@@ -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
-- 
cgit v1.2.3