Frey/DBIC/Designer.pm

package Frey::DBIC::Designer;
use Moose;

extends 'Frey';
with 'Frey::Web';
with 'Frey::Config';
with 'Frey::Storage';
with 'Frey::jQuery';

has dbic_class => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'Reblog::Schema',
);

has dsn => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'DBI:mysql:database=reblog;host=127.0.0.1;port=13306',
);

has result_set => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'Items',
);

has order_by => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'insert_timestamp desc',
);

has page => (
        is => 'rw',
        isa => 'Int',
        required => 1,
        default => 1,
);

has columns => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
);

has dnd_serialize => (
        is => 'rw',
        isa => 'Str',
);

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

        my $dbic_class  = $self->dbic_class;
        my $dsn                 = $self->dsn;
        my $schema;

        my $code = qq{
                use $dbic_class ;
                \$schema = $dbic_class->connect("$dsn", '', '');
        };

        eval $code;
        die $@ if $@;

        $schema->storage->debug(1); # XXX dump storage generated SQL

        my $attrs;

        $attrs->{ $_ } = $self->$_ foreach ( grep { $self->$_ } ( qw/page order_by/ ) );
        warn "# attrs ", $self->dump( $attrs );

        my $rs = $schema->resultset( $self->result_set )
                ->published
                ->search( undef, $attrs )
                ;

        my @columns = @{ $self->columns } if $self->columns;
        my @all_columns = $rs->first->columns;
        @columns = @all_columns unless @columns;
        warn "# columns ", $self->dump( @columns );

        my $rows;

        while ( my $feed = $rs->next ) {
#               my %row = $feed->get_columns;

                my $row;

                foreach my $name ( @columns ) {
                        my $v = $feed->$name;
                        $v = '<code>NULL</code>' if ! defined $v;
                        $row .= qq|<td title="$name">$v</td>|;
                }

                $row .= qq|<td>| . $feed->feed->title . qq|</td>| if $feed->can('feed');

                $rows .= qq|<tr>$row</tr>\n|;
        }

        $self->add_css(qq|
                #column-editor {
                        border: 1px solid #888;
                        background: #ffc;
                        position: absolute;
                        top: 1em;
                        right: 1em;
                        z-index: 10;
                        opacity: .2;
                        filter: alpha(opacity=20);
                }
                #column-editor:hover {
                        opacity: 1;
                        filter: alpha(opacity=100);
                }
                #column-editor small {
                        color: #888;
                }
        |);

        my $visible_columns;
        $visible_columns->{$_}++ foreach @columns;

        @all_columns = (
                # dnd_serialize is in php format id[]=foo&id[]=bar
                map { s/[^=]+=// ; $_ } split(/&/, $self->dnd_serialize )
        ) if $self->dnd_serialize;
        warn "# column-editor for ", $self->dump( @all_columns );

        my $dnd_serialize = join('&', @all_columns);
        my $column_editor = qq|
                <form id="column-editor" method="get"><!-- FIXME we really should do post, but it doesn't work! -->
                <table id="column-table">
                <input type="submit" value="refresh">
        |

        . join("\n", map {
                my $checked = '';
                $checked = 'checked=1' if $visible_columns->{$_};
                qq|
                <tr id="$_">
                        <td><input type="checkbox" name="columns" value="$_" $checked></td>
                        <td>$_</td>
                </tr>
                |
        } @all_columns )

        . qq|
                </table>
                <input type="submit" value="refresh">
                <input type="hidden" name="dnd_serialize" id="dnd_serialize" value="$dnd_serialize">
                </form>
        |
        ;

        $self->add_js( 'static/Frey/jQuery/jquery.tablednd_0_5.js' );
        $self->add_js(q|
                $(document).ready(function() {
                        // Initialise the table
                        $("#column-table").tableDnD({
                                onDrop: function(table, row) {
                                        $('#dnd_serialize').val(
                                                $('#column-table').tableDnDSerialize()
                                        );
                                },
                        });
                });
        |);

        my $total = $rs->pager->total_entries;

        my $header = qq|<tr><th>| . join(qq|</th><th>|, @columns) . qq|</th></tr>|;

        my $html = qq|
                Rows: <b>$total</b>
                $column_editor
                <table>
                $header
                $rows
                </table>
        |;

        return $html;
}

=head1 SEE ALSO

DBIx::Master Class

L<http://www.shadowcat.co.uk/catalyst/-talks/yapc-na-2008/dbix-masterclass.xul> presentation

L<http://www.shadowcat.co.uk/archive/conference-video/yapc-eu-2008/dbic-masterclass/> video

=cut

