Revision 0965925a
Von Sven Schöling vor mehr als 17 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
| 100 | 100 |
sub selectall_hashref_query {
|
| 101 | 101 |
my ($form, $dbh, $query) = splice(@_, 0, 3); |
| 102 | 102 |
|
| 103 |
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
|
| 104 |
|
|
| 105 | 103 |
my $sth = prepare_execute_query($form, $dbh, $query, @_); |
| 106 | 104 |
my $result = []; |
| 107 | 105 |
while (my $ref = $sth->fetchrow_hashref()) {
|
| ... | ... | |
| 115 | 113 |
sub selectfirst_hashref_query {
|
| 116 | 114 |
my ($form, $dbh, $query) = splice(@_, 0, 3); |
| 117 | 115 |
|
| 118 |
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
|
| 119 |
|
|
| 120 | 116 |
my $sth = prepare_execute_query($form, $dbh, $query, @_); |
| 121 | 117 |
my $ref = $sth->fetchrow_hashref(); |
| 122 | 118 |
$sth->finish(); |
| ... | ... | |
| 127 | 123 |
sub selectfirst_array_query {
|
| 128 | 124 |
my ($form, $dbh, $query) = splice(@_, 0, 3); |
| 129 | 125 |
|
| 130 |
dump_query(LXDebug::QUERY, '', $query . " (" . join(", ", @_) . ")", @_);
|
|
| 131 |
|
|
| 132 | 126 |
my $sth = prepare_execute_query($form, $dbh, $query, @_); |
| 133 | 127 |
my @ret = $sth->fetchrow_array(); |
| 134 | 128 |
$sth->finish(); |
| ... | ... | |
| 205 | 199 |
|
| 206 | 200 |
=head1 MODULE AUTHORS |
| 207 | 201 |
|
| 208 |
Sven Schoeling |
|
| 202 |
Moritz Bunkus E<lt>m.bunkus@linet-services.de<gt> |
|
| 203 |
Sven Schoeling E<lt>s.schoeling@linet-services.de<gt> |
|
| 209 | 204 |
|
| 210 | 205 |
=head1 DOCUMENTATION AUTHORS |
| 211 | 206 |
|
| ... | ... | |
| 227 | 222 |
You should have received a copy of the GNU General Public License |
| 228 | 223 |
along with this program; if not, write to the Free Software |
| 229 | 224 |
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
| 230 |
=cut |
|
| 225 |
=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.