--- trunk/lib/Frey/ObjectBrowser.pm	2008/07/09 13:11:26	67
+++ trunk/lib/Frey/ObjectBrowser.pm	2008/07/09 13:12:03	68
@@ -21,8 +21,10 @@
 	}
 }
 
-use Data::Dumper;
-$Data::Dumper::Deparse = 1;
+#use Data::Dumper;
+#$Data::Dumper::Deparse = 1;
+use Data::Dump qw/dump/;
+use Data::Structure::Util qw(unbless);
 
 #method 'html' => positional(
 #	isa => 'Continuity::RequestHolder',
@@ -32,11 +34,34 @@
 	my ( $self, $req ) = @_;
 
 	my $params = $req->param;
-	warn Dumper( $params );
+	warn "# params = ",dump( $params );
 
-	$req->print( Dumper( $params ) );
+	use Strix::User;
+	use Strix::View::User;
 
-	$req->next;
+	my $s = Strix::User->rows();
+	warn "# s = ",dump( $s );
+
+	my $f = {};
+	my @w;
+
+	while ( my $u = $s->next ) {
+		warn "# u = ",dump( $u );
+		my $w = Strix::View::User->new(
+			# FIXME this is cludge
+			unbless( $u )
+		);
+		warn "# w = ",dump( $w );
+		push @w, $w;
+	}
+
+	while ( 1 ) {
+		my $html = join('<hr/>', map { $_->process($f) } @w );
+		$req->print( $html );
+		$req->next;
+	}
+
+	warn "NO WAY OUT!";
 };
 
 1;