1;
1	dpavlin	1024	package Frey::DBIC::Designer;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6			with 'Frey::Config';
7			with 'Frey::Storage';
8	dpavlin	1026	with 'Frey::jQuery';
9	dpavlin	1024
10			has dbic_class => (
11			is => 'rw',
12			isa => 'Str',
13			required => 1,
14			default => 'Reblog::Schema',
15			);
16
17			has dsn => (
18			is => 'rw',
19			isa => 'Str',
20			required => 1,
21			default => 'DBI:mysql:database=reblog;host=127.0.0.1;port=13306',
22			);
23
24			has result_set => (
25			is => 'rw',
26			isa => 'Str',
27			required => 1,
28			default => 'Items',
29			);
30
31			has order_by => (
32			is => 'rw',
33			isa => 'Str',
34			required => 1,
35			default => 'insert_timestamp desc',
36			);
37
38			has page => (
39			is => 'rw',
40			isa => 'Int',
41			required => 1,
42			default => 1,
43			);
44
45	dpavlin	1027	has columns => (
46	dpavlin	1024	is => 'rw',
47	dpavlin	1027	isa => 'ArrayRef[Str]',
48			);
49
50			has dnd_serialize => (
51			is => 'rw',
52	dpavlin	1024	isa => 'Str',
53			);
54
55			sub as_markup {
56			my ($self) = @_;
57
58			my $dbic_class = $self->dbic_class;
59			my $dsn = $self->dsn;
60			my $schema;
61
62			my $code = qq{
63			use $dbic_class ;
64			\$schema = $dbic_class->connect("$dsn", '', '');
65			};
66
67			eval $code;
68			die $@ if $@;
69
70			$schema->storage->debug(1); # XXX dump storage generated SQL
71
72			my $attrs;
73
74			$attrs->{ $_ } = $self->$_ foreach ( grep { $self->$_ } ( qw/page order_by/ ) );
75			warn "# attrs ", $self->dump( $attrs );
76
77			my $rs = $schema->resultset( $self->result_set )
78			->published
79			->search( undef, $attrs )
80			;
81
82	dpavlin	1027	my @columns = @{ $self->columns } if $self->columns;
83	dpavlin	1026	my @all_columns = $rs->first->columns;
84			@columns = @all_columns unless @columns;
85	dpavlin	1024	warn "# columns ", $self->dump( @columns );
86
87			my $rows;
88
89	dpavlin	1039	while ( my $feed = $rs->next ) {
90			# my %row = $feed->get_columns;
91	dpavlin	1024
92			my $row;
93
94			foreach my $name ( @columns ) {
95	dpavlin	1039	my $v = $feed->$name;
96	dpavlin	1024	$v = '<code>NULL</code>' if ! defined $v;
97			$row .= qq\|<td title="$name">$v</td>\|;
98			}
99
100	dpavlin	1039	$row .= qq\|<td>\| . $feed->feed->title . qq\|</td>\| if $feed->can('feed');
101	dpavlin	1036
102	dpavlin	1024	$rows .= qq\|<tr>$row</tr>\n\|;
103			}
104
105	dpavlin	1026	$self->add_css(qq\|
106			#column-editor {
107			border: 1px solid #888;
108			background: #ffc;
109			position: absolute;
110			top: 1em;
111			right: 1em;
112	dpavlin	1027	z-index: 10;
113			opacity: .2;
114			filter: alpha(opacity=20);
115	dpavlin	1026	}
116	dpavlin	1027	#column-editor:hover {
117			opacity: 1;
118			filter: alpha(opacity=100);
119			}
120			#column-editor small {
121			color: #888;
122			}
123	dpavlin	1026	\|);
124
125	dpavlin	1027	my $visible_columns;
126			$visible_columns->{$_}++ foreach @columns;
127	dpavlin	1026
128	dpavlin	1027	@all_columns = (
129			# dnd_serialize is in php format id[]=foo&id[]=bar
130			map { s/[^=]+=// ; $_ } split(/&/, $self->dnd_serialize )
131			) if $self->dnd_serialize;
132			warn "# column-editor for ", $self->dump( @all_columns );
133
134			my $dnd_serialize = join('&', @all_columns);
135	dpavlin	1026	my $column_editor = qq\|
136	dpavlin	1027	<form id="column-editor" method="get"><!-- FIXME we really should do post, but it doesn't work! -->
137			<table id="column-table">
138			<input type="submit" value="refresh">
139			\|
140
141			. join("\n", map {
142			my $checked = '';
143			$checked = 'checked=1' if $visible_columns->{$_};
144			qq\|
145			<tr id="$_">
146			<td><input type="checkbox" name="columns" value="$_" $checked></td>
147			<td>$_</td>
148			</tr>
149			\|
150			} @all_columns )
151
152	dpavlin	1026	. qq\|
153			</table>
154	dpavlin	1027	<input type="submit" value="refresh">
155			<input type="hidden" name="dnd_serialize" id="dnd_serialize" value="$dnd_serialize">
156			</form>
157	dpavlin	1026	\|
158			;
159
160			$self->add_js( 'static/Frey/jQuery/jquery.tablednd_0_5.js' );
161			$self->add_js(q\|
162			$(document).ready(function() {
163			// Initialise the table
164	dpavlin	1027	$("#column-table").tableDnD({
165			onDrop: function(table, row) {
166			$('#dnd_serialize').val(
167			$('#column-table').tableDnDSerialize()
168			);
169			},
170			});
171	dpavlin	1026	});
172			\|);
173
174	dpavlin	1024	my $total = $rs->pager->total_entries;
175
176	dpavlin	1027	my $header = qq\|<tr><th>\| . join(qq\|</th><th>\|, @columns) . qq\|</th></tr>\|;
177	dpavlin	1024
178			my $html = qq\|
179			Rows: <b>$total</b>
180	dpavlin	1026	$column_editor
181	dpavlin	1024	<table>
182			$header
183			$rows
184			</table>
185			\|;
186
187			return $html;
188			}
189
190			=head1 SEE ALSO
191
192			DBIx::Master Class
193
194			L<http://www.shadowcat.co.uk/catalyst/-talks/yapc-na-2008/dbix-masterclass.xul> presentation
195
196			L<http://www.shadowcat.co.uk/archive/conference-video/yapc-eu-2008/dbic-masterclass/> video
197
198			=cut
199
200			1;