From 3f0a3eb527994503682993e595d56e7e206e0a80 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Mon, 3 Nov 2008 21:29:13 +0000
Subject: [PATCH] allow updates via form post

---
 lib/WebGUI/Crud.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/lib/WebGUI/Crud.pm b/lib/WebGUI/Crud.pm
index 3908ee65c..ecbabe46d 100644
--- a/lib/WebGUI/Crud.pm
+++ b/lib/WebGUI/Crud.pm
@@ -938,5 +938,25 @@ sub update {
 	return 1;
 }
 
+#-------------------------------------------------------------------
+
+=head2 updateFromFormPost ( )
+
+Calls update() on any properties that are available from $session->form. Returns 1 on success.
+
+=cut
+
+sub updateFromFormPost {
+	my $self = shift;
+	my $session = $self->session;
+	my $form = $session->form;
+	my %data;
+	my $properties = $self->crud_getProperties($session);
+	foreach my $property ($form->param) {
+		$data{$property} = $form->get($property, $properties->{$property}{fieldType}, $properties->{$property}{defaultValue});
+	}
+	return $self->update(\%data);
+}
+
 
 1;