From 6dbcecd36fb4fb15abc301ba2e0849b8c39dff5f Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 26 Nov 2003 11:02:05 +0000
Subject: cal get_key_values_as_array_ref() of IO::Adapter to get key and all
 values.

So, print_userlist() print out "key values ...".
---
 fml/lib/FML/User/Control.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'fml/lib')

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;
-- 
cgit v1.2.1