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

Demo site loads

Browse source
This commit is contained in:
Patrick Donelan 2010-03-14 22:09:57 -04:00
parent 158124cf37
commit d858c6e1ab
8 changed files with 99 additions and 227 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Session/Output.pm
View file

@ -96,8 +96,7 @@ sub print {
}
elsif ($self->session->request) {
# TODO - put in IO bound delayed response
warn "content: $content";
# $self->session->request->body([]) unless $self->session->request->body();
$self->session->response->body( $self->session->response->body() . $content );
# if (ref $self->session->request->body eq 'ARRAY') {
# push @{$self->session->request->body}, $content;
# } else {

2
lib/WebGUI/Session/Url.pm
View file

@ -322,7 +322,7 @@ sub getRequestedUrl {
my $self = shift;
return undef unless ($self->session->request);
unless ($self->{_requestedUrl}) {
$self->{_requestedUrl} = $self->session->request->uri;
$self->{_requestedUrl} = $self->session->request->path_info; # TODO - is path_info right?
my $gateway = $self->session->config->get("gateway");
$self->{_requestedUrl} =~ s/^$gateway([^?]*)\??.*$/$1/;
}