lib/Frey/ObjectBrowser.pm

package Frey::ObjectBrowser;
use Moose;
use MooseX::Method;

extends 'Frey';

my @callbacks;

sub gen_link {
        my ($text, $code) = @_;
        push @callbacks, $code;
        return qq{<a href="?cb=$#callbacks">$text</a>};
}

sub process_links {
        my $request = shift;
        my $cb = $request->param('cb');
        if (exists $callbacks[$cb]) {
                $callbacks[$cb]->($request);
                delete $callbacks[$cb];
        }
}

#use Data::Dumper;
#$Data::Dumper::Deparse = 1;
use Data::Dump qw/dump/;
use Data::Structure::Util qw(unbless);

use Frey::Web::Row;
use Strix::User;

#method 'html' => positional(
#       isa => 'Continuity::RequestHolder',
#       required => 1,
#) => sub {
sub html {
        my ( $self, $req ) = @_;

        my $f = { $req->params };
        my $layout = delete( $f->{layout} ) || 'div';

        my $s = Strix::User->rows();
        #warn "# s = ",dump( $s );

        my @w;

        while ( my $u = $s->next ) {
                my $w = Frey::Web::Row->new( _fey => $u, _layout => $layout );
                warn "# w = ",dump( $w ) if $self->debug;
                push @w, $w;
        }

        while ( 1 ) {
        
                warn "# got $#w elements: ",dump( map { $_->id } @w );
                warn "<<< GOT REQUEST ",dump( $f );

                # re-apply (changed?) layout to elements
                if ( defined $f->{layout} ) {
                        $layout = delete( $f->{layout} );
                        warn "# new layout = $layout\n";
                }

                my $rows_delimiter = '';
                $rows_delimiter = '<hr/>' if $layout eq 'div';

                my $form = join($rows_delimiter, map {
                        $_->_layout( $layout );
                        $_->process($f) || ''
                } @w );

                if ( $w[ $#w ]->_fey ) {
                        warn "+++ added new item widget\n";
                        my $w = Frey::Web::Row->new( _render_as => 'edit', _layout => $layout );
                        $form .= $rows_delimiter . $w->process;
                        push @w, $w;
                }

                $form = qq|<table>$form</table>| if $layout eq 'table';

                if ( $layout eq 'columns' ) {
                        # add header to table
                        my $header = $w[0]->render_iterator( sub {
                                my ( $name, $field_name, $label, $val ) = @_;
                                return if $name =~ /^_/;
                                return qq|<th>$label</th>|;
                        });
                        $form = qq|<table><tr>$header</tr>$form</table>|;
                }

                my $layout_picker = join(' ',
                        qq|<div class="layout">layout:|,
                        map {
                                if ( $layout eq $_ ) {
                                        qq|<em>$_</em>|;
                                } else {
                                        qq|<a href="?layout=$_">$_</a>|;
                                }
                        } ( 'div', 'table', 'columns' ),
                        qq|</div>|,
                );

            my $doc = Continuity::Widget::DomNode->create(
                        html => [
                                head => [
                                        link  => { rel=>"stylesheet", href=>"/static/form.css", type=>"text/css" }
                                ],
                                body => [
                                        h1 => [ 'Strix::User' ],
                                        $layout_picker,
                                        form => { method=>'post' } => [
                                                $form,
                                        ],
                                ],
                        ]
                )->to_string;

                warn ">>> $layout ",length( $doc ),"\n";

                $req->print( $doc );
                $req->next;

                $f = { $req->params };

                process_links( $req );
        }

        warn "NO WAY OUT!";
};

1;
1	package Frey::ObjectBrowser;
2	use Moose;
3	use MooseX::Method;
4
5	extends 'Frey';
6
7	my @callbacks;
8
9	sub gen_link {
10	my ($text, $code) = @_;
11	push @callbacks, $code;
12	return qq{<a href="?cb=$#callbacks">$text</a>};
13	}
14
15	sub process_links {
16	my $request = shift;
17	my $cb = $request->param('cb');
18	if (exists $callbacks[$cb]) {
19	$callbacks[$cb]->($request);
20	delete $callbacks[$cb];
21	}
22	}
23
24	#use Data::Dumper;
25	#$Data::Dumper::Deparse = 1;
26	use Data::Dump qw/dump/;
27	use Data::Structure::Util qw(unbless);
28
29	use Frey::Web::Row;
30	use Strix::User;
31
32	#method 'html' => positional(
33	# isa => 'Continuity::RequestHolder',
34	# required => 1,
35	#) => sub {
36	sub html {
37	my ( $self, $req ) = @_;
38
39	my $f = { $req->params };
40	my $layout = delete( $f->{layout} ) \|\| 'div';
41
42	my $s = Strix::User->rows();
43	#warn "# s = ",dump( $s );
44
45	my @w;
46
47	while ( my $u = $s->next ) {
48	my $w = Frey::Web::Row->new( _fey => $u, _layout => $layout );
49	warn "# w = ",dump( $w ) if $self->debug;
50	push @w, $w;
51	}
52
53	while ( 1 ) {
54
55	warn "# got $#w elements: ",dump( map { $_->id } @w );
56	warn "<<< GOT REQUEST ",dump( $f );
57
58	# re-apply (changed?) layout to elements
59	if ( defined $f->{layout} ) {
60	$layout = delete( $f->{layout} );
61	warn "# new layout = $layout\n";
62	}
63
64	my $rows_delimiter = '';
65	$rows_delimiter = '<hr/>' if $layout eq 'div';
66
67	my $form = join($rows_delimiter, map {
68	$_->_layout( $layout );
69	$_->process($f) \|\| ''
70	} @w );
71
72	if ( $w[ $#w ]->_fey ) {
73	warn "+++ added new item widget\n";
74	my $w = Frey::Web::Row->new( _render_as => 'edit', _layout => $layout );
75	$form .= $rows_delimiter . $w->process;
76	push @w, $w;
77	}
78
79	$form = qq\|<table>$form</table>\| if $layout eq 'table';
80
81	if ( $layout eq 'columns' ) {
82	# add header to table
83	my $header = $w[0]->render_iterator( sub {
84	my ( $name, $field_name, $label, $val ) = @_;
85	return if $name =~ /^_/;
86	return qq\|<th>$label</th>\|;
87	});
88	$form = qq\|<table><tr>$header</tr>$form</table>\|;
89	}
90
91	my $layout_picker = join(' ',
92	qq\|<div class="layout">layout:\|,
93	map {
94	if ( $layout eq $_ ) {
95	qq\|<em>$_</em>\|;
96	} else {
97	qq\|<a href="?layout=$_">$_</a>\|;
98	}
99	} ( 'div', 'table', 'columns' ),
100	qq\|</div>\|,
101	);
102
103	my $doc = Continuity::Widget::DomNode->create(
104	html => [
105	head => [
106	link => { rel=>"stylesheet", href=>"/static/form.css", type=>"text/css" }
107	],
108	body => [
109	h1 => [ 'Strix::User' ],
110	$layout_picker,
111	form => { method=>'post' } => [
112	$form,
113	],
114	],
115	]
116	)->to_string;
117
118	warn ">>> $layout ",length( $doc ),"\n";
119
120	$req->print( $doc );
121	$req->next;
122
123	$f = { $req->params };
124
125	process_links( $req );
126	}
127
128	warn "NO WAY OUT!";
129	};
130
131	1;