From c9e983487d6f0e0684bd12e7f0635871bdfd9f9e Mon Sep 17 00:00:00 2001
From: uid68242 <uid68242@savannah.gnu.org>
Date: Sat, 27 Dec 2003 19:34:08 +0000
Subject: [PATCH] (GetInterSiteUrl): Bugfix: Return nothing if the site is not
 found on the intermap.

---
 wiki.pl | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/wiki.pl b/wiki.pl
index 2c3d11cb..687cfccd 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -286,7 +286,7 @@ sub InitVariables {    # Init global session variables for mod_perl!
     }
   }
   $WikiDescription = $q->p($q->a({-href=>'http://www.oddmuse.org/'}, 'Oddmuse'))
-    . $q->p('$Id: wiki.pl,v 1.278 2003/12/26 13:55:35 uid68242 Exp $');
+    . $q->p('$Id: wiki.pl,v 1.279 2003/12/27 19:34:08 uid68242 Exp $');
 }
 
 sub InitCookie {
@@ -783,12 +783,9 @@ sub NearInit {
 sub GetInterSiteUrl {
   my ($site, $page) = @_;
   return unless $page;
-  my $url = $InterSite{$site};
-  if ($url =~ s/\%s/$page/g) {
-    return $url;
-  } else {
-    return $url . $page;
-  }
+  my $url = $InterSite{$site} or return;
+  $url =~ s/\%s/$page/g or $url .= $page;
+  return $url;
 }
 
 sub GetInterLink {