Frey/ORM/Browser.pm

package Frey::ORM::Browser;
use Moose;

#use Data::Dumper;
#$Data::Dumper::Deparse = 1;
use Data::Dump qw/dump/;

use lib 'lib';
use Frey::ORM::Item;
use Frey::ORM::Links;

extends 'Frey::ORM::Pager';
with 'Frey::Web';

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

sub as_markup {
        my ( $self ) = @_;

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

        $self->update_collection;

        my $last = $self->last_item;

        if ( $last->fey ) {
                warn "+++ add item widget\n";
                $self->add_item(
                        Frey::ORM::CRUD->new(
                                fey_class => $self->fey_class,
                                render_as => 'edit',
                        )
                );
        }

        my $form = $self->items_in_layout;
        $form = $last->render_table_wrapper( $form );

        my $html = $self->html_page(
                body => '<h1>' . $self->fey_class . '</h1>'
                        . $last->layout_picker  # FIXME ugly
                        . $self->render_pager
                        . qq|<form method="post">$form</form>|
        );

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

        return $html;
};

1;
1	dpavlin	969	package Frey::ORM::Browser;
2	dpavlin	60	use Moose;
3
4	dpavlin	969	#use Data::Dumper;
5			#$Data::Dumper::Deparse = 1;
6			use Data::Dump qw/dump/;
7
8			use lib 'lib';
9			use Frey::ORM::Item;
10			use Frey::ORM::Links;
11
12			extends 'Frey::ORM::Pager';
13	dpavlin	100	with 'Frey::Web';
14	dpavlin	60
15	dpavlin	101	has 'fey_class' => (
16			is => 'rw',
17			isa => 'Str',
18			required => 1,
19			);
20
21	dpavlin	969	sub as_markup {
22			my ( $self ) = @_;
23	dpavlin	60
24	dpavlin	160	$self->add_head( 'static/form.css' );
25	dpavlin	143	my @w;
26
27	dpavlin	969	$self->update_collection;
28	dpavlin	89
29	dpavlin	969	my $last = $self->last_item;
30	dpavlin	68
31	dpavlin	969	if ( $last->fey ) {
32			warn "+++ add item widget\n";
33			$self->add_item(
34			Frey::ORM::CRUD->new(
35			fey_class => $self->fey_class,
36			render_as => 'edit',
37			)
38	dpavlin	100	);
39	dpavlin	969	}
40	dpavlin	72
41	dpavlin	969	my $form = $self->items_in_layout;
42			$form = $last->render_table_wrapper( $form );
43	dpavlin	93
44	dpavlin	969	my $html = $self->html_page(
45			body => '<h1>' . $self->fey_class . '</h1>'
46			. $last->layout_picker # FIXME ugly
47			. $self->render_pager
48			. qq\|<form method="post">$form</form>\|
49			);
50	dpavlin	72
51	dpavlin	969	warn ">>> ",length( $html ),"\n";
52	dpavlin	68
53	dpavlin	969	return $html;
54	dpavlin	60	};
55
56			1;