Mercurial > pub > Impl
diff Lib/IMPL/Web/AutoLocator.pm @ 292:6dc1c369eb71
sync
author | cin |
---|---|
date | Tue, 26 Feb 2013 02:21:03 +0400 |
parents | 32aceba4ee6d |
children | 793cc7f0a7e7 |
line wrap: on
line diff
--- a/Lib/IMPL/Web/AutoLocator.pm Thu Feb 21 03:44:02 2013 +0400 +++ b/Lib/IMPL/Web/AutoLocator.pm Tue Feb 26 02:21:03 2013 +0400 @@ -55,6 +55,19 @@ return $this->new(%args); } +sub Query { + my ($this,$query) = @_; + + my %args; + + $args{base} = $this->base; + $args{view} = $this->view if $this->view; + $args{hash} = $this->hash if $this->hash; + $args{query} = ref $query eq 'HASH' ? hashMerge($this->query,$query) : $query; + + return $this->new(%args); +} + sub SetView { my ($this,$newView) = @_;