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;