Database slots for issue #269; deprecating images.

sql/database-create.sql

@@ -2522,6 +2522,9 @@ CREATE TABLE `image_versions` (
   `nodetypes` text default NULL,
   `uploader_path` tinytext,
   `notes` mediumtext,
+  `deprecated` datetime default NULL,
+  `deprecated_iserror` tinyint(1) NOT NULL default '0',
+  `deprecated_message` mediumtext,
   PRIMARY KEY  (`imageid`,`version`),
   KEY `pid` (`pid`,`imagename`,`version`),
   KEY `gid` (`gid`),

sql/updates/4/583

+use strict;
+use libdb;
+
+sub DoUpdate($$$)
+{
+    my ($dbhandle, $dbname, $version) = @_;
+
+    if (!DBSlotExists("image_versions", "deprecated")) {
+        DBQueryFatal("alter table image_versions " .
+	     "  add `deprecated` datetime default NULL, ".
+	     "  add `deprecated_iserror` tinyint(1) NOT NULL default '0', ".
+	     "  add `deprecated_message` mediumtext");
+    }
+    return 0;
+}
+
+# Local Variables:
+# mode:perl
+# End: