Frey/Web/CRUD.pm

package Frey::Web::CRUD;
use Moose;
extends 'Frey';
with 'Frey::Web::Item';
with 'Frey::Web::Button';

=head1 NAME

Frey::Web::CRUD - Add/Edit/Delete buttons for L<Frey::Web::Item>

=cut

use Data::Dump qw/dump/;

sub edit_delete_buttons {
        my $self = shift;

        return unless $self->fey;

        $self->add_button( 'Edit' => sub {
                $self->remove_button( 'Delete' );
                $self->rename_button( 'Edit' => 'Save' );
                my $out = $self->render_edit;
                my $f = $self->next($out);
                my $hash = $self->set_from_hash($f);
                warn "# Edit/Save hash = ",dump( $hash );
                $self->fey->update( %$hash ) if $hash;
                $self->rename_button( 'Save' => 'Edit' );
                $self->delete_button;
        });
        $self->delete_button;
}

sub delete_button {
        my $self = shift;
        $self->add_button('Delete' => sub {
                $self->fey->delete;
                $self->next( qq|<div class="notice">Deleted id @{[$self->id]}!</div>|);
                $self->render_as( 'none' );
#               Strix::Schema->ClearObjectCaches();     # XXX important!
        });
}

before 'main' => sub {
        my $self = shift;

        if ( ! $self->fey ) {
                $self->add_button( 'Add' => sub {
                        my $f = shift;
                        my $hash = $self->set_from_hash($f);
                        warn "## Add hash ", $self->uuid, " => ",dump( $hash, $f );
                        delete( $hash->{id} );  # FIXME clear primary key
                        my $u = $self->fey_class->insert( %$hash );
                        warn "Inserted ",$u->id;
                        # XXX store object for later
                        $self->fey( $u );
                        # put ID in widget, so that it know it's not new
                        $self->id( $u->id );
                        $self->render_as( 'view' );
                        $self->edit_delete_buttons;
                        $self->remove_button( 'Add' );
                });
        }

        $self->edit_delete_buttons;

};

1;
1	dpavlin	123	package Frey::Web::CRUD;
2			use Moose;
3	dpavlin	129	extends 'Frey';
4			with 'Frey::Web::Item';
5			with 'Frey::Web::Button';
6	dpavlin	123
7			=head1 NAME
8
9			Frey::Web::CRUD - Add/Edit/Delete buttons for L<Frey::Web::Item>
10
11			=cut
12
13			use Data::Dump qw/dump/;
14
15			sub edit_delete_buttons {
16			my $self = shift;
17
18			return unless $self->fey;
19
20			$self->add_button( 'Edit' => sub {
21			$self->remove_button( 'Delete' );
22			$self->rename_button( 'Edit' => 'Save' );
23			my $out = $self->render_edit;
24			my $f = $self->next($out);
25			my $hash = $self->set_from_hash($f);
26			warn "# Edit/Save hash = ",dump( $hash );
27			$self->fey->update( %$hash ) if $hash;
28			$self->rename_button( 'Save' => 'Edit' );
29			$self->delete_button;
30			});
31			$self->delete_button;
32			}
33
34			sub delete_button {
35			my $self = shift;
36			$self->add_button('Delete' => sub {
37			$self->fey->delete;
38			$self->next( qq\|<div class="notice">Deleted id @{[$self->id]}!</div>\|);
39			$self->render_as( 'none' );
40			# Strix::Schema->ClearObjectCaches(); # XXX important!
41			});
42			}
43
44			before 'main' => sub {
45			my $self = shift;
46
47			if ( ! $self->fey ) {
48			$self->add_button( 'Add' => sub {
49			my $f = shift;
50			my $hash = $self->set_from_hash($f);
51			warn "## Add hash ", $self->uuid, " => ",dump( $hash, $f );
52			delete( $hash->{id} ); # FIXME clear primary key
53			my $u = $self->fey_class->insert( %$hash );
54			warn "Inserted ",$u->id;
55			# XXX store object for later
56			$self->fey( $u );
57			# put ID in widget, so that it know it's not new
58			$self->id( $u->id );
59			$self->render_as( 'view' );
60			$self->edit_delete_buttons;
61			$self->remove_button( 'Add' );
62			});
63			}
64
65			$self->edit_delete_buttons;
66
67			};
68
69			1;