Frey/ORM/Designer.pm

package Frey::ORM::Designer;
use Moose;

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

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

use Data::Dump qw/dump/;

use Frey::ORM::Design;
use Frey::ORM::Links;

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

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

        my $pager;
        my $items = 0;

        while ( 1 ) {
                $Frey::Request::current = $req;
                my $f = { $req->params };
                warn "<<< GOT REQUEST ",dump( $f );

                $pager ||= Frey::Pager->new(
                        fey_class => $self->fey_class,
                        item_constructor => sub {
                                $items++;
                                warn "item_constructor $items";
                                return Frey::ORM::Design->new( fey_class => $self->fey_class, @_ ) if $items == 1;
                                return Frey::ORM::Item->new( fey_class => $self->fey_class, @_ );
                        },
                ) if ! $pager;

                $pager->pager->entries_per_page( 5 );
                $pager->update_collection;

                my $form = $pager->items_in_layout( $f );
                # we should use first_item here to get edit fields for labels
                $form = $pager->first_item->render_table_wrapper( $form );

            my $html = $self->html_page(
                        body => '<h1>' . $self->fey_class . '</h1>'
                                . $pager->first_item->layout_picker     # FIXME
                                . qq|Showing $items items from collection|
                                . qq|<form method="post"><input type="submit" value="Save design">$form</form>|
                );

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

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

        warn "NO WAY OUT!";
};

1;
1	dpavlin	969	package Frey::ORM::Designer;
2	dpavlin	113	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			use Data::Dump qw/dump/;
14
15	dpavlin	980	use Frey::ORM::Design;
16			use Frey::ORM::Links;
17	dpavlin	113
18	dpavlin	213	sub request {
19	dpavlin	113	my ( $self, $req ) = @_;
20
21	dpavlin	160	$self->add_head( 'static/form.css' );
22	dpavlin	113
23	dpavlin	143	my $pager;
24	dpavlin	149	my $items = 0;
25	dpavlin	143
26	dpavlin	113	while ( 1 ) {
27	dpavlin	149	$Frey::Request::current = $req;
28	dpavlin	143	my $f = { $req->params };
29			warn "<<< GOT REQUEST ",dump( $f );
30	dpavlin	149
31			$pager \|\|= Frey::Pager->new(
32	dpavlin	143	fey_class => $self->fey_class,
33			item_constructor => sub {
34	dpavlin	149	$items++;
35			warn "item_constructor $items";
36	dpavlin	980	return Frey::ORM::Design->new( fey_class => $self->fey_class, @_ ) if $items == 1;
37			return Frey::ORM::Item->new( fey_class => $self->fey_class, @_ );
38	dpavlin	143	},
39			) if ! $pager;
40	dpavlin	113
41	dpavlin	149	$pager->pager->entries_per_page( 5 );
42	dpavlin	143	$pager->update_collection;
43	dpavlin	113
44	dpavlin	143	my $form = $pager->items_in_layout( $f );
45	dpavlin	149	# we should use first_item here to get edit fields for labels
46			$form = $pager->first_item->render_table_wrapper( $form );
47	dpavlin	113
48	dpavlin	961	my $html = $self->html_page(
49	dpavlin	121	body => '<h1>' . $self->fey_class . '</h1>'
50	dpavlin	149	. $pager->first_item->layout_picker # FIXME
51			. qq\|Showing $items items from collection\|
52			. qq\|<form method="post"><input type="submit" value="Save design">$form</form>\|
53	dpavlin	113	);
54
55	dpavlin	143	warn ">>> ",length( $html ),"\n";
56	dpavlin	113
57			$req->print( $html );
58			$req->next;
59			}
60
61			warn "NO WAY OUT!";
62			};
63
64			1;