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

Diff of /trunk/lib/Frey/Web/Item.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 152 by dpavlin, Wed Jul 16 21:21:13 2008 UTC revision 153 by dpavlin, Wed Jul 16 23:21:19 2008 UTC
# Line 7  use Moose; Line 7  use Moose;
7  extends 'Frey';  extends 'Frey';
8  with 'Frey::Web::Field';  with 'Frey::Web::Field';
9  with 'Frey::Web::Layout';  with 'Frey::Web::Layout';
10    with 'Frey::Storage';
11  #with 'BonusTypes';  #with 'BonusTypes';
12    
13  use Moose::Util::TypeConstraints;  use Moose::Util::TypeConstraints;
# Line 32  has 'display_columns' => ( Line 33  has 'display_columns' => (
33          lazy_build => 1,          lazy_build => 1,
34  );  );
35    
36    has 'labels' => (
37            is => 'rw',
38            isa => 'HashRef[Str]',
39            default => sub {
40                    my $self = shift;
41                    $self->load( 'var/design/' . $self->fey_class . '-labels' ) || {}
42            },
43    );
44    
45    
46  sub set_from_hash {  sub set_from_hash {
47          my ($self, $f) = @_;          my ($self, $f) = @_;
48          my $attrmap = $self->fey->meta->get_attribute_map if $self->fey;          my $attrmap = $self->fey->meta->get_attribute_map if $self->fey;
# Line 85  sub field_value { Line 96  sub field_value {
96    
97  sub field_label {  sub field_label {
98          my ( $self, $name ) = @_;          my ( $self, $name ) = @_;
99          my $label = ucfirst($name);          my $new_labels = $self->reload( 'var/design/' . $self->fey_class . '-labels' );
100            $self->labels( $new_labels ) if $new_labels;
101            my $label = $self->labels->{$name} || ucfirst($name);
102          return $label;          return $label;
103  }  }
104    
Legend:
Removed from v.152  
changed lines
  Added in v.153
  ViewVC Help
Powered by ViewVC 1.1.26