Frey/Web/Item.pm

package Strix::View::User;

use Data::Dump qw/dump/;
use Carp qw/carp/;

use metaclass 'Moose::Meta::Class' => (
        attribute_metaclass => 'Continuity::Meta::Attribute::FormField'
);

use Moose;

extends 'Continuity::Widget';
#with 'BonusTypes';

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);
                $self->_fey->update( %$hash );
                $self->rename_button( 'Save' => 'Edit' );
                $self->delete_button;
        });
        $self->delete_button;
}

sub delete_button {
        my $self = shift;
        $self->add_button('Delete' => sub {
                print STDERR "delete ID @{[$self->id]}!\n";
                $self->_fey->delete;
                $self->next("Deleted id @{[$self->id]}!");
                $self->render_as( 'deleted' );
                Strix::Schema->ClearObjectCaches();     # XXX important!
        });
}

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

        if ( ! $self->_fey ) {
                $self->add_button( 'Add' => sub {
                        my $f = shift;
                        my $hash = $self->set_from_hash($f);
                        delete( $hash->{id} );  # FIXME clear primary key
                        my $u = Strix::User->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;

        warn "# ",$self->uuid, " [", $self->id ,"] _fey = ",dump( $self->_fey );

        while(1) {
        my $out;
                if ( $self->render_as eq 'edit' ) {
                        $out .= $self->render_edit;
                } elsif ( $self->render_as eq 'view' ) {
                        $out .= $self->render_view;
                } else {
                        warn "no renderer ",dump( $self->render_as ), " skipping...";
                }

                warn $@ if $@;
                warn ">>> ",length($out),"\n";
                my $f = $self->next($out);
                $self->set_from_hash($f);
                $self->exec_buttons($f);
        }
};

sub render_edit {
        my $self = shift;
        warn "# render_edit ",$self->id," ",$self->uuid, " ", $self->_layout, "\n";
        my $out = $self->render_iterator( sub {
                #warn "# edit render_iterator ",dump( @_ );
                my ( $name, $field_name, $label, $val ) = @_;
                return if $name =~ /^_/;
                return qq|
                        <tr class="editform">
                        <td class="label">$label</td>
                        <td class="field">
                                <input type=text id="$field_name" name="$field_name" value="$val">
                        </td>
                        </tr>
                | if $self->_layout eq 'table';
                return qq|
                        <div class=fieldholder>
                                <label for="$field_name">$label</label>
                                <div class=field>
                                        <input type=text id="$field_name" name="$field_name" value="$val">
                                </div>
                        </div>
                |;
        });
        $self->render_wrapper_class( $out, 'editform' );
}

sub render_view {
        my $self = shift;
        warn "# render_view ",$self->id," ",$self->uuid," ", $self->_layout,"\n";
        my $out = $self->render_iterator( sub {
                #warn "# view render_iterator ",dump( @_ );
                my ( $name, $field_name, $label, $val ) = @_;
                return if $name =~ /^_/;
                return qq|<tr><td>$label</td><td>$val</td></tr>| if $self->_layout eq 'table';
                return qq|
                        <div class=fieldholder>
                                <div class=label>$label</div>
                                <div class=field>$val</div>
                                </div>
                        </div>
                |;
        });
        $self->render_wrapper_class( $out, 'view' );
}

sub render_wrapper_class {
        my ( $self, $out, $class ) = @_;
        if ( length($out) == 0 ) {
                carp "no output, skipping";
                return '<!-- no output -->';
        }
        $out =~ s/^\t+//mg;     # XXX compress output
        return $out . qq|<tr><td colspan=2>| . $self->render_buttons . qq|</td></tr>| if $self->_layout eq 'table';
        return qq|<div class="$class">| . $out . $self->render_buttons . qq|</div>|;
}

use Data::Dump qw/dump/;

use Strix::User;
my $m = Strix::User->meta;

foreach ( $m->get_attribute_list ) {
        my $attr = $m->get_attribute( $_ );
        warn ">> $_\n";

        # FIXME primary key would have to be read-only!

        has $_ => (
                is => $attr->_is_metadata,
                label => ucfirst($_),
                required => $attr->is_required,
        );

}

has _fey => (
        is => 'rw',
        label => 'Fey object',
        isa => 'Strix::User',
);

use Moose::Util::TypeConstraints;

enum 'Layouts' => qw( div table );

has _layout => (
        is => 'rw',
        isa => 'Layouts',
        default => 'div',
);

1;
1	dpavlin	63	package Strix::View::User;
2
3	dpavlin	71	use Data::Dump qw/dump/;
4	dpavlin	89	use Carp qw/carp/;
5	dpavlin	71
6	dpavlin	63	use metaclass 'Moose::Meta::Class' => (
7			attribute_metaclass => 'Continuity::Meta::Attribute::FormField'
8			);
9
10			use Moose;
11
12			extends 'Continuity::Widget';
13			#with 'BonusTypes';
14
15	dpavlin	82	sub edit_delete_buttons {
16			my $self = shift;
17
18			return unless $self->_fey;
19
20			$self->add_button( 'Edit' => sub {
21	dpavlin	91	$self->remove_button( 'Delete' );
22			$self->rename_button( 'Edit' => 'Save' );
23	dpavlin	82	my $out = $self->render_edit;
24			my $f = $self->next($out);
25			my $hash = $self->set_from_hash($f);
26			$self->_fey->update( %$hash );
27	dpavlin	91	$self->rename_button( 'Save' => 'Edit' );
28			$self->delete_button;
29	dpavlin	82	});
30	dpavlin	91	$self->delete_button;
31			}
32	dpavlin	82
33	dpavlin	91	sub delete_button {
34			my $self = shift;
35	dpavlin	82	$self->add_button('Delete' => sub {
36			print STDERR "delete ID @{[$self->id]}!\n";
37			$self->_fey->delete;
38			$self->next("Deleted id @{[$self->id]}!");
39			$self->render_as( 'deleted' );
40			Strix::Schema->ClearObjectCaches(); # XXX important!
41			});
42			}
43
44	dpavlin	74	sub main {
45			my ( $self ) = @_;
46
47			if ( ! $self->_fey ) {
48			$self->add_button( 'Add' => sub {
49			my $f = shift;
50	dpavlin	82	my $hash = $self->set_from_hash($f);
51			delete( $hash->{id} ); # FIXME clear primary key
52			my $u = Strix::User->insert( %$hash );
53			warn "Inserted ",$u->id;
54			# XXX store object for later
55			$self->_fey( $u );
56			# put ID in widget, so that it know it's not new
57			$self->id( $u->id );
58			$self->render_as( 'view' );
59			$self->edit_delete_buttons;
60			$self->remove_button( 'Add' );
61	dpavlin	74	});
62	dpavlin	79	}
63	dpavlin	74
64	dpavlin	82	$self->edit_delete_buttons;
65	dpavlin	79
66	dpavlin	82	warn "# ",$self->uuid, " [", $self->id ,"] _fey = ",dump( $self->_fey );
67	dpavlin	79
68	dpavlin	74	while(1) {
69	dpavlin	79	my $out;
70			if ( $self->render_as eq 'edit' ) {
71	dpavlin	86	$out .= $self->render_edit;
72	dpavlin	79	} elsif ( $self->render_as eq 'view' ) {
73	dpavlin	86	$out .= $self->render_view;
74	dpavlin	79	} else {
75			warn "no renderer ",dump( $self->render_as ), " skipping...";
76			}
77
78	dpavlin	74	warn $@ if $@;
79	dpavlin	82	warn ">>> ",length($out),"\n";
80	dpavlin	71	my $f = $self->next($out);
81	dpavlin	74	$self->set_from_hash($f);
82			$self->exec_buttons($f);
83			}
84	dpavlin	71	};
85
86	dpavlin	86	sub render_edit {
87			my $self = shift;
88	dpavlin	89	warn "# render_edit ",$self->id," ",$self->uuid, " ", $self->_layout, "\n";
89			my $out = $self->render_iterator( sub {
90			#warn "# edit render_iterator ",dump( @_ );
91			my ( $name, $field_name, $label, $val ) = @_;
92			return if $name =~ /^_/;
93			return qq\|
94	dpavlin	90	<tr class="editform">
95			<td class="label">$label</td>
96			<td class="field">
97	dpavlin	89	<input type=text id="$field_name" name="$field_name" value="$val">
98			</td>
99			</tr>
100			\| if $self->_layout eq 'table';
101			return qq\|
102			<div class=fieldholder>
103	dpavlin	90	<label for="$field_name">$label</label>
104	dpavlin	89	<div class=field>
105			<input type=text id="$field_name" name="$field_name" value="$val">
106	dpavlin	86	</div>
107	dpavlin	89	</div>
108			\|;
109			});
110			$self->render_wrapper_class( $out, 'editform' );
111	dpavlin	86	}
112
113			sub render_view {
114			my $self = shift;
115	dpavlin	89	warn "# render_view ",$self->id," ",$self->uuid," ", $self->_layout,"\n";
116			my $out = $self->render_iterator( sub {
117			#warn "# view render_iterator ",dump( @_ );
118			my ( $name, $field_name, $label, $val ) = @_;
119			return if $name =~ /^_/;
120			return qq\|<tr><td>$label</td><td>$val</td></tr>\| if $self->_layout eq 'table';
121			return qq\|
122			<div class=fieldholder>
123			<div class=label>$label</div>
124			<div class=field>$val</div>
125	dpavlin	86	</div>
126	dpavlin	89	</div>
127			\|;
128			});
129			$self->render_wrapper_class( $out, 'view' );
130	dpavlin	86	}
131
132	dpavlin	89	sub render_wrapper_class {
133			my ( $self, $out, $class ) = @_;
134			if ( length($out) == 0 ) {
135			carp "no output, skipping";
136			return '<!-- no output -->';
137			}
138	dpavlin	90	$out =~ s/^\t+//mg; # XXX compress output
139	dpavlin	89	return $out . qq\|<tr><td colspan=2>\| . $self->render_buttons . qq\|</td></tr>\| if $self->_layout eq 'table';
140			return qq\|<div class="$class">\| . $out . $self->render_buttons . qq\|</div>\|;
141			}
142
143	dpavlin	63	use Data::Dump qw/dump/;
144
145			use Strix::User;
146			my $m = Strix::User->meta;
147
148			foreach ( $m->get_attribute_list ) {
149	dpavlin	74	my $attr = $m->get_attribute( $_ );
150	dpavlin	63	warn ">> $_\n";
151
152	dpavlin	74	# FIXME primary key would have to be read-only!
153
154	dpavlin	63	has $_ => (
155			is => $attr->_is_metadata,
156			label => ucfirst($_),
157			required => $attr->is_required,
158			);
159
160			}
161
162	dpavlin	71	has _fey => (
163			is => 'rw',
164			label => 'Fey object',
165			isa => 'Strix::User',
166			);
167
168	dpavlin	89	use Moose::Util::TypeConstraints;
169
170			enum 'Layouts' => qw( div table );
171
172			has _layout => (
173			is => 'rw',
174			isa => 'Layouts',
175			default => 'div',
176			);
177
178	dpavlin	63	1;