Applying Ashley Gittin's performance patch to /trunk

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1170 4979c152-3d1c-0410-bac9-87ea11338e46

3 files changed, 5 insertions, 9 deletions

diff --git a/CONTRIBUTORS b/CONTRIBUTORS
index 51b35dcb..7cd8c0dd 100644
--- a/CONTRIBUTORS
+++ b/CONTRIBUTORS
@@ -60,6 +60,9 @@ IRC: mst#irc.perl.org contributed the initial Makefile.PL
 Chris Nighswonger, <cnighswonger @ foundations.edu> contributed the
 shebang-strawberry.pl
 
+Ashley Gittins contributed <agittins @ purple.dropbear.id.au> has contributed 
+some performance fixes and has contributed a great deal of work to our web site.
+
 Original Authors of SQL-Ledger:
 ===================================
 Dieter Simader <dsimader @ sql-ledger.com>
diff --git a/bin/is.pl b/bin/is.pl
index ac2235d6..4d68dde8 100644
--- a/bin/is.pl
+++ b/bin/is.pl
@@ -105,8 +105,7 @@ sub invoice_links {
 
     $form->{oldlanguage_code} = $form->{language_code};
 
-    $form->get_partsgroup( \%myconfig,
-        { language_code => $form->{language_code}, searchitems => 'nolabor' } );
+    $form->get_partsgroup( \%myconfig, { all => 1} );
 
     if ( @{ $form->{all_partsgroup} } ) {
         $form->{selectpartsgroup} = "<option>\n";
diff --git a/bin/pos.pl b/bin/pos.pl
index 8cc8d73c..87787d08 100644
--- a/bin/pos.pl
+++ b/bin/pos.pl
@@ -281,13 +281,7 @@ sub form_header {
         if ( $form->{language_code} ne $form->{oldlanguage_code} ) {
 
             # rebuild partsgroup
-            $form->get_partsgroup(
-                \%myconfig,
-                {
-                    language_code => $form->{language_code},
-                    searchitems   => 'nolabor'
-                }
-            );
+            $form->get_partsgroup(\%myconfig, { all => 1 }); 
             $form->{partsgroup} = "";
             for ( @{ $form->{all_partsgroup} } ) {
                 $form->{partsgroup} .= "$_->{partsgroup}--$_->{translation}\n";