98_copy.pm: copy userattr first so that userattrs can be copied also.

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7733 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/FHEM/98_copy.pm

@@ -32,7 +32,13 @@ CommandCopy($$)
   my $ret = CommandDefine($hash, $cmd );
   return $ret if( $ret );
 
+  my $a = 'userattr';
+  if( $attr{$args[0]} && $attr{$args[0]}{$a} ) {
+    CommandAttr($hash, "$args[1] $a $attr{$args[0]}{$a}");
+  }
+
   foreach my $a (keys %{$attr{$args[0]}}) {
+    next if( $a eq 'userattr' );
     CommandAttr($hash, "$args[1] $a $attr{$args[0]}{$a}");
   }
 }