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 |
- |
|
|