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

- Refactored admin bar to be more dynamic.

Browse source 
- Added version tags menu to admin bar.
This commit is contained in:
JT Smith 2006-03-02 20:39:04 +00:00
parent d86d588e6f
commit dfd2c8f0fa
8 changed files with 168 additions and 103 deletions
Download patch file Download diff file Expand all files Collapse all files

118
lib/WebGUI/Macro/AdminBar.pm
View file

@ -11,13 +11,12 @@ package WebGUI::Macro::AdminBar;
#-------------------------------------------------------------------
use strict qw(refs vars);
use Tie::CPHash;
use Tie::IxHash;
use WebGUI::AdminConsole;
use WebGUI::Asset;
use WebGUI::Asset::Template;
use WebGUI::International;
use WebGUI::Utility;
use WebGUI::VersionTag;
=head1 NAME
@ -46,43 +45,106 @@ sub process {
my @param = @_;
my $templateId = $param[0] || "PBtmpl0000000000000090";
my %var;
my (%cphash, %hash2, %hash, $r, @item, $query);
tie %hash, "Tie::IxHash";
tie %hash2, "Tie::IxHash";
tie %cphash, "Tie::CPHash";
my $i18n = WebGUI::International->new($session,'Macro_AdminBar');
$var{'packages.canAdd'} = ($session->user->profileField("uiLevel") >= 7);
$var{'packages.label'} = $i18n->get(376);
$var{'contentTypes.label'} = $i18n->get(1083);
$var{'clipboard.label'} = $i18n->get(1082);
my @adminbar = ();
my $ac = WebGUI::AdminConsole->new($session);
my @adminConsole = ();
foreach my $item (@{$ac->getAdminFunction}) {
push(@adminConsole, {
title=>$item->{title},
icon=>$item->{'icon.small'},
url=>$item->{url}
});
}
push(@adminbar, {
label => $i18n->get("admin console","AdminConsole"),
name => "adminConsole",
items => \@adminConsole
});
if ($session->asset) {
my @clipboard = ();
foreach my $asset (@{$session->asset->getAssetsInClipboard(1)}) {
my $title = $asset->getTitle;
$title =~ s/'//g; # stops it from breaking the javascript menus
push(@clipboard, {
'title'=>$title,
'url'=>$session->asset->getUrl("func=paste;assetId=".$asset->getId),
icon=>$asset->getIcon(1),
});
}
if (scalar(@clipboard)) {
push(@adminbar, {
label => $i18n->get(1082),
name => "clipboard",
items => \@clipboard
});
}
my @packages = ();
foreach my $package (@{$session->asset->getPackageList}) {
my $title = $package->getTitle;
$title =~ s/'//g; # stops it from breaking the javascript menus
push(@{$var{'package_loop'}},{
'url'=>$session->asset->getUrl("func=deployPackage;assetId=".$package->getId),
'label'=>$title,
'icon.small'=>$package->getIcon(1),
'icon'=>$package->getIcon()
'title'=>$title,
icon=>$package->getIcon(1),
});
}
$var{contentTypes_loop} = $session->asset->getAssetAdderLinks;
$var{container_loop} = $session->asset->getAssetAdderLinks(undef,"assetContainers");
foreach my $asset (@{$session->asset->getAssetsInClipboard(1)}) {
my $title = $asset->getTitle;
$title =~ s/'//g; # stops it from breaking the javascript menus
push(@{$var{clipboard_loop}}, {
'label'=>$title,
'url'=>$session->asset->getUrl("func=paste;assetId=".$asset->getId),
'icon.small'=>$asset->getIcon(1),
'icon'=>$asset->getIcon()
if ($session->user->profileField("uiLevel") >= 7 && scalar(@packages)) {
push(@adminbar, {
label => $i18n->get(376),
name => "packages",
items => \@packages
});
}
}
#--admin functions
my $ac = WebGUI::AdminConsole->new($session);
$var{adminConsole_loop} = $ac->getAdminFunction;
return WebGUI::Asset::Template->new($session,$templateId)->process(\%var);
}
my $working = WebGUI::VersionTag->getWorking($session, 1);
my @tags = ();
if ($working) {
push(@tags, {
url=>$session->url->page("op=commitVersionTag;backToSite=1;tagId=".$working->getId),
label=>$i18n->get("commit my changes"),
icon=>$session->config->get("extrasURL").'/spacer.gif'
});
}
my $rs = $session->db->read("select tagId, name from assetVersionTag where isCommitted=0 and isLocked=0 order by name");
while (my ($id, $name) = $rs->array) {
push(@tags, {
url=>$session->url->page("op=setAsWorkingVersionTag;backToSite=1;tagId=".$id),
label=>$name,
icon=>($id eq $working->getId) ? $session->config->get("extrasURL").'/adminConsole/small/versionTags.gif' : $session->config->get("extrasURL").'/spacer.gif'
});
}
if (scalar(@tags)) {
push(@adminbar, {
label => $i18n->get("version tags"),
name => "versions",
items => \@tags
});
}
if ($session->asset) {
my @assets = ();
foreach my $asset (@{$session->asset->getAssetAdderLinks(undef,"assetContainers")}) {
push(@assets, {
title=>$asset->{label},
icon=>$asset->{'icon.small'},
url=>$asset->{url}
});
}
push(@assets, {icon=>$session->config->get("extrasURL").'/spacer.gif',label=>'<hr />'});
foreach my $asset (@{$session->asset->getAssetAdderLinks}) {
push(@assets, {
title=>$asset->{label},
icon=>$asset->{'icon.small'},
url=>$asset->{url}
});
}
push(@adminbar, {
label => $i18n->get(1083),
name => "newContent",
items => \@assets
});
}
return WebGUI::Asset::Template->new($session,$templateId)->process({adminbar_loop=>\@adminbar});
# 'http://validator.w3.org/check?uri=referer'=>$i18n->get(399),
}