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

more session related changes

Browse source
This commit is contained in:
JT Smith 2006-01-09 19:56:26 +00:00
parent 16b9675b0c
commit 024514c549
106 changed files with 1498 additions and 1313 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -202,7 +202,7 @@ sub setCookie {
my $cookie = Apache2::Cookie->new($self->session->request,
-name=>$name,
-value=>$value,
# -domain=>'.'.$session{env}{HTTP_HOST},
# -domain=>'.'.$self->session->env->get("HTTP_HOST"),
-expires=>$ttl,
-path=>'/'
);

4
lib/WebGUI/Session/Scratch.pm
View file

@ -76,7 +76,7 @@ Deletes all scratch variables for this session.
sub deleteAll {
my $self = shift;
delete $self->{_data};
WebGUI::SQL->write("delete from userSessionScratch where sessionId=".quote($self->{_sessionId}));
$self->session->db->write("delete from userSessionScratch where sessionId=".quote($self->{_sessionId}));
}
@ -97,7 +97,7 @@ sub deleteName {
my $name = shift;
return undef unless ($name);
delete $self->{_data}{$name};
WebGUI::SQL->write("delete from userSessionScratch where name=".quote($name));
$self->session->db->write("delete from userSessionScratch where name=".quote($name));
}

6
lib/WebGUI/Session/Style.pm
View file

@ -177,7 +177,7 @@ $var{'head.tags'} = '
function getWebguiProperty (propName) {
var props = new Array();
props["extrasURL"] = "'.$self->session->config->get("extrasURL").'";
props["pageURL"] = "'.WebGUI::URL::page(undef, undef, 1).'";
props["pageURL"] = "'.$self->session->url->page(undef, undef, 1).'";
return props[propName];
}
</script>
@ -202,8 +202,8 @@ if (WebGUI::Grouping::isInGroup(2)) {
my $macroHeadTags = generateAdditionalHeadTags();
WebGUI::Macro::process(\$macroHeadTags);
$output =~ s/\<\!-- macro head tags --\>/$macroHeadTags/;
if (WebGUI::ErrorHandler::canShowDebug()) {
$output .= WebGUI::ErrorHandler::showDebug();
if ($self->session->errorHandler->canShowDebug()) {
$output .= $self->session->errorHandler->showDebug();
}
return $output;
}

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

@ -94,7 +94,7 @@ sub append {
Encodes a string to make it safe to pass in a URL.
B<NOTE:> See WebGUI::URL::unescape()
B<NOTE:> See $self->session->url->unescape()
=head3 string
@ -177,10 +177,10 @@ sub getSiteURL {
if ($self->session->setting->get("hostToUse") eq "sitename" || !isIn($self->session->env->get("HTTP_HOST"),@{$sitenames})) {
$site = $sitenames->[0];
} else {
$site = $session{env}{HTTP_HOST} || $sitenames->[0];
$site = $self->session->env->get("HTTP_HOST") || $sitenames->[0];
}
my $proto = "http://";
if ($session{env}{HTTPS} eq "on") {
if ($self->session->env->get("HTTPS") eq "on") {
$proto = "https://";
}
$self->{_siteUrl} = $proto.$site;
@ -322,7 +322,7 @@ sub setSiteURL {
Decodes a string that was URL encoded.
B<NOTE:> See WebGUI::URL::escape()
B<NOTE:> See $self->session->url->escape()
=head3 string