From cd4e08ebf389859f4d017fe2af0dc6e90db8826a Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Tue, 9 Mar 2004 02:23:06 +0000
Subject: [PATCH] (GetDownloadLink): Link to image page, if necessary.

---
 wiki.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/wiki.pl b/wiki.pl
index 32da30f2..b0563221 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -314,7 +314,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.349 2004/03/09 02:00:23 as Exp $');
+    . $q->p('$Id: wiki.pl,v 1.350 2004/03/09 02:23:06 as Exp $');
   $WikiDescription .= $ModulesDescription if $ModulesDescription;
 }
 
@@ -1007,7 +1007,9 @@ sub GetDownloadLink {
     } else {
       $action = $ScriptName . '?' . $action;
     }
-    return $q->img({-src=>$action, -alt=>$id, -class=>'upload'});
+    my $result = $q->img({-src=>$action, -alt=>$id, -class=>'upload'});
+    $result = ScriptLink($id, $result, 'upload image') unless $id eq $OpenPageName;
+    return $result;
   } else {
     return ScriptLink($action, $id, 'upload');
   }