From 8d8d5f2d3bcb7c5982559aff820382fc61155fd7 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 24 Apr 2009 19:04:29 +0000
Subject: [PATCH] Do not set the exporting scratch variable in places where it
 is not needed.

---
 lib/WebGUI/Asset/Wobject/StoryArchive.pm | 2 --
 lib/WebGUI/AssetExportHtml.pm            | 1 -
 2 files changed, 3 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/StoryArchive.pm b/lib/WebGUI/Asset/Wobject/StoryArchive.pm
index 1f31ed1bf..4e8991a33 100644
--- a/lib/WebGUI/Asset/Wobject/StoryArchive.pm
+++ b/lib/WebGUI/Asset/Wobject/StoryArchive.pm
@@ -218,8 +218,6 @@ sub exportAssetCollateral {
         undef,
         $self->session->getId,
     );
-    $printSession->scratch->set('isExporting', 1);
-
 
     my $keywordObj = WebGUI::Keyword->new($printSession);
     my $keywords = $keywordObj->findKeywords({
diff --git a/lib/WebGUI/AssetExportHtml.pm b/lib/WebGUI/AssetExportHtml.pm
index 10d447f66..eedc71863 100644
--- a/lib/WebGUI/AssetExportHtml.pm
+++ b/lib/WebGUI/AssetExportHtml.pm
@@ -191,7 +191,6 @@ sub exportAsHtml {
     my $self                = shift;
     my $session             = $self->session;
     # set a scratch variable for Assets to know we're exporting
-    $session->scratch->set('isExporting', 1);
     my ($returnCode, $message);
 
     # get the i18n object