diff options
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/Form.pm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm index 07c1b3c6..6bca3ddd 100755 --- a/LedgerSMB/Form.pm +++ b/LedgerSMB/Form.pm @@ -1280,6 +1280,32 @@ sub db_init { } } +sub get_custom_queries { + my ($self, $tablename) = @_; + my @rc; + my %temphash; + my @elements; + my $query; + for (@{$self->{custom_db_fields}{$tablename}}){ + @elements = split (/:/, $_); + push @{$temphash{$elements[0]}}, $elements[1]; + } + for (keys %temphash){ + $query = "SELECT "; + my $first = 1; + for (@{$temphash{$_}}){ + $query .= "$_"; + if ($first == 0){ + $query .= ", " + } + $first = 0; + } + $query .= " FROM $_ WHERE field_id = ?"; + push @rc, $query; + } + @rc; +} + sub dbconnect { my ($self, $myconfig) = @_; |