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

setting $session->user now changes the id for the session as it should

Browse source 
continued adding ad management system
added field sets to htmlform and tab form
This commit is contained in:
JT Smith 2006-04-06 22:28:13 +00:00
parent f9b8582426
commit ae8f3d87f6
13 changed files with 565 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

44
lib/WebGUI/HTMLForm.pm
View file

@ -107,6 +107,46 @@ sub DESTROY {
}
#-------------------------------------------------------------------
=head2 fieldSetEnd ( )
Closes a field set that was opened by fieldSetStart();
=cut
sub fieldSetEnd {
my $self = shift;
my $legend = shift;
$self->{_data} .= "</tbody></table>\n"
."</fieldset>\n"
."<table ".$self->{_tableExtras}.'"><tbody>'
."\n";
}
#-------------------------------------------------------------------
=head2 fieldSetStart ( legend )
Adds a field set grouping to the form. Note, must be closed with fieldSetEnd().
=head3 legend
A text label to appear with the field set.
=cut
sub fieldSetStart {
my $self = shift;
my $legend = shift;
$self->{_data} .= "</tbody></table>\n"
."<fieldset>\n<legend>".$legend."</legend>\n"
."<table ".$self->{_tableExtras}.'"><tbody>'
."\n";
}
#-------------------------------------------------------------------
=head2 new ( [ action, method, extras, enctype, tableExtras ] )
@ -150,10 +190,10 @@ sub new {
method=>($param{method} || $param{'-method'}),
enctype=>($param{enctype} || $param{'-enctype'})
});
$header .= "\n<table ".$param{tableExtras}.'><tbody>';
$header .= "\n<table ".$param{tableExtras}.'"><tbody>';
$footer = "</tbody></table>\n" ;
$footer .= WebGUI::Form::formFooter($session);
bless {_session=>$session, _uiLevelOverride=>$param{uiLevelOverride}, _header => $header, _footer => $footer, _data => ''}, $class;
bless {_session=>$session, _tableExtras=>$param{tableExtras}, _uiLevelOverride=>$param{uiLevelOverride}, _header => $header, _footer => $footer, _data => ''}, $class;
}
#-------------------------------------------------------------------