summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-25 06:27:10 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-25 06:27:10 +0000
commitce0378ec0d26d8c3d38838960cb8182599f4f09e (patch)
treee2fe57cf3acf178826321211dab1a4f833a6e06f
parent96cf16a1bea8681d3a9c549d981198ebfa59cfb8 (diff)
Fixing partsgroup buttons in POS interface
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1009 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xbin/pos.pl6
-rwxr-xr-xbin/ps.pl6
2 files changed, 8 insertions, 4 deletions
diff --git a/bin/pos.pl b/bin/pos.pl
index 7071d5d3..9d98304e 100755
--- a/bin/pos.pl
+++ b/bin/pos.pl
@@ -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
diff --git a/bin/ps.pl b/bin/ps.pl
index f3df4c98..c9ba0c5c 100755
--- 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