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

Update Macros for wg8 instanciators.

Browse source
This commit is contained in:
Colin Kuskie 2010-03-04 08:48:27 -08:00
parent 35e1e8c943
commit f17fc5c7ad
12 changed files with 39 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

46
lib/WebGUI/Macro/EditableToggle.pm
View file

@ -48,28 +48,30 @@ The URL of a template from the Macro/EditableToggle namespace to use for formatt
#-------------------------------------------------------------------
sub process {
my $session = shift;
if ($session->asset && $session->asset->canEdit && $session->user->isInGroup(12)) {
my %var;
my @param = @_;
my $i18n = WebGUI::International->new($session,'Macro_EditableToggle');
my $turnOn = $param[0] || $i18n->get(516);
my $turnOff = $param[1] || $i18n->get(517);
if ($session->var->isAdminOn) {
$var{'toggle.url'} = $session->url->page('op=switchOffAdmin');
$var{'toggle.text'} = $turnOff;
} else {
$var{'toggle.url'} = $session->url->page('op=switchOnAdmin');
$var{'toggle.text'} = $turnOn;
}
if ($param[2]) {
return WebGUI::Asset::Template->newByUrl($session,$param[2])->process(\%var);
} else {
return WebGUI::Asset::Template->new($session,"PBtmpl0000000000000038")->process(\%var);
}
}
return "";
}
my $session = shift;
if ( $session->asset && $session->asset->canEdit && $session->user->isInGroup(12) ) {
my %var;
my @param = @_;
my $i18n = WebGUI::International->new( $session, 'Macro_EditableToggle' );
my $turnOn = $param[0] || $i18n->get(516);
my $turnOff = $param[1] || $i18n->get(517);
if ( $session->var->isAdminOn ) {
$var{'toggle.url'} = $session->url->page('op=switchOffAdmin');
$var{'toggle.text'} = $turnOff;
}
else {
$var{'toggle.url'} = $session->url->page('op=switchOnAdmin');
$var{'toggle.text'} = $turnOn;
}
if ( $param[2] ) {
return WebGUI::Asset::Template->newByUrl( $session, $param[2] )->process( \%var );
}
else {
return WebGUI::Asset::Template->newById( $session, "PBtmpl0000000000000038" )->process( \%var );
}
} ## end if ( $session->asset &&...)
return "";
} ## end sub process
1;