Mercurial > pub > Impl
diff Lib/IMPL/Web/Application/Action.pm @ 268:4abda21186cd
*refactoring IMPL::Web: added 'application' property to resources
author | cin |
---|---|
date | Mon, 21 Jan 2013 02:08:17 +0400 |
parents | 89179bb8c388 |
children | 28eba7e0c592 |
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/Action.pm Thu Jan 17 02:39:44 2013 +0400 +++ b/Lib/IMPL/Web/Application/Action.pm Mon Jan 21 02:08:17 2013 +0400 @@ -98,16 +98,18 @@ return URI->new_abs($this->application->baseUrl, $this->query->url(-base => 1)); } +# creates an url that contains server, schema and path parts sub CreateFullUrl { my ($this,$path) = @_; - return $path ? URI->new($path,$this->applicationFullUrl) : $this->applicationFullUrl; + return $path ? URI->new_abs($path,$this->applicationFullUrl) : $this->applicationFullUrl; } +# creates an url that contains only a path part sub CreateAbsoluteUrl { my ($this,$path) = @_; - return $path ? URI->new($path,$this->applicationUrl) : $this->applicationUrl; + return $path ? URI->new_abs($path,$this->applicationUrl) : $this->applicationUrl; } sub _launder {