Mercurial > pub > Impl

comparison Lib/IMPL/Web/Application/Action.pm @ 268:4abda21186cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*refactoring IMPL::Web: added 'application' property to resources
author cin
date Mon, 21 Jan 2013 02:08:17 +0400
parents 89179bb8c388
children 28eba7e0c592
comparison
equal deleted inserted replaced
267:bbc0da7ef90e 268:4abda21186cd
96 my ($this) = @_; 96 my ($this) = @_;
97 97
98 return URI->new_abs($this->application->baseUrl, $this->query->url(-base => 1)); 98 return URI->new_abs($this->application->baseUrl, $this->query->url(-base => 1));
99 } 99 }
100 100
101 # creates an url that contains server, schema and path parts
101 sub CreateFullUrl { 102 sub CreateFullUrl {
102 my ($this,$path) = @_; 103 my ($this,$path) = @_;
103 104
104 return $path ? URI->new($path,$this->applicationFullUrl) : $this->applicationFullUrl; 105 return $path ? URI->new_abs($path,$this->applicationFullUrl) : $this->applicationFullUrl;
105 } 106 }
106 107
108 # creates an url that contains only a path part
107 sub CreateAbsoluteUrl { 109 sub CreateAbsoluteUrl {
108 my ($this,$path) = @_; 110 my ($this,$path) = @_;
109 111
110 return $path ? URI->new($path,$this->applicationUrl) : $this->applicationUrl; 112 return $path ? URI->new_abs($path,$this->applicationUrl) : $this->applicationUrl;
111 } 113 }
112 114
113 sub _launder { 115 sub _launder {
114 my ($this,$value,$rx) = @_; 116 my ($this,$value,$rx) = @_;
115 117