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

Update AdminConsole for instaniators.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-03 19:42:50 -08:00
parent aab930a1f5
commit 19d4e6da3f
1 changed files with 17 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lib/WebGUI/AdminConsole.pm
View file

@ -259,12 +259,13 @@ A string that defaults to _function's title.
sub render { sub render {
my $self = shift; my $self = shift;
$self->session->http->setCacheControl("none"); my $session = $self->session;
$session->http->setCacheControl("none");
my %var; my %var;
$var{"application_loop"} = $self->getAdminFunction; $var{"application_loop"} = $self->getAdminFunction;
$var{"application.workarea"} = shift; $var{"application.workarea"} = shift;
$var{"application.title"} = shift || $self->{_function}{title}; $var{"application.title"} = shift || $self->{_function}{title};
my $i18n = WebGUI::International->new($self->session, "AdminConsole"); my $i18n = WebGUI::International->new($session, "AdminConsole");
$var{"backtosite.label"} = $i18n->get("493", "WebGUI"); $var{"backtosite.label"} = $i18n->get("493", "WebGUI");
$var{"toggle.on.label"} = $i18n->get("toggle on"); $var{"toggle.on.label"} = $i18n->get("toggle on");
$var{"toggle.off.label"} = $i18n->get("toggle off"); $var{"toggle.off.label"} = $i18n->get("toggle off");
@ -280,21 +281,21 @@ sub render {
$var{"console.canUse"} = $acParams->{canUse}; $var{"console.canUse"} = $acParams->{canUse};
$var{"console.icon"} = $acParams->{icon}; $var{"console.icon"} = $acParams->{icon};
$var{"help.url"} = $self->{_helpUrl}; $var{"help.url"} = $self->{_helpUrl};
my $working = WebGUI::VersionTag->getWorking($self->session, 1); my $working = WebGUI::VersionTag->getWorking($session, 1);
my $workingId = ""; my $workingId = "";
my @tags = (); my @tags = ();
if ($working) { if ($working) {
$workingId = $working->getId; $workingId = $working->getId;
push(@tags, { push(@tags, {
url=>$self->session->url->page("op=commitVersionTag;tagId=".$workingId), url=>$session->url->page("op=commitVersionTag;tagId=".$workingId),
title=>$i18n->get("commit my changes","Macro_AdminBar"), title=>$i18n->get("commit my changes","Macro_AdminBar"),
icon=>$self->session->url->extras('adminConsole/small/versionTags.gif') icon=>$session->url->extras('adminConsole/small/versionTags.gif')
}); });
} }
foreach my $tag (@{WebGUI::VersionTag->getOpenTags($self->session)}) { foreach my $tag (@{WebGUI::VersionTag->getOpenTags($session)}) {
next unless $self->session->user->isInGroup($tag->get("groupToUse")); next unless $session->user->isInGroup($tag->get("groupToUse"));
push(@tags, { push(@tags, {
url=>$self->session->url->page("op=setWorkingVersionTag;tagId=".$tag->getId), url=>$session->url->page("op=setWorkingVersionTag;tagId=".$tag->getId),
title=>($tag->getId eq $workingId) ? '* '.$tag->get("name") : $tag->get("name"), title=>($tag->getId eq $workingId) ? '* '.$tag->get("name") : $tag->get("name"),
}); });
} }
@ -302,21 +303,21 @@ sub render {
$var{versionTags} = \@tags; $var{versionTags} = \@tags;
} }
$var{"backtosite.url"} = $self->session->url->getBackToSiteURL(); $var{"backtosite.url"} = $session->url->getBackToSiteURL();
my $formId = $self->getSubmenuFormId; my $formId = $self->getSubmenuFormId;
$var{"formHeader"} = WebGUI::Form::formHeader($self->session, { action => $self->{_formUrl}, extras => qq|id='$formId'|, }); $var{"formHeader"} = WebGUI::Form::formHeader($session, { action => $self->{_formUrl}, extras => qq|id='$formId'|, });
$var{"formFooter"} = WebGUI::Form::formFooter($self->session); $var{"formFooter"} = WebGUI::Form::formFooter($session);
my $template my $template
= WebGUI::Asset::Template->new( = WebGUI::Asset::Template->newById(
$self->session, $session,
$self->session->setting->get("AdminConsoleTemplate") $session->setting->get("AdminConsoleTemplate")
); );
if ( $self->{_options}->{showAdminBar} ) { if ( $self->{_options}->{showAdminBar} ) {
$var{adminBar} $var{adminBar}
= WebGUI::Macro::AdminBar::process($self->session); = WebGUI::Macro::AdminBar::process($session);
} }
my $output = $template->process(\%var); my $output = $template->process(\%var);
return $self->session->style->process($output,"PBtmpl0000000000000137"); return $session->style->process($output,"PBtmpl0000000000000137");
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------