Fix purposes_uplist to use passed argument instead of global variable

diff --git a/machines.cgi b/machines.cgi
index 4cfe3a8..bf0c058 100755 (executable)
--- 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>";
        }