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

1 files changed, 2 insertions, 4 deletions

diff --git a/bin/pos.pl b/bin/pos.pl
index 9f414d1d..692fdfc1 100644
--- 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