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

cleaning up

Browse source
This commit is contained in:
Matthew Wilson 2005-10-17 17:39:51 +00:00
parent c596ea3f1a
commit 936cd1a7ef
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -23,11 +23,12 @@ sub process {
my $children = $asset->getLineage(["children"]); my $children = $asset->getLineage(["children"]);
#randomize; #randomize;
srand; srand;
my $randomAssetId = $children->[rand(scalar(@{$children}))]; WebGUI::ErrorHandler::warn(rand(scalar(@{$children})));
my $randomAssetId = $children->[$index1];
my $randomAsset = WebGUI::Asset->newByDynamicClass($randomAssetId); my $randomAsset = WebGUI::Asset->newByDynamicClass($randomAssetId);
if (defined $randomAsset) { if (defined $randomAsset) {
$randomAsset->toggleToolbar; $randomAsset->toggleToolbar;
return $randomAsset->canView ? $randomAsset->view : undef; return $randomAsset->canView ? $randomAsset->view() : undef;
} else { } else {
return "Asset has no children."; return "Asset has no children.";
} }