lib/Frey/ObjectBrowser.pm

package Frey::ObjectBrowser;
use Moose;

extends 'Frey';
with 'Frey::Web';

has 'fey_class' => (
        is => 'rw',
        isa => 'Str',
        required => 1,
);

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 Frey::Web::Item;
use Frey::Web::Links;

sub html {
        my ( $self, $req ) = @_;

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

        my @w;
        my $pager;

        while ( 1 ) {
        
                warn "<<< GOT REQUEST ",dump( $f );

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

                if ( ! @w || $f->{page} || $f->{per_page} ) {
                        my $s;
                        ( $s, $pager ) = $self->fey_class->collection( $f );
                        warn "# s ",$self->fey_class," = ",dump( $s ) if $self->debug;

                        @w = ();

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

                        warn "# got $#w elements: ",dump( map { $_->fey->id } @w ), " from total of ", $s->handle->rows;
                }

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

                my $form = join($rows_delimiter, map {
                        $_->layout( $layout );          # FIXME do we need this still?
                        $_->process($f) || ''
                } @w );

                if ( $w[ $#w ]->fey ) {
                        warn "+++ added new item widget\n";
                        my $w = Frey::Web::CRUD->new( fey_class => $self->fey_class, 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;
                        foreach my $name ( @{ $w[0]->display_columns } ) {
                                return if $name =~ /^_/;
                                my $label = $w[0]->field_label( $name );
                                $header .= qq|<th>$label</th>|;
                        };
                        $form = qq|<table><tr>$header</tr>$form</table>|;
                }

                my $layout_picker =
                        qq|<div class="layout">layout: | .
                        Frey::Web::Links->new(
                                name => 'layout',
                                current => $layout,
                                values => [ 'div', 'table', 'columns' ],
                        )->links .
                        qq|</div>|
                ;

                my $pager = join( ' ',
                        qq|<div class="notice">|,
                        'Showing',
                        $pager->first, '-', $pager->last,
                        'of',
                        $pager->total_entries,
                        'results<br>',
#                       'page', $pager->current_page, '/', $pager->last_page,
                        Frey::Web::Links->new(
                                name => 'page',
                                current => $pager->current_page,
                                values => [ $pager->first_page .. $pager->last_page ],
                        )->links,
                        qq|</div>|
                );

                $self->add_css( 'static/form.css' );

            my $html = $self->page(
                        body => '<h1>' . $self->fey_class . '</h1>'
                                . $layout_picker
                                . $pager
                                . qq|<form method="post">$form</form>|
                );

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

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

                $f = { $req->params };

                process_links( $req );
        }

        warn "NO WAY OUT!";
};

1;
1	package Frey::ObjectBrowser;
2	use Moose;
3
4	extends 'Frey';
5	with 'Frey::Web';
6
7	has 'fey_class' => (
8	is => 'rw',
9	isa => 'Str',
10	required => 1,
11	);
12
13	my @callbacks;
14
15	sub gen_link {
16	my ($text, $code) = @_;
17	push @callbacks, $code;
18	return qq{<a href="?cb=$#callbacks">$text</a>};
19	}
20
21	sub process_links {
22	my $request = shift;
23	my $cb = $request->param('cb');
24	if (exists $callbacks[$cb]) {
25	$callbacks[$cb]->($request);
26	delete $callbacks[$cb];
27	}
28	}
29
30	#use Data::Dumper;
31	#$Data::Dumper::Deparse = 1;
32	use Data::Dump qw/dump/;
33
34	use Frey::Web::Item;
35	use Frey::Web::Links;
36
37	sub html {
38	my ( $self, $req ) = @_;
39
40	my $f = { $req->params };
41	my $layout = delete( $f->{layout} ) \|\| 'div';
42
43	my @w;
44	my $pager;
45
46	while ( 1 ) {
47
48	warn "<<< GOT REQUEST ",dump( $f );
49
50	# re-apply (changed?) layout to elements
51	if ( defined $f->{layout} ) {
52	$layout = delete( $f->{layout} );
53	warn "# new layout = $layout\n";
54	}
55
56	if ( ! @w \|\| $f->{page} \|\| $f->{per_page} ) {
57	my $s;
58	( $s, $pager ) = $self->fey_class->collection( $f );
59	warn "# s ",$self->fey_class," = ",dump( $s ) if $self->debug;
60
61	@w = ();
62
63	while ( my $u = $s->next ) {
64	my $w = Frey::Web::CRUD->new( fey_class => $self->fey_class, fey => $u, layout => $layout );
65	warn "# w = ",dump( $w ) if $self->debug;
66	push @w, $w;
67	}
68
69	warn "# got $#w elements: ",dump( map { $_->fey->id } @w ), " from total of ", $s->handle->rows;
70	}
71
72	my $rows_delimiter = '';
73	$rows_delimiter = '<hr/>' if $layout eq 'div';
74
75	my $form = join($rows_delimiter, map {
76	$_->layout( $layout ); # FIXME do we need this still?
77	$_->process($f) \|\| ''
78	} @w );
79
80	if ( $w[ $#w ]->fey ) {
81	warn "+++ added new item widget\n";
82	my $w = Frey::Web::CRUD->new( fey_class => $self->fey_class, render_as => 'edit', layout => $layout );
83	$form .= $rows_delimiter . $w->process;
84	push @w, $w;
85	}
86
87	$form = qq\|<table>$form</table>\| if $layout eq 'table';
88
89	if ( $layout eq 'columns' ) {
90	# add header to table
91	my $header;
92	foreach my $name ( @{ $w[0]->display_columns } ) {
93	return if $name =~ /^_/;
94	my $label = $w[0]->field_label( $name );
95	$header .= qq\|<th>$label</th>\|;
96	};
97	$form = qq\|<table><tr>$header</tr>$form</table>\|;
98	}
99
100	my $layout_picker =
101	qq\|<div class="layout">layout: \| .
102	Frey::Web::Links->new(
103	name => 'layout',
104	current => $layout,
105	values => [ 'div', 'table', 'columns' ],
106	)->links .
107	qq\|</div>\|
108	;
109
110	my $pager = join( ' ',
111	qq\|<div class="notice">\|,
112	'Showing',
113	$pager->first, '-', $pager->last,
114	'of',
115	$pager->total_entries,
116	'results<br>',
117	# 'page', $pager->current_page, '/', $pager->last_page,
118	Frey::Web::Links->new(
119	name => 'page',
120	current => $pager->current_page,
121	values => [ $pager->first_page .. $pager->last_page ],
122	)->links,
123	qq\|</div>\|
124	);
125
126	$self->add_css( 'static/form.css' );
127
128	my $html = $self->page(
129	body => '<h1>' . $self->fey_class . '</h1>'
130	. $layout_picker
131	. $pager
132	. qq\|<form method="post">$form</form>\|
133	);
134
135	warn ">>> $layout ",length( $html ),"\n";
136
137	$req->print( $html );
138	$req->next;
139
140	$f = { $req->params };
141
142	process_links( $req );
143	}
144
145	warn "NO WAY OUT!";
146	};
147
148	1;