From 7e261bdf79dc85f54c1e805e0ddc7f628f404e23 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 18 Jul 2008 03:06:05 +0000
Subject: [PATCH] Clean up an old, empty template from old Shop work.

---
 docs/upgrades/upgrade_7.5.17-7.5.18.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/docs/upgrades/upgrade_7.5.17-7.5.18.pl b/docs/upgrades/upgrade_7.5.17-7.5.18.pl
index c283599cf..0acaffda0 100644
--- a/docs/upgrades/upgrade_7.5.17-7.5.18.pl
+++ b/docs/upgrades/upgrade_7.5.17-7.5.18.pl
@@ -30,9 +30,23 @@ my $session = start(); # this line required
 
 # upgrade functions go here
 
+nukeAnEmptyTemplate($session);
+
 finish($session); # this line required
 
 
+#----------------------------------------------------------------------------
+# Describe what our function does
+sub nukeAnEmptyTemplate {
+    my $session = shift;
+    print "\tNuke an empty template from old Shop work" unless $quiet;
+    # and here's our code
+    my $emptyTemplate = WebGUI::Asset->new($session, 'UTmPS_SxenN2XrWEnB4uyQ');
+    return unless defined $emptyTemplate;
+    $emptyTemplate->purge;
+    print "DONE!\n" unless $quiet;
+}
+
 #----------------------------------------------------------------------------
 # Describe what our function does
 #sub exampleFunction {