parameter_hashref() now uses default values from action attributes
[catagits/Reaction.git] / lib / Reaction / UI / Widget / Field / Mutable.pm
CommitLineData
2f670e13 1package Reaction::UI::Widget::Field::Mutable;
2
3use Reaction::UI::WidgetClass;
4
bae75bee 5use namespace::clean -except => [ qw(meta) ];
6extends 'Reaction::UI::Widget::Field';
7
8
9
10 before fragment widget {
11 arg 'field_id' => event_id 'value_string';
12 arg 'field_name' => event_id 'value_string' unless defined $_{field_name};
13 arg 'field_type' => 'text';
14 arg 'field_class' => "action-field " . $_{viewport}->name;
15
16 # these two are to fire force_events in viewports
17 # where you can end up without an event for e.g.
18 # HTML checkbox fields
19
20 arg 'exists_event' => event_id 'exists';
21 arg 'exists_value' => 1;
22 };
23
24 implements fragment message_fragment {
b44e101f 25 my $vp = $_{viewport};
26 my $message = $_{viewport}->message;
27 $message ||= $vp->name.' is required'
28 if $vp->value_is_required && !$vp->value_string;
29 if ($message) {
d219104c 30 arg message => localized $message;
bae75bee 31 render 'message';
32 }
33 };
34
35 implements fragment field_is_required {
39453d9d 36 my $vp = $_{viewport};
37 if ( $vp->value_is_required && !$vp->value_string ) {
bae75bee 38 render 'field_is_required_yes';
39 } else {
40 render 'field_is_required_no';
41 }
42 };
43
44__PACKAGE__->meta->make_immutable;
45
2f670e13 46
471;
48
49__END__;