--- trunk/lib/Transports/Model/Source.pm	2006/05/04 15:12:03	1
+++ trunk/lib/Transports/Model/Source.pm	2006/05/26 18:35:08	22
@@ -18,10 +18,34 @@
 
 # Your model-specific methods go here.
 
+=head1 available_values
+
+return all names
+
+=cut
+
 sub available_values {
 	my $self = shift;
 	return $self->column("name")->valid_values;
 }
 
+=head2 current_user_can ACTION
+
+Let everybody create, read and update, but not delete.
+
+=cut
+
+sub current_user_can {
+    my $self = shift;
+    my $type = shift;
+
+    # We probably want something like this eventually:
+    if ($type =~ /(?:create|read|update)/i) {
+        return 1;
+    } else {
+        return $self->SUPER::current_user_can($type, @_);
+    }
+}
+
 1;