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

Color coded most buttons, green for proceed and red for go back.

Browse source
This commit is contained in:
JT Smith 2007-07-27 03:50:19 +00:00
parent 7bbb1b2e3c
commit 3affd7add4
5 changed files with 23 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Form/Submit.pm
View file

@ -68,12 +68,13 @@ Renders a button.
sub toHtml {
my $self = shift;
my $value = $self->fixQuotes($self->get("value"));
my $extras = $self->get("extras") || q|class="forwardButton"|;
my $i18n = WebGUI::International->new($self->session);
$self->{_params}{extras} ||= 'onclick="this.value=\''.$i18n->get(452).'\'"';
my $html = '<input type="submit" ';
$html .= 'name="'.$self->get("name").'" ' if ($self->get("name"));
$html .= 'id="'.$self->get('id').'" ' unless ($self->get('id') eq "_formId");
$html .= 'value="'.$value.'" '.$self->get("extras").' />';
$html .= 'value="'.$value.'" '.$extras.' />';
return $html;
}