/[Frey]/trunk/lib/Frey/Web/Item.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/Item.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 98 - (show annotations)
Fri Jul 11 17:53:08 2008 UTC (15 years, 8 months ago) by dpavlin
Original Path: trunk/lib/Frey/Web/Row.pm
File size: 6234 byte(s)
more refactoring

Frey::Web::Row is now holder for single row from Fey::ORM
which is no longer based on Continuity::Widget (I really didn't need
attributes on widget with values, I allready had that from Fay::ORM object
which I just wrap into widget)
1 package Frey::Web::Row;
2
3 use Data::Dump qw/dump/;
4 use Carp qw/carp/;
5
6 use Moose;
7
8 extends 'Frey::Web::Button';
9 #with 'BonusTypes';
10
11 use Moose::Util::TypeConstraints;
12
13 enum 'Render_as' => qw( view edit none );
14 has render_as => ( is => 'rw', isa => 'Render_as', required => 1, default => 'view' );
15
16 has fey => (
17 is => 'rw',
18 label => 'Fey object',
19 isa => 'Object', # FIXME Strix::User?
20 # required => 1, # XXX if we require it we can't have Add form
21 );
22
23 enum 'Layouts' => qw( div table columns );
24 has layout => (
25 is => 'rw',
26 isa => 'Layouts',
27 default => 'div',
28 required => 1,
29 );
30
31 has 'display_columns' => (
32 is => 'rw',
33 isa => 'ArrayRef[Str]',
34 lazy_build => 1,
35 );
36
37 sub id {
38 my $self = shift;
39 carp "LEGACY: called ->id";
40 $self->fey->id if $self->fey;
41 }
42
43 sub set_from_hash {
44 my ($self, $f) = @_;
45 my $attrmap = $self->fey->meta->get_attribute_map if $self->fey;
46 my $hash;
47 foreach my $name ( @{ $self->display_columns } ) {
48 my $field_name = $self->field_name($name);
49 if(defined $f->{$field_name}) {
50 $hash->{ $name } = $f->{$field_name};
51
52 if ( defined $attrmap->{$name} ) {
53 my $writer = $attrmap->{$name}->get_write_method;
54 $self->fey->$writer($f->{$field_name});
55 } else {
56 warn "can't store value back into fey->$name";
57 }
58 }
59 }
60 warn "# set_from_hash ", $self->uuid," produced hash = ",dump( $hash ) if $hash;
61 return $hash;
62 }
63
64 sub render_iterator {
65 confess "BACKWARD INCOMATIBLE CHANGE: render_iterator works ONLY with 2 params!" unless $#_ == 1;
66 my ($self, $iterator) = @_;
67 my $out;
68 # my %attrmap = %{ $self->meta->get_attribute_map };
69 # while( my ($name, $attr) = each %attrmap ) {
70 # my $reader = $attr->get_read_method;
71 # my $val = $self->$reader || '';
72 foreach my $name ( @{ $self->display_columns } ) {
73 my $field_name = $self->field_name($name);
74 my $val;
75 $val = $self->fey->$name if $self->fey && $self->fey->can($name);
76 $out .= $iterator->( $name, $field_name, ucfirst($name), $val ) || ''; # || '' to shut warnings
77 }
78 return $out;
79 }
80
81 sub edit_delete_buttons {
82 my $self = shift;
83
84 return unless $self->fey;
85
86 $self->add_button( 'Edit' => sub {
87 $self->remove_button( 'Delete' );
88 $self->rename_button( 'Edit' => 'Save' );
89 my $out = $self->render_edit;
90 my $f = $self->next($out);
91 my $hash = $self->set_from_hash($f);
92 warn "# Edit/Save hash = ",dump( $hash );
93 $self->fey->update( %$hash ) if $hash;
94 $self->rename_button( 'Save' => 'Edit' );
95 $self->delete_button;
96 });
97 $self->delete_button;
98 }
99
100 sub delete_button {
101 my $self = shift;
102 $self->add_button('Delete' => sub {
103 $self->fey->delete;
104 $self->next( qq|<div class="notice">Deleted id @{[$self->id]}!</div>|);
105 $self->render_as( 'none' );
106 # Strix::Schema->ClearObjectCaches(); # XXX important!
107 });
108 }
109
110 sub main {
111 my ( $self ) = @_;
112
113 if ( ! $self->fey ) {
114 $self->add_button( 'Add' => sub {
115 my $f = shift;
116 my $hash = $self->set_from_hash($f);
117 warn "## Add hash ", $self->uuid, " => ",dump( $hash, $f );
118 delete( $hash->{id} ); # FIXME clear primary key
119 my $u = Strix::User->insert( %$hash );
120 warn "Inserted ",$u->id;
121 # XXX store object for later
122 $self->fey( $u );
123 # put ID in widget, so that it know it's not new
124 $self->id( $u->id );
125 $self->render_as( 'view' );
126 $self->edit_delete_buttons;
127 $self->remove_button( 'Add' );
128 });
129 }
130
131 $self->edit_delete_buttons;
132
133 warn "# ",$self->uuid, " [", $self->id ,"] fey = ",dump( $self->fey );
134
135 while(1) {
136 my $out;
137 if ( $self->render_as eq 'edit' ) {
138 $out .= $self->render_edit;
139 } elsif ( $self->render_as eq 'view' ) {
140 $out .= $self->render_view;
141 } else {
142 warn "no renderer ",dump( $self->render_as ), " skipping...";
143 }
144
145 warn $@ if $@;
146 warn ">>> ",length($out),"\n";
147 my $f = $self->next($out);
148 $self->set_from_hash($f);
149 $self->exec_buttons($f);
150 }
151 };
152
153 sub render_edit {
154 my $self = shift;
155 warn "# render_edit ",$self->id," ",$self->uuid, " ", $self->layout, "\n";
156 my $out = $self->render_iterator( sub {
157 #warn "# edit render_iterator ",dump( @_ );
158 my ( $name, $field_name, $label, $val ) = @_;
159 return if $name =~ /^_/;
160 return qq|
161 <tr class="editform">
162 <td class="label">$label</td>
163 <td class="field">
164 <input type=text id="$field_name" name="$field_name" value="$val">
165 </td>
166 </tr>
167 | if $self->layout eq 'table';
168 return qq|
169 <td class="field">
170 <input type=text id="$field_name" name="$field_name" value="$val">
171 </td>
172 | if $self->layout eq 'columns';
173 return qq|
174 <div class=fieldholder>
175 <label for="$field_name">$label</label>
176 <div class=field>
177 <input type=text id="$field_name" name="$field_name" value="$val">
178 </div>
179 </div>
180 |;
181 });
182
183 return qq|<tr class="editform">$out<td>| . $self->render_buttons . qq|</td></tr>| if $self->layout eq 'columns';
184
185 $self->render_wrapper_class( $out, 'editform' );
186 }
187
188 sub render_view {
189 my $self = shift;
190 warn "# render_view ",$self->id," ",$self->uuid," ", $self->layout,"\n";
191 my $out = $self->render_iterator( sub {
192 #warn "# view render_iterator ",dump( @_ );
193 my ( $name, $field_name, $label, $val ) = @_;
194 return if $name =~ /^_/;
195 return qq|<tr><td>$label</td><td>$val</td></tr>| if $self->layout eq 'table';
196 return qq|<td>$val</td>| if $self->layout eq 'columns';
197 return qq|
198 <div class=fieldholder>
199 <div class=label>$label</div>
200 <div class=field>$val</div>
201 </div>
202 </div>
203 |;
204 });
205 return qq|<tr>$out<td>| . $self->render_buttons . qq|</td></tr>| if $self->layout eq 'columns';
206 $self->render_wrapper_class( $out, 'view' );
207 }
208
209 sub render_wrapper_class {
210 my ( $self, $out, $class ) = @_;
211 if ( length($out) == 0 ) {
212 carp "no output, skipping";
213 return '<!-- no output -->';
214 }
215 $out =~ s/^\t+//mg; # XXX compress output
216 return $out . qq|<tr><td colspan=2>| . $self->render_buttons . qq|</td></tr>| if $self->layout eq 'table';
217 return qq|<div class="$class">| . $out . $self->render_buttons . qq|</div>|;
218 }
219
220 use Strix::User;
221
222 sub _build_display_columns {
223 my $self = shift;
224
225 my $m = Strix::User->meta;
226
227 my @cols;
228
229 foreach ( $m->get_attribute_list ) {
230 my $attr = $m->get_attribute( $_ );
231 warn ">> $_\n";
232 # FIXME primary key would have to be read-only!
233 push @cols, $_;
234 }
235
236 warn "## display_columns ",dump( @cols );
237
238 return \@cols;
239 }
240
241 1;

  ViewVC Help
Powered by ViewVC 1.1.26