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

Update AssetPackage for Moose and exceptions. t/Asset/AssetPackage is passing.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-26 15:43:52 -08:00
parent 0f32e9b6fb
commit 9bc1f2fe8e
1 changed files with 20 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

39
lib/WebGUI/AssetPackage.pm
View file

@ -127,27 +127,27 @@ from the asset where it is deployed.
sub importAssetData { sub importAssetData {
my $self = shift; my $self = shift;
my $session = $self->session;
my $data = shift; my $data = shift;
my $options = shift || {}; my $options = shift || {};
my $error = $self->session->errorHandler; my $error = $session->errorHandler;
my $id = $data->{properties}{assetId}; my $id = $data->{properties}{assetId};
my $class = $data->{properties}{className}; my $class = $data->{properties}{className};
my $version = $data->{properties}{revisionDate}; my $version = $data->{properties}{revisionDate};
# Load the class # Load the class
WebGUI::Asset->loadModule( $self->session, $class ); WebGUI::Asset->loadModule( $session, $class );
my $asset;
my $revisionExists = WebGUI::Asset->new($self->session, $id, $class, $version);
my %properties = %{ $data->{properties} }; my %properties = %{ $data->{properties} };
if ($options->{inheritPermissions}) { if ($options->{inheritPermissions}) {
delete $properties{ownerUserId}; delete $properties{ownerUserId};
delete $properties{groupIdView}; delete $properties{groupIdView};
delete $properties{groupIdEdit}; delete $properties{groupIdEdit};
} }
if ($revisionExists) { # update an existing revision
$asset = WebGUI::Asset->new($self->session, $id, $class, $version);
my $asset = eval { $class->new($session, $id, $version); };
if (! Exception::Class->caught()) { # update an existing revision
##If the existing asset is not committed, do not allow the new package data to ##If the existing asset is not committed, do not allow the new package data to
##change the version control status. ##change the version control status.
if ( $asset->get('status') eq 'pending' if ( $asset->get('status') eq 'pending'
@ -158,17 +158,17 @@ sub importAssetData {
$asset->update(\%properties); $asset->update(\%properties);
##Pending assets are assigned a new version tag ##Pending assets are assigned a new version tag
if ($properties{status} eq 'pending') { if ($properties{status} eq 'pending') {
$self->session->db->write( $session->db->write(
'update assetData set tagId=? where assetId=? and revisionDate=?', 'update assetData set tagId=? where assetId=? and revisionDate=?',
[WebGUI::VersionTag->getWorking($self->session)->getId, $properties{assetId}, $properties{revisionDate},] [WebGUI::VersionTag->getWorking($session)->getId, $properties{assetId}, $properties{revisionDate},]
); );
} }
} }
else { else {
eval { eval {
$asset = WebGUI::Asset->newPending($self->session, $id, $class); $asset = WebGUI::Asset->newPending($session, $id);
}; };
if (defined $asset) { # create a new revision of an existing asset if (! Exception::Class->caught()) { # create a new revision of an existing asset
$error->info("Creating a new revision of asset $id"); $error->info("Creating a new revision of asset $id");
$asset = $asset->addRevision($data->{properties}, $version, {skipAutoCommitWorkflows => 1}); $asset = $asset->addRevision($data->{properties}, $version, {skipAutoCommitWorkflows => 1});
} }
@ -277,15 +277,16 @@ current asset.
=cut =cut
sub www_deployPackage { sub www_deployPackage {
my $self = shift; my $self = shift;
my $session = $self->session;
# Must have edit rights to the asset deploying the package. Also, must be a Content Manager. # Must have edit rights to the asset deploying the package. Also, must be a Content Manager.
# This protects against non content managers deploying packages using a post or similar trickery. # This protects against non content managers deploying packages using a post or similar trickery.
return $self->session->privilege->insufficient() unless ($self->canEdit && $self->session->user->isInGroup(4)); return $session->privilege->insufficient() unless ($self->canEdit && $session->user->isInGroup(4));
my $packageMasterAssetId = $self->session->form->param("assetId"); my $packageMasterAssetId = $session->form->param("assetId");
if (defined $packageMasterAssetId) { if (defined $packageMasterAssetId) {
my $packageMasterAsset = WebGUI::Asset->newById($self->session, $packageMasterAssetId); my $packageMasterAsset = WebGUI::Asset->newById($session, $packageMasterAssetId);
unless ($packageMasterAsset->get('isPackage')) { #only deploy packages unless ($packageMasterAsset->get('isPackage')) { #only deploy packages
$self->session->errorHandler->security('deploy an asset as a package which was not set as a package.'); $session->errorHandler->security('deploy an asset as a package which was not set as a package.');
return undef; return undef;
} }
my $masterLineage = $packageMasterAsset->get("lineage"); my $masterLineage = $packageMasterAsset->get("lineage");
@ -295,16 +296,16 @@ sub www_deployPackage {
$deployedTreeMaster->update({isPackage=>0, styleTemplateId=>$self->get("styleTemplateId")}); $deployedTreeMaster->update({isPackage=>0, styleTemplateId=>$self->get("styleTemplateId")});
} }
} }
if (WebGUI::VersionTag->autoCommitWorkingIfEnabled($self->session, { if (WebGUI::VersionTag->autoCommitWorkingIfEnabled($session, {
allowComments => 1, allowComments => 1,
returnUrl => $self->getUrl, returnUrl => $self->getUrl,
}) eq 'redirect') { }) eq 'redirect') {
return undef; return undef;
}; };
if ($self->session->form->param("proceed") eq "manageAssets") { if ($session->form->param("proceed") eq "manageAssets") {
$self->session->http->setRedirect($self->getManagerUrl); $session->http->setRedirect($self->getManagerUrl);
} else { } else {
$self->session->http->setRedirect($self->getUrl()); $session->http->setRedirect($self->getUrl());
} }
return undef; return undef;
} }