1 files changed, 1 insertions, 5 deletions
diff --git a/www/common.pl b/www/common.pl
index a094442..63b8d0f 100644
--- a/www/common.pl
+++ b/www/common.pl
@@ -35,11 +35,7 @@ sub email_users($) {
 
 sub reluri($$) {
   my ($cgi, $x) = @_;
-  my $uri = URI->new($cgi->url(-full=>1));
-  my @path = $uri->path_segments;
-  pop @path;
-  push @path, $x;
-  $uri->path_segments(@path);
+  my $uri = "https://" . $::MULKONF->{real_domain} . $::MULKONF->{basepath} . "/$x";
   return "$uri";
 }