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

lots o' fixes.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-15 04:25:33 +00:00
parent adce5c8094
commit 250d8ff944
16 changed files with 64 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Asset/Event.pm
View file

@ -25,8 +25,9 @@ our @ISA = qw(WebGUI::Asset);
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($self->session,"Asset_Event");
my $i18n = WebGUI::International->new($session,"Asset_Event");
push(@{$definition}, {
assetName=>$i18n->get('assetName'),
icon=>'calendar.gif',
@ -59,7 +60,7 @@ sub definition {
}
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session,$definition);
}
#-------------------------------------------------------------------

5
lib/WebGUI/Asset/Post.pm
View file

@ -102,8 +102,9 @@ sub chopTitle {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($self->session,"Asset_Post");
my $i18n = WebGUI::International->new($session,"Asset_Post");
push(@{$definition}, {
assetName=>$i18n->get('assetName'),
icon=>'post.gif',
@ -173,7 +174,7 @@ sub definition {
}
},
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session,$definition);
}

6
lib/WebGUI/Asset/Redirect.pm
View file

@ -58,9 +58,9 @@ sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($session);
my $i18n = WebGUI::International->new($session,"Asset_Redirect");
push(@{$definition}, {
assetName=>$i18n->get('assetName',"Asset_Redirect"),
assetName=>$i18n->get('assetName'),
uiLevel => 9,
icon=>'redirect.gif',
tableName=>'redirect',
@ -72,7 +72,7 @@ sub definition {
}
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session,$definition);
}

5
lib/WebGUI/Asset/Shortcut.pm
View file

@ -155,8 +155,9 @@ sub canManage {
#-------------------------------------------------------------------
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($self->session,"Asset_Shortcut");
my $i18n = WebGUI::International->new($session,"Asset_Shortcut");
push(@{$definition}, {
assetName=>$i18n->get('assetName'),
icon=>'shortcut.gif',
@ -206,7 +207,7 @@ sub definition {
}
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session,$definition);
}
#-------------------------------------------------------------------

5
lib/WebGUI/Asset/Snippet.pm
View file

@ -57,8 +57,9 @@ A hash reference passed in from a subclass definition.
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($self->session,"Asset_Snippet");
my $i18n = WebGUI::International->new($session,"Asset_Snippet");
push(@{$definition}, {
assetName=>$i18n->get('assetName'),
uiLevel => 5,
@ -81,7 +82,7 @@ sub definition {
}
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session,$definition);
}

10
lib/WebGUI/Asset/Wobject.pm
View file

@ -60,8 +60,9 @@ An array of hashes to prepend to the list
sub definition {
my $class = shift;
my $session = shift;
my $definition = shift;
my $i18n = WebGUI::International->new($self->session,'Wobject');
my $i18n = WebGUI::International->new($session,'Wobject');
my %properties;
tie %properties, 'Tie::IxHash';
%properties = (
@ -119,7 +120,7 @@ sub definition {
autoGenerateForms=>1,
properties => \%properties
});
return $class->SUPER::definition($definition);
return $class->SUPER::definition($session,$definition);
}
@ -191,6 +192,7 @@ A comparison expression to be used when checking whether the action should be al
=cut
sub confirm {
my $self = shift;
return $self->session->privilege->vitalComponent() if ($_[4]);
my $noURL = $_[3] || $_[0]->getUrl;
my $i18n = WebGUI::International->new($self->session,'Wobject');
@ -278,8 +280,8 @@ Logs the view of the wobject to the passive profiling mechanism.
sub logView {
my $self = shift;
if ($self->session->setting->get("passiveProfilingEnabled")) {
WebGUI::PassiveProfiling::add($session,$self->get("assetId"));
WebGUI::PassiveProfiling::addPage($session,$self->get("assetId")); # add wobjects on asset to passive profile log
WebGUI::PassiveProfiling::add($self->session,$self->get("assetId"));
WebGUI::PassiveProfiling::addPage($self->session,$self->get("assetId")); # add wobjects on asset to passive profile log
}
return;
}