From 22ea5575326db4838c879212820a40669c274fc1 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 31 Aug 2009 20:37:15 +0000
Subject: [PATCH] Give EMS'es default values for Schedule Locations per Page. 
 Fixes #10868.

---
 docs/changelog/7.x.x.txt               |  1 +
 docs/upgrades/upgrade_7.7.18-7.7.19.pl | 12 ++++++++++++
 2 files changed, 13 insertions(+)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 24af5a3ab..12baeb32c 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,4 +1,5 @@
 7.7.19
+ - fixed #10868: EMS Schedule screen won't display
  - fixed #10857: Wrong entry i18n: Asset_TimeTracking.pm
  - fixed #10839: Ad Sales: Uploaded Images Disappear
  - fixed #10851: Search Template Pagination
diff --git a/docs/upgrades/upgrade_7.7.18-7.7.19.pl b/docs/upgrades/upgrade_7.7.18-7.7.19.pl
index 906b3a8db..06dbb6188 100644
--- a/docs/upgrades/upgrade_7.7.18-7.7.19.pl
+++ b/docs/upgrades/upgrade_7.7.18-7.7.19.pl
@@ -36,6 +36,7 @@ my $session = start(); # this line required
 addInboxSmsNotificationTemplateIdSetting($session);
 upgradeJSONDatabaseFields($session); 
 moveCalendarFeedsToJSON($session); 
+addEmsScheduleColumnsDefaultValue($session)
 finish($session); # this line required
 
 #----------------------------------------------------------------------------
@@ -47,6 +48,17 @@ finish($session); # this line required
 #    print "DONE!\n" unless $quiet;
 #}
 
+#----------------------------------------------------------------------------
+sub addEmsScheduleColumnsDefaultValue {
+    my $session = shift;
+    print "\tAdding default value for EMS Schedule Columns per Page..." unless $quiet;
+
+    $session->db->write( 'UPDATE TABLE EventManagementSystem set scheduleColumnsPerPage=5 where scheduleColumnsPerPage IS NULL' );
+
+    print "Done\n" unless $quiet;
+
+}
+
 sub addInboxSmsNotificationTemplateIdSetting {
     my $session = shift;
     print "\tAdding inboxSmsNotificationTemplateId setting... " unless $quiet;