Never delete an asset property key.

This commit is contained in:
Colin Kuskie 2009-06-20 00:16:34 +00:00
parent 49c2cfd5fa
commit 61b4e1e826
2 changed files with 11 additions and 10 deletions

View file

@ -486,7 +486,7 @@ Sets the versioning lock to "off" so that this piece of content may be edited on
sub unsetVersionLock { sub unsetVersionLock {
my $self = shift; my $self = shift;
$self->session->db->write("update asset set isLockedBy=NULL where assetId=".$self->session->db->quote($self->getId)); $self->session->db->write("update asset set isLockedBy=NULL where assetId=".$self->session->db->quote($self->getId));
delete $self->{_properties}{isLockedBy}; $self->{_properties}{isLockedBy} = undef;
$self->updateHistory("unlocked"); $self->updateHistory("unlocked");
$self->purgeCache; $self->purgeCache;
} }

View file

@ -28,6 +28,7 @@ use Test::More;
use Test::Deep; use Test::Deep;
use Test::MockObject; use Test::MockObject;
use HTML::TokeParser; use HTML::TokeParser;
use Data::Dumper;
use Storable qw/dclone/; use Storable qw/dclone/;
my $session = WebGUI::Test->session; my $session = WebGUI::Test->session;