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

fix: t::WebGUI::PseudoRequest now works properly

Browse source 
add: Added some additional vars to Calendar Week view
fix: WebGUI::DateTime now handles MySQL strings more robustly
This commit is contained in:
Doug Bell 2007-03-20 17:27:30 +00:00
parent 74b688810f
commit 991aac998a
5 changed files with 85 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

40
t/lib/WebGUI/PseudoRequest.pm
View file

@ -37,7 +37,25 @@ sub body {
my $self = shift;
my $value = shift;
return keys %{ $self->{body} } unless defined $value;
return $self->{body}->{$value};
if ($self->{body}->{$value}) {
if (wantarray && ref $self->{body}->{$value} eq "ARRAY") {
return @{$self->{body}->{$value}};
}
elsif (ref $self->{body}->{$value} eq "ARRAY") {
return $self->{body}->{$value}->[0];
}
else {
return $self->{body}->{$value};
}
}
else {
if (wantarray) {
return ();
}
else {
return undef;
}
}
}
sub setup_body {
@ -73,7 +91,25 @@ sub param {
my $self = shift;
my $value = shift;
return keys %{ $self->{param} } unless defined $value;
return $self->{param}->{$value};
if ($self->{param}->{$value}) {
if (wantarray && ref $self->{param}->{$value} eq "ARRAY") {
return @{$self->{param}->{$value}};
}
elsif (ref $self->{param}->{$value} eq "ARRAY") {
return $self->{param}->{$value}->[0];
}
else {
return $self->{param}->{$value};
}
}
else {
if (wantarray) {
return ();
}
else {
return undef;
}
}
}
sub setup_param {