When duplicating assets keywords are not copied.

A patch is included below. Note that this patch is not against the latest revision (otherwise I would've applied it myself), but rather against rev. 7438.

Application is easy though. The code should be appended to the end of WebGUI::AssetClipboard->duplicate, just before the return statement.

Diff:

[code]

martin@martin:/data/WebGUI/lib$ svn diff WebGUI/AssetClipboard.pm
Index: WebGUI/AssetClipboard.pm
===================================================================
--- WebGUI/AssetClipboard.pm    (revision 7438)
+++ WebGUI/AssetClipboard.pm    (working copy)
@@ -90,6 +90,17 @@
         $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;
 }
[/code]