Revision 0965925a
Von Sven Schöling vor fast 18 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
|
sub selectall_hashref_query {
|
||
|
my ($form, $dbh, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
||
|
|
||
|
my $sth = prepare_execute_query($form, $dbh, $query, @_);
|
||
|
my $result = [];
|
||
|
while (my $ref = $sth->fetchrow_hashref()) {
|
||
| ... | ... | |
|
sub selectfirst_hashref_query {
|
||
|
my ($form, $dbh, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
||
|
|
||
|
my $sth = prepare_execute_query($form, $dbh, $query, @_);
|
||
|
my $ref = $sth->fetchrow_hashref();
|
||
|
$sth->finish();
|
||
| ... | ... | |
|
sub selectfirst_array_query {
|
||
|
my ($form, $dbh, $query) = splice(@_, 0, 3);
|
||
|
|
||
|
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
||
|
|
||
|
my $sth = prepare_execute_query($form, $dbh, $query, @_);
|
||
|
my @ret = $sth->fetchrow_array();
|
||
|
$sth->finish();
|
||
| ... | ... | |
|
|
||
|
=head1 MODULE AUTHORS
|
||
|
|
||
|
Sven Schoeling
|
||
|
Moritz Bunkus E<lt>m.bunkus@linet-services.de<gt>
|
||
|
Sven Schoeling E<lt>s.schoeling@linet-services.de<gt>
|
||
|
|
||
|
=head1 DOCUMENTATION AUTHORS
|
||
|
|
||
| ... | ... | |
|
You should have received a copy of the GNU General Public License
|
||
|
along with this program; if not, write to the Free Software
|
||
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||
|
=cut
|
||
|
=cut
|
||
Auch abrufbar als: Unified diff
Loeblich, Doku wollte ich schon immer haben.
Ich hab mal die Authorschaft korrigiert (Moritz hat an den meisten Routinen schuld)
und die Funktionen die sowieso ueber prepare_execute_query laufen von doppelten Dumps befreit.