removing a bunch of grap we no longer need

This commit is contained in:
JT Smith 2004-12-30 03:17:12 +00:00
parent 4f8489300f
commit 9e31680f41
28 changed files with 52 additions and 8280 deletions

View file

@ -12,13 +12,12 @@ package WebGUI::Macro::CanEditText;
use strict;
use WebGUI::Macro;
use WebGUI::Page;
use WebGUI::Session;
#-------------------------------------------------------------------
sub process {
my @param = WebGUI::Macro::getParams($_[0]);
if (WebGUI::Page::canEdit()) {
if (exists $session{asset} && $session{asset}->canEdit) {
return $param[0];
} else {
return "";

View file

@ -14,14 +14,13 @@ use strict;
use WebGUI::Grouping;
use WebGUI::International;
use WebGUI::Macro;
use WebGUI::Page;
use WebGUI::Session;
use WebGUI::Template;
use WebGUI::URL;
#-------------------------------------------------------------------
sub process {
if (WebGUI::Page::canEdit() && WebGUI::Grouping::isInGroup(12)) {
if (exists $session{asset} && $session{asset}->canEdit && WebGUI::Grouping::isInGroup(12)) {
my %var;
my @param = WebGUI::Macro::getParams($_[0]);
my $turnOn = $param[0] || WebGUI::International::get(516);

View file

@ -11,14 +11,20 @@ package WebGUI::Macro::RootTitle;
#-------------------------------------------------------------------
use strict;
use Tie::CPHash;
use WebGUI::Page;
use WebGUI::Asset;
use WebGUI::Session;
#-------------------------------------------------------------------
sub process {
my $root = WebGUI::Page->getWebGUIRoot;
return $root->get("title");
if (exists $session{asset}) {
my $lineage = $session{asset}->get("lineage");
$lineage = substr($lineage,0,6);
my $root = WebGUI::Asset->newByLineage($lineage);
if (defined $root) {
return $root->get("title");
}
}
return "";
}