View | Details | Raw Unified | Return to bug 40500
Collapse All | Expand All

(-)a/reports/guided_reports.pl (-3 / +6 lines)
Lines 900-913 if ( $op eq 'run' ) { Link Here
900
                            $authorised_lib{$id} = $name;
900
                            $authorised_lib{$id} = $name;
901
                        }
901
                        }
902
                    } elsif ( $authorised_value eq "debit_types" ) {
902
                    } elsif ( $authorised_value eq "debit_types" ) {
903
                        my $sth = $dbh->prepare("SELECT code, description FROM account_debit_types ORDER BY code");
903
                        my $sth = $dbh->prepare(
904
                            "SELECT code, concat(description,' (',code,')') as display_value FROM account_debit_types ORDER BY code"
905
                        );
904
                        $sth->execute;
906
                        $sth->execute;
905
                        while ( my ( $code, $description ) = $sth->fetchrow_array ) {
907
                        while ( my ( $code, $description ) = $sth->fetchrow_array ) {
906
                            push @authorised_values, $code;
908
                            push @authorised_values, $code;
907
                            $authorised_lib{$code} = $description;
909
                            $authorised_lib{$code} = $description;
908
                        }
910
                        }
909
                    } elsif ( $authorised_value eq "credit_types" ) {
911
                    } elsif ( $authorised_value eq "credit_types" ) {
910
                        my $sth = $dbh->prepare("SELECT code, description FROM account_credit_types ORDER BY code");
912
                        my $sth = $dbh->prepare(
913
                            "SELECT code, concat(description,' (',code,')') as display_value FROM account_credit_types ORDER BY code"
914
                        );
911
                        $sth->execute;
915
                        $sth->execute;
912
                        while ( my ( $code, $description ) = $sth->fetchrow_array ) {
916
                        while ( my ( $code, $description ) = $sth->fetchrow_array ) {
913
                            push @authorised_values, $code;
917
                            push @authorised_values, $code;
914
- 

Return to bug 40500