Adding Ben Simpson's new persistence layer.

lib/WebGUI/Persistent/Query/Delete.pm

@@ -0,0 +1,101 @@
+package WebGUI::Persistent::Query::Delete;
+
+=head1 LEGAL
+
+ -------------------------------------------------------------------
+  WebGUI is Copyright 2001-2003 Plain Black LLC.
+ -------------------------------------------------------------------
+  Please read the legal notices (docs/legal.txt) and the license
+  (docs/license.txt) that came with this distribution before using
+  this software.
+ -------------------------------------------------------------------
+  http://www.plainblack.com                     info@plainblack.com
+ -------------------------------------------------------------------
+
+=cut
+
+use strict;
+use warnings;
+use WebGUI::Persistent::Query;
+
+our @ISA = qw(WebGUI::Persistent::Query);
+
+=head1 NAME
+
+Package WebGUI::Persistent::Query::Insert
+
+=head1 DESCRIPTION
+
+This class allows reliable dynamic building of Sql delete queries.
+
+=head1 SYNOPSIS
+
+ my $query = WebGUI::Persistent::Query::Insert->new(
+   table => 'myTable',
+   where => [A => [1,2],[{C => 'hello',B => 1}]],
+   properties => {
+     A => { },
+     B => { },
+     C => { quote => 1 },
+     D => { quote => 1 },
+   }
+ );
+
+ $query->buildQuery();
+
+Returns:
+
+  DELETE FROM myTable 
+  WHERE A IN (1,2) AND (C = 'hello' OR B = 1)
+
+=cut
+
+#-------------------------------------------------------------------
+
+=head2 buildQuery
+
+=cut
+
+sub buildQuery {
+     my ($self,%p) = @_;
+  
+     my $query = 'DELETE FROM '.$self->{_table};
+     if (my $where = $self->buildWhere()) {
+          $query .= " $where";
+     }
+  
+     return $query;
+}
+
+=head2 new( %p )
+
+=over
+
+=item properties
+
+A hashref of field name to a hash reference of property settings. 
+
+Currently used settings are:
+
+=over
+
+=item * quote
+
+If true values for this field are automatically quoted.
+
+=back
+
+=item table
+
+The name of the table to query.
+
+=item where
+
+A hash reference or array reference of arguments to build a where clause from.
+See parseWhereArgs for details.
+
+=back
+
+=cut
+
+1;