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.

diff --git a/SL/DBUtils.pm b/SL/DBUtils.pm
index a20c026..b8d8f7e 100644 (file)
--- a/SL/DBUtils.pm
+++ b/SL/DBUtils.pm
@@ -100,8 +100,6 @@ sub prepare_execute_query {
 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()) {
@@ -115,8 +113,6 @@ sub selectall_hashref_query {
 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();
@@ -127,8 +123,6 @@ sub selectfirst_hashref_query {
 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();
@@ -205,7 +199,8 @@ SL::DBUTils.pm: All about Databaseconections in Lx
 
 =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
 
@@ -227,4 +222,4 @@ GNU General Public License for more details.
 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    
\ No newline at end of file
+=cut