--- trunk/lib/Frey/View/Exhibit.pm	2009/01/06 15:26:19	945
+++ trunk/lib/Frey/View/Exhibit.pm	2009/01/06 15:26:41	946
@@ -4,56 +4,31 @@
 extends 'Frey';
 with 'Frey::Web';
 
-use MooseX::Types::Moose qw(Str Int ArrayRef);
-use MooseX::Types::Structured qw/Dict/;
-
 use Data::Dump qw/dump/;
 
 =head1 DESCRIPTION
 
 present C<sponge> as Exhibit from L<http://simile.mit.edu/exhibit/>
 
+=head1 SEE ALSO
+
+L<Frey::View::Exhibit::JSON>
+
 =cut
 
-has sponge => (
+has pipe => (
 	is => 'rw',
-	isa => Dict[
-		rows => ArrayRef[ArrayRef],
-		NAME => ArrayRef[Str],
-	],
-#	required => 1,
+	isa => 'Str',
+	required => 1,
+	default => 'Frey::DelIcioUs/as_sponge|Frey::View::Exhibit::JSON/as_markup',
 );
 
-sub as_data {
-	my ($self) = @_;
-
-	confess "need sponge" unless $self->as_sponge;
-
-	my $items;
-	my $names = $self->as_sponge->{NAME};
-
-	my $id = 0;
-	my $have_id = grep { m{^id$} } @$names;
-	my $have_label = grep { m{^label$} } @$names;
-
-	foreach my $row ( @{ $self->as_sponge->{rows} } ) {
-		my $item;
-		map { $item->{ $names->[$_] } = $row->[$_] } ( 0 .. $#{ $row } );
-		$item->{id}    = $id unless $have_id;
-		$item->{label} = $id unless $have_label;
-		$id++;
-		push @{ $items->{items} }, $item;
-	}
-
-	return $items;
-}
-
 sub depends {
 	my ($self) = @_;
-	$self->add_head(qq{
-		<link href="/Frey::Pipe/as_markup?pipe=Frey::DelIcioUs/as_sponge|Frey::View::Exhibit/as_data|Frey::View::JSON/as_markup"
-			type="application/json" rel="exhibit/data" />
-	});
+	my $pipe = $self->url_escape( $self->pipe );
+	$self->add_head(qq|
+		<link href="/Frey::Pipe/as_markup?pipe=$pipe" type="application/json" rel="exhibit/data" />
+	|);
 	$self->add_head(qq|
 		<script src="http://static.simile.mit.edu/exhibit/api-2.0/exhibit-api.js"
 			type="text/javascript"></script>