/[Frey]/trunk/lib/Frey/Web/CRUD.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/lib/Frey/Web/CRUD.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 129 - (show annotations)
Mon Jul 14 23:44:18 2008 UTC (15 years, 8 months ago) by dpavlin
File size: 1576 byte(s)
refactor to generalize callbacks a bit
1 package Frey::Web::CRUD;
2 use Moose;
3 extends 'Frey';
4 with 'Frey::Web::Item';
5 with 'Frey::Web::Button';
6
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;

  ViewVC Help
Powered by ViewVC 1.1.26