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

Remove Session::Env, migrate code to Plack::Request object in Session, and WebGUI::Session::Request

Browse source
This commit is contained in:
Colin Kuskie 2010-07-01 17:40:12 -07:00
parent 005b9da1ac
commit e0177dc666
27 changed files with 131 additions and 285 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/Macro/Env.pm
View file

@ -32,7 +32,8 @@ then undef will be returned.
#-------------------------------------------------------------------
sub process {
my $session = shift;
return $session->env->get(shift);
my $key = shift;
return $session->request->env->{$key};
}
1;

6
lib/WebGUI/Macro/L_loginBox.pm
View file

@ -79,18 +79,18 @@ sub process {
# A hidden field with the current URL
my $returnUrl = $session->url->page;
if ( !$session->form->get("op") eq "auth" ) {
$returnUrl .= '?' . $session->env->get( "QUERY_STRING" );
$returnUrl .= '?' . $session->request->env->{ "QUERY_STRING" };
}
$var{'form.returnUrl'}
= WebGUI::Form::hidden( $session, {
name => 'returnUrl',
value => $session->url->page($session->env->get("QUERY_STRING")),
value => $session->url->page($session->request->env->{"QUERY_STRING"}),
});
# Fix box size
my $boxSize = $param[0];
$boxSize = 12 unless ($boxSize);
if (index(lc($session->env->get("HTTP_USER_AGENT")),"msie") < 0) {
if (index(lc($session->request->user_agent),"msie") < 0) {
$boxSize = int($boxSize=$boxSize*2/3);
}

2
lib/WebGUI/Macro/r_printable.pm
View file

@ -54,7 +54,7 @@ sub process {
my $append = 'op=makePrintable';
$temp = $session->url->page($append);
$temp =~ s/\/\//\//;
$temp = $session->url->append($temp,$session->env->get("QUERY_STRING"));
$temp = $session->url->append($temp,$session->request->env->{"QUERY_STRING"});
if ($param[1] ne "") {
$temp = $session->url->append($temp,'styleId='.$param[1]);
}