--- trunk/lib/SQLSession/Model/Page.pm	2006/12/03 13:45:00	14
+++ trunk/lib/SQLSession/Model/Query.pm	2006/12/07 23:22:41	31
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-package SQLSession::Model::Page;
+package SQLSession::Model::Query;
 use Jifty::DBI::Schema;
 use SQLSession::Model::Database;
 
@@ -10,7 +10,7 @@
 		type is 'text',
 		label is 'Name of query',
 		distinct,
-		hints is 'Short name of this page',
+		hints is 'Short name for this query',
 		mandatory;
 
 	column sql_query =>
@@ -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;