oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix requestAutoCommit. All tests in t/Asset/Asset.t passing.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-22 15:10:23 -08:00
parent e5affbd0c2
commit 451eb33f0f
2 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/AssetVersioning.pm
View file

@ -371,7 +371,7 @@ sub moveAssetToVersionTag {
#
my $moveToTagId = $moveToTag;
if ( ref($moveToTag) eq "WebGUI::VersionTag" ) {
$moveToTagId = $moveToTag->get('tagId');
$moveToTagId = $moveToTag->tagId;
}
else {
$moveToTag = WebGUI::VersionTag->new( $self->session, $moveToTagId );
@ -400,15 +400,15 @@ Requests an autocommit tag be commited. See also getAutoCommitWorkflowId() and s
sub requestAutoCommit {
my $self = shift;
my $parentAsset;
if ( not defined( $parentAsset = $self->getParent ) ) {
$parentAsset = WebGUI::Asset->newPending( $self->session, $self->get('parentId') );
my $parentAsset = eval { $self->getParent; };
if ( Exception::Class->caught() ) {
$parentAsset = WebGUI::Asset->newPending( $self->session, $self->parentId );
}
unless ( $parentAsset->hasBeenCommitted ) {
my $tagId = $parentAsset->get('tagId');
my $tagId = $parentAsset->tagId;
if ($tagId) {
if ( $tagId ne $self->get('tagId') ) {
if ( $tagId ne $self->tagId ) {
$self->moveAssetToVersionTag($tagId);
return;
}
@ -486,7 +486,7 @@ A new version tag id.
sub setVersionTag {
my $self = shift;
my $tagId = shift;
$self->session->db->write("update assetData set tagId=? where assetId=? and tagId = ?", [$tagId, $self->getId,$self->get('tagId')]);
$self->session->db->write("update assetData set tagId=? where assetId=? and tagId = ?", [$tagId, $self->getId,$self->tagId]);
$self->tagId($tagId);
$self->updateHistory("changed version tag to $tagId");
$self->purgeCache;

4
t/Asset/Asset.t
View file

@ -666,8 +666,8 @@ $properties2 = {
url => 'moveVersionToParent_03',
};
my $childAsset = $parentAsset->addChild($properties, $properties2->{id});
my $testAsset = WebGUI::Asset->newPending($session, $childAsset->parentId);
my $childAsset = $parentAsset->addChild($properties, $properties2->{id});
my $testAsset = WebGUI::Asset->newPending($session, $childAsset->parentId);
my $testVersionTag = WebGUI::VersionTag->new($session, $testAsset->tagId);
my $childVersionTag;