Add nagged dates to projects and group_membership so we can let users nag

their PIs, but not too often.

sql/database-create.sql

@@ -2022,6 +2022,7 @@ CREATE TABLE `group_membership` (
   `trust` enum('none','user','local_root','group_root','project_root') default NULL,
   `date_applied` date default NULL,
   `date_approved` datetime default NULL,
+  `date_nagged` datetime default NULL,
   PRIMARY KEY  (`uid_idx`,`gid_idx`),
   UNIQUE KEY `uid` (`uid`,`pid`,`gid`),
   KEY `pid` (`pid`),
@@ -4133,6 +4134,7 @@ CREATE TABLE `projects` (
   `pid_idx` mediumint(8) unsigned NOT NULL default '0',
   `created` datetime default NULL,
   `expires` date default NULL,
+  `nagged` datetime default NULL,
   `name` tinytext,
   `URL` tinytext,
   `funders` tinytext,

sql/updates/4/514

+use strict;
+use libdb;
+
+sub DoUpdate($$$)
+{
+    my ($dbhandle, $dbname, $version) = @_;
+
+    if (!DBSlotExists("projects", "nagged")) {
+        DBQueryFatal("alter table projects add ".
+                     "  `nagged` datetime default NULL after expires");
+    }
+    if (!DBSlotExists("group_membership", "date_nagged")) {
+        DBQueryFatal("alter table group_membership add ".
+                     "  `date_nagged` datetime default NULL");
+    }
+    return 0;
+}
+
+# Local Variables:
+# mode:perl
+# End: