This commit is contained in:
Matthew Wilson 2005-10-17 20:09:57 +00:00
parent 5246978a32
commit 5790060655

View file

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