rename purpose_upload to item_uplist

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