fixed #8776: duplicate does not duplicate keywords

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

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;
 }