diff options
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/Batch.pm | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/LedgerSMB/Batch.pm b/LedgerSMB/Batch.pm index 142a6bb4..34d0185c 100644 --- a/LedgerSMB/Batch.pm +++ b/LedgerSMB/Batch.pm @@ -31,11 +31,26 @@ sub get_search_criteria { } sub get_search_results { - my ($self) = @_; - @{$self->{search_results}} = $self->exec_method(funcname => 'batch_search'); + my ($self, $args) = @_; + if ($args->{mini}){ + $search_proc = "batch_search_mini"; + } else { + $search_proc = "batch_search"; + } + @{$self->{search_results}} = $self->exec_method(funcname => $search_proc); return @{$self->{search_results}}; } +sub get_class_id { + my ($self, $type) = @_; + @results = $self->call_procedure( + procname => 'batch_get_class_id', + args => [$type] + ); + my $result = pop @results; + return $result->{batch_get_class_id}; +} + sub post { my ($self) = @_; ($self->{post_return_ref}) = $self->exec_method(funcname => 'batch_post'); |