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

Don't blow up on view when there are no WebGUI::Asset::WikiPage

Browse source 
child objects under us to feature.  Also, the only reason that -1
on the rand works is because Perl is nice.
This commit is contained in:
Scott Walters 2010-08-09 15:17:00 -04:00
parent c1a918493f
commit d57d9ff962
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Asset/Wobject/WikiMaster.pm
View file

@ -836,10 +836,13 @@ sub view {
# Get a random featured page
my $featuredIds = $self->getFeaturedPageIds;
my $featuredId = $featuredIds->[ int( rand @$featuredIds ) - 1 ];
my $featured = WebGUI::Asset->newById( $session, $featuredId );
if ( $featured ) {
$self->appendFeaturedPageVars( $var, $featured );
if( @$featuredIds ) {
my $featuredId = $featuredIds->[ int( rand @$featuredIds ) - 1 ];
my $featured = WebGUI::Asset->newById( $session, $featuredId );
if ( $featured ) {
$self->appendFeaturedPageVars( $var, $featured );
}
}
$self->appendSearchBoxVars($var);