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

sessionify duplicate. Tweak AssetClipboard test to use Moose methods.

Browse source
This commit is contained in:
Colin Kuskie 2010-01-22 18:36:54 -08:00
parent de34ab3b95
commit 5b24340994
2 changed files with 16 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/AssetClipboard.pm
View file

@ -93,25 +93,26 @@ Assets that normally autocommit their workflows (like CS Posts, and Wiki Pages)
sub duplicate {
my $self = shift;
my $session = $self->session;
my $options = shift;
my $parent = $self->getParent;
my $newAsset
= $parent->addChild( $self->get, undef, $self->get("revisionDate"), { skipAutoCommitWorkflows => $options->{skipAutoCommitWorkflows} } );
$self->session->log->error(
$session->log->error(
sprintf "Unable to add child %s (%s) to %s (%s)", $self->getTitle, $self->getId, $parent->getTitle, $parent->getId
);
# Duplicate metadata fields
my $sth = $self->session->db->read(
my $sth = $session->db->read(
"select * from metaData_values where assetId = ?",
[$self->getId]
);
while (my $h = $sth->hashRef) {
$self->session->db->write("insert into metaData_values (fieldId, assetId, value) values (?, ?, ?)", [$h->{fieldId}, $newAsset->getId, $h->{value}]);
$session->db->write("insert into metaData_values (fieldId, assetId, value) values (?, ?, ?)", [$h->{fieldId}, $newAsset->getId, $h->{value}]);
}
# Duplicate keywords
my $k = WebGUI::Keyword->new( $self->session );
my $k = WebGUI::Keyword->new( $session );
my $keywords = $k->getKeywordsForAsset( {
asset => $self,
asArrayRef => 1,