Asset->get should return a copy of the properties hashref

docs/changelog/7.x.x.txt

@@ -1,6 +1,8 @@
 7.3.9
  - fix: Can't add task to project management (perlDreamer Consulting, LLC)
  - fix: Error in RSS Feed (perlDreamer Consulting, LLC)
+ - rfe: Asset->get should return a copy of the properties hashref
+
 
 7.3.8
  - Fixed a template variable rewriting problem with HTML::Template::Expr

lib/WebGUI/Asset.pm

@@ -461,7 +461,8 @@ sub get {
 	if (defined $propertyName) {
 		return $self->{_properties}{$propertyName};
 	}
-	return $self->{_properties};
+	my %copyOfHashRef = %{$self->{_properties}};
+	return \%copyOfHashRef;
 }
 
 

lib/WebGUI/AssetClipboard.pm

@@ -78,8 +78,7 @@ Assets that normally autocommit their workflows (like CS Posts, and Wiki Pages)
 sub duplicate {
         my $self = shift;
 	my $options = shift;
-	my %assetProperties = %{$self->get()};
-        my $newAsset = $self->getParent->addChild(\%assetProperties, undef, undef, {skipAutoCommitWorkflows=>$options->{skipAutoCommitWorkflows}});
+        my $newAsset = $self->getParent->addChild($self->get, 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}]);