projects
/
mirror
/
userdir-ldap-cgi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0703b54
)
rename purpose_upload to item_uplist
author
Peter Palfrader
<peter@palfrader.org>
Tue, 15 Jul 2008 13:59:12 +0000
(15:59 +0200)
committer
Peter Palfrader
<peter@palfrader.org>
Tue, 15 Jul 2008 13:59:12 +0000
(15:59 +0200)
machines.cgi
patch
|
blob
|
history
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;
}
return $in;
}
-sub
purposes
_uplist($) {
- my ($
purpose
s) = @_;
+sub
item
_uplist($) {
+ my ($
item
s) = @_;
my $out = undef;
my $out = undef;
- if (scalar @$
purpose
s >= 1) {
+ if (scalar @$
item
s >= 1) {
$out = "<ul>".
join("", map {
"<li>".wiki_link($_)."</li>\n";
$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} @{$
purpose
s}
+ } sort {my $A=$a; my $B=$b; $A =~ s/[\[\]]//g; $B =~ s/[\[\]]//g; $A cmp $B} @{$
item
s}
).
"</ul>";
}
).
"</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 ";
$output{purpose} = $purpose if defined $purpose;
$selected = " selected ";