migrated WebGUI::Icon api to use new session

This commit is contained in:
JT Smith 2006-01-11 23:12:07 +00:00
parent b3974c0cd5
commit 2735385050
33 changed files with 289 additions and 278 deletions

View file

@ -24,6 +24,7 @@ use WebGUI::Session::Env;
use WebGUI::Session::ErrorHandler;
use WebGUI::Session::Form;
use WebGUI::Session::Http;
use WebGUI::Session::Icon;
use WebGUI::Session::Os;
use WebGUI::Session::Privilege;
use WebGUI::Session::Scratch;
@ -242,7 +243,7 @@ sub getId {
=head2 http ( )
Returns a reference to the WebGUI::HTTP object.
Returns a reference to the WebGUI::Session::Http object.
=cut
@ -255,6 +256,23 @@ sub http {
}
#-------------------------------------------------------------------
=head2 icon ( )
Returns a WebGUI::Session::Icon object.
=cut
sub icon {
my $self = shift;
unless ($self->{_icon}) {
$self->{_icon} = WebGUI::Session::Icon->new($session);
}
return $self->{_icon};
}
#-------------------------------------------------------------------
=head2 open ( webguiRoot, configFile [, requestObject, serverObject, sessionId ] )