more bugfixes

This commit is contained in:
JT Smith 2006-01-13 05:05:21 +00:00
parent ff4c50f3d5
commit 76da5261d9

View file

@ -200,7 +200,7 @@ sub env {
=head2 errorHandler ( )
Returns a WebGUI::ErrorHandler object.
Returns a WebGUI::Session::ErrorHandler object.
=cut
@ -214,6 +214,22 @@ sub errorHandler {
#-------------------------------------------------------------------
=head2 form ( )
Returns a WebGUI::Session::Form object.
=cut
sub form {
my $self = shift;
unless (exists $self->{_form}) {
$self->{_form} = WebGUI::Session::Form->new($self);
}
return $self->{_form};
}
#-------------------------------------------------------------------
=head2 getId ( )
Returns the current session Id.