diff options
| author | fukachan <fukachan> | 2003-11-26 11:02:05 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-11-26 11:02:05 +0000 |
| commit | 6dbcecd36fb4fb15abc301ba2e0849b8c39dff5f (patch) | |
| tree | 1b04a4bb8a0ddfa8ade8c696affa43d1220a5664 /fml/lib/FML/User | |
| parent | 7ac20a697c3c8929f5cd48e71fe7f11a750b4a11 (diff) | |
| download | fml8-6dbcecd36fb4fb15abc301ba2e0849b8c39dff5f.tar.gz fml8-6dbcecd36fb4fb15abc301ba2e0849b8c39dff5f.tar.bz2 fml8-6dbcecd36fb4fb15abc301ba2e0849b8c39dff5f.zip | |
cal get_key_values_as_array_ref() of IO::Adapter to get key and all
values.
So, print_userlist() print out "key values ...".
Diffstat (limited to 'fml/lib/FML/User')
| -rw-r--r-- | fml/lib/FML/User/Control.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/fml/lib/FML/User/Control.pm b/fml/lib/FML/User/Control.pm index 9c05ea27..61f7da8e 100644 --- a/fml/lib/FML/User/Control.pm +++ b/fml/lib/FML/User/Control.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Control.pm,v 1.3 2003/11/25 14:13:15 fukachan Exp $ +# $FML: Control.pm,v 1.4 2003/11/26 09:17:46 fukachan Exp $ # package FML::User::Control; @@ -371,15 +371,18 @@ sub print_userlist if (defined $obj) { my $x = ''; + my $buf; $obj->open; - while ($x = $obj->get_next_key()) { + while ($x = $obj->get_key_values_as_array_ref()) { + $buf = join(" ", @$x) if ref($x) eq 'ARRAY'; + if ($style eq 'html') { # XXX-TODO: html-ify address ? - print $wh $x, "<br>\n"; + print $wh $buf, "<br>\n"; } # we assume text mode by default. else { - print $wh $x, "\n"; + print $wh $buf, "\n"; } } $obj->close; |