From 7a1d96f75244e9a2624c9f9b46ecb5e03e133401 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Thu, 7 May 2009 17:27:56 +0000
Subject: [PATCH] fix bug with packed extra head tags

---
 lib/WebGUI/AssetVersioning.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/WebGUI/AssetVersioning.pm b/lib/WebGUI/AssetVersioning.pm
index 9ee3f9422..cf4f036a1 100644
--- a/lib/WebGUI/AssetVersioning.pm
+++ b/lib/WebGUI/AssetVersioning.pm
@@ -144,6 +144,9 @@ sub addRevision {
 	# merge the defaults, current values, and the user set properties
 	my %mergedProperties = (%defaults, %{$self->get}, %{$properties}, (status => 'pending'));
     
+    # Force the packed head block to be regenerated
+    delete $mergedProperties{extraHeadTagsPacked};
+
     #Instantiate new revision and fill with real data
     my $newVersion = WebGUI::Asset->new($self->session,$self->getId, $self->get("className"), $now);
     $newVersion->setSkipNotification if ($options->{skipNotification});