From fe071528533b420569b7646ff2b9206a4c9e17cf Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 9 Oct 2008 14:34:45 +0000
Subject: [PATCH] fixed #8776: duplicate does not duplicate keywords

---
 docs/changelog/7.x.x.txt     |  1 +
 lib/WebGUI/AssetClipboard.pm | 11 +++++++++++
 2 files changed, 12 insertions(+)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index b5264648f..1d1048b36 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -29,6 +29,7 @@
    HTMLAreas (SDH Consulting Group)
  - rfe: Thingy Private Rows (SDH Consulting Group)
  - fixed: Shop: Percentage of Weight Shipping Method doesn't work
+ - fixed #8776: duplicate does not duplicate keywords
 
 7.6.0
  - added: users may now customize the post received page for the CS
diff --git a/lib/WebGUI/AssetClipboard.pm b/lib/WebGUI/AssetClipboard.pm
index 5a52d0162..2315fef7f 100644
--- a/lib/WebGUI/AssetClipboard.pm
+++ b/lib/WebGUI/AssetClipboard.pm
@@ -90,6 +90,17 @@ sub duplicate {
         $self->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 $keywords    = $k->getKeywordsForAsset( {
+        asset       => $self,
+        asArrayRef  => 1,
+    } );
+    $k->setKeywordsForAsset( {
+        asset       => $newAsset,
+        keywords    => $keywords,
+    } );
+
     return $newAsset;
 }