blob: e323c3336cd476c2743ddcf35b6010e5a4ed7d56 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
package Reaction::UI::Widget::Field::Mutable;
use Reaction::UI::WidgetClass;
class Mutable is 'Reaction::UI::Widget::Field', which {
before fragment widget {
arg 'field_id' => event_id 'value_string';
arg 'field_name' => event_id 'value_string' unless defined $_{field_name};
arg 'field_type' => 'text';
};
implements fragment message_fragment {
if (my $message = $_{viewport}->message) {
arg message => $message;
render 'message';
}
};
implements fragment field_is_required {
if ( $_{viewport}->attribute->is_required ) {
render 'field_is_required_yes';
} else {
render 'field_is_required_no';
}
};
};
1;
__END__;
|