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/;

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 { {} },
);

has 'label_count' => (
        is => 'rw',
        isa => 'Int',
        default => 0,
);

use Frey::Web::Editable;

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

        my $label = $self->labels->{ $name } ||= $orig_label;
        my $order = $self->label_order->{ $name };
        my $count = $self->label_count;

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

        warn "around field_label ", $self->uuid, " $order $count ", dump( $self->labels ), $/;

        my $html;
        $html .= qq|<a style="color:#888" href="">&larr;</a>| if $self->label_order->{ $name } > 0 ;
        $html .= $self->label_editable->{ $name }->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	143	has 'labels' => (
15			is => 'rw',
16			isa => 'HashRef[Str]',
17			default => sub { {} },
18			);
19
20	dpavlin	149	has 'label_order' => (
21	dpavlin	143	is => 'rw',
22	dpavlin	149	isa => 'HashRef[Int]',
23			default => sub { {} },
24	dpavlin	143	);
25
26	dpavlin	149	has 'label_editable' => (
27			is => 'rw',
28			isa => 'HashRef[Frey::Web::Editable]',
29			default => sub { {} },
30			);
31
32	dpavlin	150	has 'label_count' => (
33			is => 'rw',
34			isa => 'Int',
35			default => 0,
36			);
37
38	dpavlin	149	use Frey::Web::Editable;
39
40	dpavlin	143	around 'field_label' => sub {
41			my ($next, $self, $name) = @_;
42	dpavlin	149	my $orig_label = $self->$next($name);
43	dpavlin	143
44	dpavlin	150	my $label = $self->labels->{ $name } \|\|= $orig_label;
45			my $order = $self->label_order->{ $name };
46			my $count = $self->label_count;
47	dpavlin	143
48	dpavlin	150	if ( ! defined $order ) {
49			warn "field_label $count $name -> $label\n";
50			$self->label_order->{ $name } = $count++;
51			$self->label_count( $count );
52			$self->label_editable->{ $name } = Frey::Web::Editable->new(
53	dpavlin	149	name => $name,
54			value => $label,
55			render_as => 'edit',
56			save_callback => sub {
57	dpavlin	150	my ( $caller, $val ) = @_;
58			$self->labels->{ $name } = $val;
59	dpavlin	149	# XXX we really need this since we are in continutation and have old value!
60	dpavlin	150	$caller->value( $val );
61			warn "## saved $val new labels = ",dump( $self->labels, $caller->value );
62	dpavlin	149	}
63			);
64			}
65	dpavlin	143
66	dpavlin	150	warn "around field_label ", $self->uuid, " $order $count ", dump( $self->labels ), $/;
67	dpavlin	129
68	dpavlin	149	my $html;
69	dpavlin	150	$html .= qq\|<a style="color:#888" href="">←</a>\| if $self->label_order->{ $name } > 0 ;
70			$html .= $self->label_editable->{ $name }->process( Frey::Request->params );
71	dpavlin	149	$html .= qq\|<a style="color:#888" href="">→</a>\|;
72
73			return $html;
74	dpavlin	129	};
75
76			1;