From 0703b543dee932b71a73e7c4b1b1922a6f4247b4 Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 15 Jul 2008 15:58:09 +0200
Subject: [PATCH] Fix purposes_uplist to use passed argument instead of global
 variable

---
 machines.cgi | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/machines.cgi b/machines.cgi
index 4cfe3a8..bf0c058 100755
--- a/machines.cgi
+++ b/machines.cgi
@@ -98,7 +98,7 @@ sub purposes_uplist($) {
 		$out = "<ul>".
 			join("", map { 
 				"<li>".wiki_link($_)."</li>\n";
-			  } sort {my $A=$a; my $B=$b; $A =~ s/[\[\]]//g; $B =~ s/[\[\]]//g; $A cmp $B} @{$data->{purpose}}
+			  } sort {my $A=$a; my $B=$b; $A =~ s/[\[\]]//g; $B =~ s/[\[\]]//g; $A cmp $B} @{$purposes}
 			).
 			"</ul>";
 	}
-- 
2.20.1