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);


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

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

        use Strix::User;
        use Strix::View::User;

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

        my @w;

        while ( my $u = $s->next ) {
                my $w = Strix::View::User->new( %{ $u } );
                $w->_fey( $u );
                $w->_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 = '<hr/>';
                $rows_delimiter = '' if $layout eq 'table';

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

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

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


            my $doc = Continuity::Widget::DomNode->create(
                        html => [
                                head => [
                                        link  => { rel=>"stylesheet", href=>"/static/form.css", type=>"text/css" }
                                ],
                                body => [
                                        h1 => [ 'Strix::User' ],
                                        $layout eq 'table' ?
                                                # gen_link doesn't work since Widngets have it's own scope of layout
#                                               gen_link( 'div layout', sub { $layout = 'div' } ) :
#                                               gen_link( 'table layout', sub { $layout = 'table' } ),
                                                qq|<a href="?layout=div">div layout</a>| :
                                                qq|<a href="?layout=table">table layout</a>|,
                                        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	dpavlin	60	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	dpavlin	68	#use Data::Dumper;
25			#$Data::Dumper::Deparse = 1;
26			use Data::Dump qw/dump/;
27			use Data::Structure::Util qw(unbless);
28	dpavlin	60
29	dpavlin	72
30	dpavlin	60	#method 'html' => positional(
31			# isa => 'Continuity::RequestHolder',
32			# required => 1,
33			#) => sub {
34			sub html {
35			my ( $self, $req ) = @_;
36
37	dpavlin	89	my $f = { $req->params };
38			my $layout = delete( $f->{layout} ) \|\| 'div';
39
40	dpavlin	68	use Strix::User;
41			use Strix::View::User;
42	dpavlin	60
43	dpavlin	68	my $s = Strix::User->rows();
44	dpavlin	83	#warn "# s = ",dump( $s );
45	dpavlin	68
46			my @w;
47
48			while ( my $u = $s->next ) {
49	dpavlin	82	my $w = Strix::View::User->new( %{ $u } );
50	dpavlin	72	$w->_fey( $u );
51	dpavlin	89	$w->_layout( $layout );
52	dpavlin	82	warn "# w = ",dump( $w ) if $self->debug;
53	dpavlin	68	push @w, $w;
54			}
55
56			while ( 1 ) {
57	dpavlin	75
58	dpavlin	82	warn "# got $#w elements: ",dump( map { $_->id } @w );
59			warn "<<< GOT REQUEST ",dump( $f );
60	dpavlin	75
61	dpavlin	89	# re-apply (changed?) layout to elements
62			if ( defined $f->{layout} ) {
63			$layout = delete( $f->{layout} );
64			warn "# new layout = $layout\n";
65			}
66	dpavlin	82
67	dpavlin	89	my $rows_delimiter = '<hr/>';
68			$rows_delimiter = '' if $layout eq 'table';
69
70			my $form = join($rows_delimiter, map {
71			$_->_layout( $layout );
72			$_->process($f) \|\| ''
73			} @w );
74
75	dpavlin	82	if ( $w[ $#w ]->_fey ) {
76	dpavlin	89	warn "+++ added new item widget\n";
77			my $w = Strix::View::User->new( render_as => 'edit' );
78			$w->_layout( $layout );
79			$form .= $rows_delimiter . $w->process;
80			push @w, $w;
81	dpavlin	82	}
82
83	dpavlin	89	$form = qq\|<table>$form</table>\| if $layout eq 'table';
84
85
86	dpavlin	72	my $doc = Continuity::Widget::DomNode->create(
87			html => [
88			head => [
89	dpavlin	78	link => { rel=>"stylesheet", href=>"/static/form.css", type=>"text/css" }
90	dpavlin	72	],
91			body => [
92			h1 => [ 'Strix::User' ],
93	dpavlin	89	$layout eq 'table' ?
94	dpavlin	93	# gen_link doesn't work since Widngets have it's own scope of layout
95			# gen_link( 'div layout', sub { $layout = 'div' } ) :
96			# gen_link( 'table layout', sub { $layout = 'table' } ),
97	dpavlin	89	qq\|<a href="?layout=div">div layout</a>\| :
98			qq\|<a href="?layout=table">table layout</a>\|,
99	dpavlin	72	form => { method=>'post' } => [
100	dpavlin	75	$form,
101	dpavlin	72	],
102			],
103			]
104	dpavlin	93	)->to_string;
105	dpavlin	72
106	dpavlin	93	warn ">>> $layout ",length( $doc ),"\n";
107
108			$req->print( $doc );
109	dpavlin	68	$req->next;
110	dpavlin	72
111			$f = { $req->params };
112	dpavlin	93
113			process_links( $req );
114	dpavlin	68	}
115
116			warn "NO WAY OUT!";
117	dpavlin	60	};
118
119			1;