From eb652b0f99703b236ef32618fc8500851518a0be Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 12 Apr 2003 03:15:11 +0000
Subject: [PATCH] Added a link to download a new version of WebGUI to the
 statistics page, when one exists.

---
 lib/WebGUI/Operation/Statistics.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/WebGUI/Operation/Statistics.pm b/lib/WebGUI/Operation/Statistics.pm
index 3f4c3e846..08360335b 100644
--- a/lib/WebGUI/Operation/Statistics.pm
+++ b/lib/WebGUI/Operation/Statistics.pm
@@ -165,6 +165,11 @@ sub www_viewStatistics {
         $output .= '<h1>'.WebGUI::International::get(437).'</h1>';
 	$output .= '<table>';
 	$output .= '<tr><td align="right" class="tableHeader">'.WebGUI::International::get(145).':</td><td class="tableData">'.$WebGUI::VERSION.'</td></tr>';
+	if ($version ne $WebGUI::VERSION) {
+		my @rev = split(/\./,$version);
+		
+		$version = '<a href="http://files.plainblack.com/downloads/'.$rev[0].'.x.x/webgui-'.$version.'.tar.gz">'.$version.'</a>';
+	}
 	$output .= '<tr><td align="right" class="tableHeader">'.WebGUI::International::get(349).':</td><td class="tableData">'.$version.'</td></tr>';
 	($data) = WebGUI::SQL->quickArray("select count(*) from page where parentId>1000 and parentId<>3");
 	$output .= '<tr><td align="right" class="tableHeader">'.WebGUI::International::get(147).':</td><td class="tableData">'.$data.'</td></tr>';