X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=blobdiff_plain;f=machines.cgi;h=bf0c058869bd9516fe6cbd2ab1035bdb01fc1c0a;hp=4cfe3a868f6a0507cd6b567624c7c0b336a60150;hb=0703b543dee932b71a73e7c4b1b1922a6f4247b4;hpb=be8fd4aac4624ffe3c42a869d3a8b6c0f633a7d5

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>";
 	}