--- trunk/lib/SQLSession/Model/Query.pm	2006/12/03 14:01:53	15
+++ trunk/lib/SQLSession/Model/Query.pm	2006/12/07 23:22:41	31
@@ -22,10 +22,27 @@
 		render as 'textarea';
 	
 	column on_database =>
-		refers_to SQLSession::Model::Database by 'name';
+		refers_to SQLSession::Model::Database by 'id',
+		label is 'on database',
+		mandatory;
+	
+	column note =>
+		type is 'text',
+		label is 'Note',
+		render as 'textarea',
+		since 0.0.2;
+	
+	column visible =>
+		type is 'boolean',
+		default is 1,
+		since 0.0.3;
 };
 
 # Your model-specific methods go here.
 
+sub current_user_can {
+	return 1;
+}
+
 1;