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

diff --git a/machines.cgi b/machines.cgi
index bf0c058..9438b26 100755
--- a/machines.cgi
+++ b/machines.cgi
@@ -90,15 +90,15 @@ sub wiki_link($) {
 	return $in;
 }
 
-sub purposes_uplist($) {
-	my ($purposes) = @_;
+sub item_uplist($) {
+	my ($items) = @_;
 	my $out = undef;
 
-	if (scalar @$purposes >= 1) {
+	if (scalar @$items >= 1) {
 		$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} @{$purposes}
+			  } sort {my $A=$a; my $B=$b; $A =~ s/[\[\]]//g; $B =~ s/[\[\]]//g; $A cmp $B} @{$items}
 			).
 			"</ul>";
 	}
@@ -172,7 +172,7 @@ foreach $dn (sort {$entries->{$a}->{host}->[0] cmp $entries->{$b}->{host}->[0]}
       }
     }
 
-    my $purpose = purposes_uplist($data->{purpose});
+    my $purpose = item_uplist($data->{purpose});
     $output{purpose} = $purpose if defined $purpose;
 
     $selected = " selected ";