From 8657769993a5f4090bc1f57cb0c308bc509fb21b Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 25 Apr 2006 03:11:12 +0000
Subject: [PATCH] add keys to userSessionScratch table to make setting existing
 session scratch keys work

---
 docs/upgrades/upgrade_6.8.8-6.99.0.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/docs/upgrades/upgrade_6.8.8-6.99.0.pl b/docs/upgrades/upgrade_6.8.8-6.99.0.pl
index fec662a98..3bc28a5c2 100644
--- a/docs/upgrades/upgrade_6.8.8-6.99.0.pl
+++ b/docs/upgrades/upgrade_6.8.8-6.99.0.pl
@@ -52,6 +52,7 @@ updateArticle();
 updateScratch();
 installSQLForm();
 addResizableTextareas();
+addScratchKeys();
 
 finish($session); # this line required
 
@@ -906,6 +907,12 @@ sub changeDbCacheTimeoutName {
 	$session->db->write("alter table groups change dbCacheTimeout groupCacheTimeout int not null default 3600");
 }
 
+#-------------------------------------------------
+sub addScratchKeys {
+	print "\tAssigning keys to userSessionScratch.\n" unless ($quiet);
+	$session->db->write("alter table userSessionScratch ADD PRIMARY KEY (sessionId, name)");
+}
+
 #-------------------------------------------------
 sub addNavigationMimeType {
 	print "\tAdding Mime Type to Navigations.\n" unless ($quiet);