diff --git a/web/pages/mxq/mxq.in b/web/pages/mxq/mxq.in index 71a166a9..2356aea1 100755 --- a/web/pages/mxq/mxq.in +++ b/web/pages/mxq/mxq.in @@ -40,10 +40,14 @@ sub HEAD { return "\n\n".STYLE()."\n"; } +sub selfurl { + my ($path_info)=@_; + return $q->url().$path_info; +} + sub my_url { my ($module,$params)=@_; - - my $uri=new URI($module,$q->url()); + my $uri=new URI(selfurl("/$module")); $uri->query_form($params,';'); return $uri; } @@ -862,11 +866,6 @@ sub server() { return $out; } -sub selfurl { - my ($path_info)=@_; - return $q->url().$path_info; -} - sub top_menu { return '' . $q->Tr( $q->td(a({href=>selfurl('/groups')},'groups')),$q->td(' '),