fix bug with packed extra head tags

This commit is contained in:
Doug Bell 2009-05-07 17:27:56 +00:00
parent c93075519f
commit 7a1d96f752

View file

@ -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});