From f94791fed09eaac343b44b54dc9a6d2e289fb57a Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 26 Jan 2007 04:50:33 +0000
Subject: [PATCH] fixed a duplicate bug where the original asset would get
 trashed

---
 lib/WebGUI/AssetClipboard.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/AssetClipboard.pm b/lib/WebGUI/AssetClipboard.pm
index 46773f8ac..75f3e227d 100644
--- a/lib/WebGUI/AssetClipboard.pm
+++ b/lib/WebGUI/AssetClipboard.pm
@@ -78,7 +78,8 @@ Assets that normally autocommit their workflows (like CS Posts, and Wiki Pages)
 sub duplicate {
         my $self = shift;
 	my $options = shift;
-        my $newAsset = $self->getParent->addChild($self->get, undef, undef, {skipAutoCommitWorkflows=>$options->{skipAutoCommitWorkflows}});
+	my %assetProperties = %{$self->get()};
+        my $newAsset = $self->getParent->addChild(\%assetProperties, undef, undef, {skipAutoCommitWorkflows=>$options->{skipAutoCommitWorkflows}});
         my $sth = $self->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}]);