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

first round of changes for the new session system

Browse source
This commit is contained in:
JT Smith 2005-12-31 21:54:06 +00:00
parent da95226072
commit d4b7f2ce59
128 changed files with 2442 additions and 1478 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lib/WebGUI/Form/YesNo.pm
View file

@ -85,7 +85,7 @@ Returns either a 1 or 0 representing yes, no.
sub yesNo {
my $self = shift;
if ($session{req}->param($self->{name}) > 0) {
if ($self->session->request->param($self->get("name")) > 0) {
return 1;
}
return 0;
@ -102,24 +102,24 @@ Renders a yes/no question field.
sub toHtml {
my $self = shift;
my ($checkYes, $checkNo);
if ($self->{value}) {
if ($self->get("value")) {
$checkYes = 1;
} else {
$checkNo = 1;
}
my $output = WebGUI::Form::Radio->new(
checked=>$checkYes,
name=>$self->{name},
name=>$self->get("name"),
value=>1,
extras=>$self->{extras}
extras=>$self->get("extras")
)->toHtml;
$output .= WebGUI::International::get(138);
$output .= '   ';
$output .= WebGUI::Form::Radio->new(
checked=>$checkNo,
name=>$self->{name},
name=>$self->get("name"),
value=>0,
extras=>$self->{extras}
extras=>$self->get("extras")
)->toHtml;
$output .= WebGUI::International::get(139);
return $output;