From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 15 Jul 2008 13:59:12 +0000 (+0200)
Subject: rename purpose_upload to item_uplist
X-Git-Tag: release-0.3.33~64
X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=commitdiff_plain;h=b774f5ea60c257eac26a01b2c071a4a982542ec4

rename purpose_upload to item_uplist
---

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