more workflow stuff
This commit is contained in:
parent
d9ae5745a5
commit
ec5193e5d3
8 changed files with 676 additions and 10 deletions
|
|
@ -400,7 +400,7 @@ sub prepare {
|
|||
|
||||
#-------------------------------------------------------------------
|
||||
|
||||
=head2 quickArray ( sql )
|
||||
=head2 quickArray ( sql, params )
|
||||
|
||||
Executes a query and returns a single row of data as an array.
|
||||
|
||||
|
|
@ -408,13 +408,19 @@ Executes a query and returns a single row of data as an array.
|
|||
|
||||
An SQL query.
|
||||
|
||||
=head3 params
|
||||
|
||||
An array reference containing values for any placeholder params used in the SQL query.
|
||||
|
||||
=cut
|
||||
|
||||
sub quickArray {
|
||||
my $self = shift;
|
||||
my $sql = shift;
|
||||
my $params = shift;
|
||||
my ($sth, @data);
|
||||
$sth = $self->read($sql);
|
||||
$sth = $self->prepare($sql);
|
||||
$sth->execute($params);
|
||||
@data = $sth->array;
|
||||
$sth->finish;
|
||||
return @data;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue