SF.net SVN: ledger-smb: [1010] trunk/bin

[..hidden..]

Revision: 1010
          http://svn.sourceforge.net/ledger-smb/?rev=1010&view=rev
Author:   einhverfr
Date:     2007-03-24 23:34:53 -0700 (Sat, 24 Mar 2007)

Log Message:
-----------
Fixing partsgroup buttons in POS interface

Modified Paths:
--------------
    trunk/bin/pos.pl
    trunk/bin/ps.pl

Modified: trunk/bin/pos.pl
===================================================================
--- trunk/bin/pos.pl	2007-03-25 06:27:10 UTC (rev 1009)
+++ trunk/bin/pos.pl	2007-03-25 06:34:53 UTC (rev 1010)
@@ -579,8 +579,6 @@
       
     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 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

Modified: trunk/bin/ps.pl
===================================================================
--- trunk/bin/ps.pl	2007-03-25 06:27:10 UTC (rev 1009)
+++ trunk/bin/ps.pl	2007-03-25 06:34:53 UTC (rev 1010)
@@ -60,5 +60,11 @@
   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


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.