oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[ 1328298 ] 6.7.5 random Assets not random

Browse source
This commit is contained in:
Matthew Wilson 2005-10-17 17:12:44 +00:00
parent 9ec6f44072
commit c596ea3f1a
2 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Macro/RandomAssetProxy.pm
View file

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