Fixing fractional array indexes in the RandomAssetProxy macro.

docs/changelog/7.x.x.txt

@@ -20,6 +20,7 @@
  - fixed: Add progress bars for promote and demote.
  - fixed: Add progress bars for set rank in the Asset Manager.
  - fixed: SurveyJSON database bloating
+ - fixed #10548: Macro RandomAssetProxy failure to be random
 
 7.7.10
  - Made a change to LDAP auth that adds an OR to that query so that it also searches for a row with fieldData REGEXP '^uid=(value-from-ldap-directory-server),'. (Wes Morgan)

lib/WebGUI/Macro/RandomAssetProxy.pm

@@ -41,7 +41,7 @@ sub process {
 	if (defined $asset) {
 		my $children = $asset->getLineage(["children"]);
 		#randomize;
-		my $randomAssetId = $children->[rand(scalar(@{$children}))];	
+		my $randomAssetId = $children->[int(rand(scalar(@{$children})))];	
 		my $randomAsset = WebGUI::Asset->newByDynamicClass($session,$randomAssetId);
 		if (defined $randomAsset) {
 			if ($randomAsset->canView) {