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

fix categories after refactor

Browse source
This commit is contained in:
Doug Bell 2010-10-06 16:34:22 -05:00
parent 12c0732f50
commit 5f7cd09f57
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Admin.pm
View file

@ -102,6 +102,7 @@ asset class. Info will include at least the following keys:
uiLevel => The UI Level of the asset uiLevel => The UI Level of the asset
canAdd => True if the current user can add the asset canAdd => True if the current user can add the asset
url => URL to add the asset url => URL to add the asset
category => A string or an arrayref of categories
=cut =cut
@ -120,6 +121,7 @@ sub getAssetTypes {
next unless defined $dummy; next unless defined $dummy;
$assetList{ $class } = { $assetList{ $class } = {
( %$assetConfig ),
url => 'func=add;className=' . $class, url => 'func=add;className=' . $class,
icon => $dummy->getIcon(1), # default icon is small for back-compat icon => $dummy->getIcon(1), # default icon is small for back-compat
icon_full => $dummy->getIcon, icon_full => $dummy->getIcon,
@ -176,7 +178,7 @@ sub getNewContentTemplateVars {
my $assetConfig = $assetList{$assetClass}; my $assetConfig = $assetList{$assetClass};
next unless $assetConfig->{canAdd}; next unless $assetConfig->{canAdd};
next unless $assetConfig->{uiLevel} > $userUiLevel; next unless $assetConfig->{uiLevel} <= $userUiLevel;
# Add the asset to all categories it should appear in # Add the asset to all categories it should appear in
my @assetCategories = ref $assetConfig->{category} ? @{ $assetConfig->{category} } : $assetConfig->{category}; my @assetCategories = ref $assetConfig->{category} ? @{ $assetConfig->{category} } : $assetConfig->{category};