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

Added a "Cancel" button to each tab form

Browse source
This commit is contained in:
Len Kranendonk 2004-10-29 21:30:10 +00:00
parent ab6e7c67ef
commit a189f52942
3 changed files with 14 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/TabForm.pm
View file

@ -151,14 +151,18 @@ A string containing the link to the tab-CascadingStyleSheet
=cut
sub new {
my ($class, $tabs, $css);
my ($cancel, $class, $tabs, $css);
$class = $_[0];
$tabs = $_[1];
$css = $_[2] || $session{config}{extrasURL}.'/tabs/tabs.css';
foreach my $key (keys %{$tabs}) {
$tabs->{$key}{form} = WebGUI::HTMLForm->new;
}
bless { _submit=>WebGUI::Form::submit(), _form=>WebGUI::Form::formHeader(), _hidden=>"", _tab=>$tabs, _css=>$css }, $class;
$cancel = WebGUI::Form::button({
value=>WebGUI::International::get('cancel'),
extras=>q|onClick="location.href='|.WebGUI::URL::page().q|'"|
});
bless { _cancel=>$cancel, _submit=>WebGUI::Form::submit(), _form=>WebGUI::Form::formHeader(), _hidden=>"", _tab=>$tabs, _css=>$css }, $class;
}
@ -191,7 +195,7 @@ sub print {
$form .= '</table></div>';
$i++;
}
$output .= '<div class="tabs">'.$tabs.$_[0]->{_submit}.'</div>';
$output .= '<div class="tabs">'.$tabs.$_[0]->{_submit}."&nbsp;&nbsp;".$_[0]->{_cancel}.'</div>';
$output .= $form;
$output .= WebGUI::Form::formFooter();
$output .= '<script>var numberOfTabs = '.($i-1).'; initTabs();</script>';