From 5605c056c76d29f8f105e807249e0cc9f1b28ec7 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 19 Sep 2008 21:54:47 +0000
Subject: [PATCH] added getAll()

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

diff --git a/lib/WebGUI/Crud.pm b/lib/WebGUI/Crud.pm
index ba9a11856..3d5013b90 100644
--- a/lib/WebGUI/Crud.pm
+++ b/lib/WebGUI/Crud.pm
@@ -187,6 +187,22 @@ sub get {
 	return \%copy;
 }
 
+#-------------------------------------------------------------------
+sub getAll {
+	my ($class, $session, $options) = @_;
+	my @objects;
+	my $ids = $session->db->read("select `".$class->crud_getTableKey."` from `".$class->crud_getTableName."`");
+	while (my ($id) = $ids->array) {
+		if ($options->{return} eq "ids") {
+			push @objects, $id;
+		}
+		else {
+			push @objects, $class->new($session, $id);
+		}
+	}
+	return \@objects;
+}
+
 #-------------------------------------------------------------------
 sub getId {
 	my $self = shift;