diff options
| -rw-r--r-- | CONTRIBUTORS | 3 | ||||
| -rw-r--r-- | bin/is.pl | 3 | ||||
| -rw-r--r-- | bin/pos.pl | 8 |
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> @@ -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"; @@ -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"; |