Adding Ben Simpson's new persistence layer.

lib/WebGUI/Persistent/Query/Update.pm

@@ -0,0 +1,118 @@
+package WebGUI::Persistent::Query::Update;
+
+=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 insert queries.
+
+=head1 SYNOPSIS
+
+ my $query = WebGUI::Persistent::Query::Insert->new(
+   table => 'myTable',
+   where => [A => [1,2],[{C => 'hello',B => 1}]],
+   data => {
+     A => 1,
+     B => 2,
+     C => 'hello',
+     D => 'world'
+   },
+   properties => {
+     A => { },
+     B => { },
+     C => { quote => 1 },
+     D => { quote => 1 },
+   }
+ );
+
+ $query->buildQuery();
+
+Returns:
+
+  UPDATE myTable SET A = 1, B = 2, C = 'hello' C = 'world'
+  WHERE A IN (1,2) AND (C = 'hello' OR B = 1)
+
+=cut
+
+=head2 buildQuery
+
+=cut
+
+sub buildQuery {
+     my ($self) = @_;
+
+     my @clauses = ('UPDATE',$self->{_table},$self->buildSet());
+     if (my $where = $self->buildWhere()) {
+          push @clauses,$where;
+     }
+
+     return join(' ',@clauses);
+}
+
+sub buildSet {
+     my ($self) = @_;
+     'SET '.join(', ',map {
+          "$_ = ". $self->quote($_,$self->{_data}{$_})
+     } keys %{$self->{_data}});
+}
+
+=head2 new( %p )
+
+=over
+
+=item data
+
+A hash reference of field name to value.
+
+=item properties
+
+=over
+
+=item * quote
+
+If true values for this field are automatically quoted.
+
+=back
+
+=item table
+
+=item where
+
+A hash reference or array reference of arguments to build a where clause from.
+See WebGUI::Persistent::Query::parseWhereArgs for details.
+
+=back
+
+=cut
+
+sub new {
+     my ($class,%p) = @_;
+     my $self = $class->SUPER::new(%p);
+     $self->{_data} = $p{data} || {};
+     return $self;
+}
+
+1;