Frey/Web/Design.pm

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

=head1 NAME

Frey::Web::Design - field designer for L<Frey::Web::Item>

=cut

use Data::Dump qw/dump/;

our $labels;
our $label_order;
our $label_editable;
our $label_count = 0;

=for removed

has 'labels' => (
        is => 'rw',
        isa => 'HashRef[Str]',
        default => sub { {} },
);

has 'label_order' => (
        is => 'rw',
        isa => 'HashRef[Int]',
        default => sub { {} },
);

has 'label_editable' => (
        is => 'rw',
        isa => 'HashRef[Frey::Web::Editable]',
        default => sub { {} },
);
=cut

use Frey::Web::Editable;

our $first_uuid;

around 'field_label' => sub {
        my ($next, $self, $name) = @_;
        my $orig_label = $self->$next($name);

        my $label = $labels->{ $name } ||= $orig_label;

        if ( ! defined $label_order->{ $name } ) {
                warn "field_label $label_count $name -> $label\n";
                $label_order->{ $name } = $label_count++;
                $label_editable->{ $name } = Frey::Web::Editable->new(
                        name => $name,
                        value => $label,
                        render_as => 'edit',
                        save_callback => sub {
                                my ( $self, $val ) = @_;
                                $labels->{ $name } = $val;
                                # XXX we really need this since we are in continutation and have old value!
                                $self->value( $val );
                                warn "## saved $val new labels = ",dump( $labels, $self->value );
                        }
                );
        }

        warn "around field_label ", $self->uuid, ' ', $label_order->{ $name }, ' ', $label_count, dump( $labels ), $/;

        $first_uuid ||= $self->uuid;
        return $label unless $first_uuid eq $self->uuid;

        my $edit = $label_editable->{ $name };

        my $html;
        $html .= qq|<a style="color:#888" href="">&larr;</a>| if $label_order->{ $name } > 0 ;
        $html .= $edit->process( Frey::Request->params );
        $html .= qq|<a style="color:#888" href="">&rarr;</a>|;

        return $html;
};

1;
1	dpavlin	129	package Frey::Web::Design;
2			use Moose;
3	dpavlin	143	extends 'Frey::Web::Item';
4	dpavlin	129	with 'Frey::Web::Button';
5
6			=head1 NAME
7
8			Frey::Web::Design - field designer for L<Frey::Web::Item>
9
10			=cut
11
12			use Data::Dump qw/dump/;
13
14	dpavlin	149	our $labels;
15			our $label_order;
16			our $label_editable;
17			our $label_count = 0;
18
19			=for removed
20
21	dpavlin	143	has 'labels' => (
22			is => 'rw',
23			isa => 'HashRef[Str]',
24			default => sub { {} },
25			);
26
27	dpavlin	149	has 'label_order' => (
28	dpavlin	143	is => 'rw',
29	dpavlin	149	isa => 'HashRef[Int]',
30			default => sub { {} },
31	dpavlin	143	);
32
33	dpavlin	149	has 'label_editable' => (
34			is => 'rw',
35			isa => 'HashRef[Frey::Web::Editable]',
36			default => sub { {} },
37			);
38			=cut
39
40			use Frey::Web::Editable;
41
42			our $first_uuid;
43
44	dpavlin	143	around 'field_label' => sub {
45			my ($next, $self, $name) = @_;
46	dpavlin	149	my $orig_label = $self->$next($name);
47	dpavlin	143
48	dpavlin	149	my $label = $labels->{ $name } \|\|= $orig_label;
49	dpavlin	143
50	dpavlin	149	if ( ! defined $label_order->{ $name } ) {
51			warn "field_label $label_count $name -> $label\n";
52			$label_order->{ $name } = $label_count++;
53			$label_editable->{ $name } = Frey::Web::Editable->new(
54			name => $name,
55			value => $label,
56			render_as => 'edit',
57			save_callback => sub {
58			my ( $self, $val ) = @_;
59			$labels->{ $name } = $val;
60			# XXX we really need this since we are in continutation and have old value!
61			$self->value( $val );
62			warn "## saved $val new labels = ",dump( $labels, $self->value );
63			}
64			);
65			}
66	dpavlin	143
67	dpavlin	149	warn "around field_label ", $self->uuid, ' ', $label_order->{ $name }, ' ', $label_count, dump( $labels ), $/;
68	dpavlin	129
69	dpavlin	149	$first_uuid \|\|= $self->uuid;
70			return $label unless $first_uuid eq $self->uuid;
71	dpavlin	129
72	dpavlin	149	my $edit = $label_editable->{ $name };
73
74			my $html;
75			$html .= qq\|<a style="color:#888" href="">←</a>\| if $label_order->{ $name } > 0 ;
76			$html .= $edit->process( Frey::Request->params );
77			$html .= qq\|<a style="color:#888" href="">→</a>\|;
78
79			return $html;
80	dpavlin	129	};
81
82			1;