- fix: Direct 6.8.10-7.2+ Upgrade Problem

docs/changelog/7.x.x.txt

@@ -14,6 +14,8 @@
  - fix: A newly released version of Html::Template fixes a bug with global
    variables and nested loops.  testEnvironment.pl has been updated to
    require that it be used.
+ - fix: Direct 6.8.10-7.2+ Upgrade Problem
+
 
 7.3.8
  - Fixed a template variable rewriting problem with HTML::Template::Expr

docs/gotcha.txt

@@ -81,10 +81,6 @@ save you many hours of grief.
 
 7.2.0
 --------------------------------------------------------------------
- * IMPORTANT:  You must upgrade to 7.1.3 before upgrading to 7.2.0 or
-   higher.  Upgrading from a version prior to 7.1.3 directly to a
-   7.2.x or higher version will cause your upgrade to fail.
-
  * NOTE: if you tried to upgrade to 7.2.0 and it failed during the
    addition of RSS From Parent capability, there have been bugs fixed
    in that section of the relevant upgrade script in 7.2.1.

docs/upgrades/upgrade_6.8.10-6.99.0.pl

@@ -98,7 +98,7 @@ sub updateArticle {
 				}
 				foreach my $child (@{$children}) {
 					$child->getStorageLocation->copy($storage);
-					$child->purge;
+					$child->purge({skipExported=>1});
 				}
 			}
 			if ($asset->get("convertCarriageReturns")) {
@@ -264,7 +264,7 @@ sub convertMessageLogToInbox {
 	while (my ($id) = $rs->array) {
 		my $asset = WebGUI::Asset->new($session, $id, "WebGUI::Asset::Template");
 		if (defined $asset) {
-			$asset->purge;
+			$asset->purge({skipExported=>1});
 		}
 	}
 }
@@ -409,7 +409,7 @@ sub addWorkflow {
 	while (my ($id) = $rs->array) {
 		my $asset = WebGUI::Asset->newByDynamicClass($session, $id);
 		if (defined $asset && $asset->get("status") eq "denied") {
-			$asset->purge;
+			$asset->purge({skipExported=>1});
 		}
 	}
 	$session->db->write("update assetData set status='approved' where status='denied'");
@@ -621,7 +621,7 @@ sub updateTemplates {
 	$session->db->write("alter table template add column headBlock text");
 	my $template = WebGUI::Asset->new($session, "PBtmpl0000000000000003", "WebGUI::Asset::Template");
 	if (defined $template) {
-		$template->purge;
+		$template->purge({skipExported=>1});
 	}
 	opendir(DIR,"templates-6.99.0");
 	my @files = readdir(DIR);
@@ -1035,7 +1035,6 @@ sub removeFiles {
 	unlink '../../lib/WebGUI/ErrorHandler.pm';
 	unlink '../../lib/WebGUI/HTTP.pm';
 	unlink '../../lib/WebGUI/Privilege.pm';
-	unlink '../../lib/WebGUI/DateTime.pm';
 	unlink '../../lib/WebGUI/FormProcessor.pm';
 	unlink '../../lib/WebGUI/URL.pm';
 	unlink '../../lib/WebGUI/Id.pm';

docs/upgrades/upgrade_7.0.2-7.0.3.pl

@@ -51,7 +51,7 @@ sub deleteTemplate {
 	print "\tDeleting a template that was accidentally added.\n" unless ($quiet);
 	my $template = WebGUI::Asset->newByDynamicClass($session, "wCIc38CvNHUK7aY92Ww4SQ");
 	if (defined $template) {
-		$template->purge;
+		$template->purge({skipExported=>1});
 	}
 }