/[Arh]/lib/Arh/View/Units.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 /lib/Arh/View/Units.pm

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

revision 28 by dpavlin, Mon Dec 10 14:56:12 2007 UTC revision 66 by dpavlin, Tue Apr 8 21:34:16 2008 UTC
# Line 6  use warnings; Line 6  use warnings;
6  use base 'Jifty::View::Declare::CRUD';  use base 'Jifty::View::Declare::CRUD';
7  use Jifty::View::Declare -base;  use Jifty::View::Declare -base;
8    
9    use Data::Dump qw/dump/;
10    
11  sub object_type { 'Unit' };  sub object_type { 'Unit' };
12    
13    sub per_page { get('per_page') || 5 };
14    
15  sub display_columns {  sub display_columns {
16          my $self = shift;          my $self = shift;
17          return ( qw/name inv_id campaign material dimensions discovered_at description chronology location/ );          return ( qw/
18                    unit_id
19                    name
20                    subcategory
21                    category
22                    site
23                    gps
24                    placement
25                    context
26                    discovery
27                    function
28                    reusage
29                    ownership
30                    presevation_place
31                    inventory_nr
32                    dimensions
33                    condition
34                    toplogy
35                    technique
36                    description
37                    construction
38                    iconography
39                    decoration
40                    motifs
41                    inscription
42                    language
43                    font
44                    author
45                    chronology
46                    chronostyle
47                    explored
48                    conservations
49                    restorations
50                    legal
51                    links
52                    sources
53                    bibliography
54                    copyright
55                    material
56            / );
57  }  }
58    
59  #private template search_region => sub {};  #private template search_region => sub {};
60    
61    private template 'paging_top' => sub {
62            my $self           = shift;
63            my $collection = shift;
64            my $page           = shift || 1;
65                                              
66            if ( $collection->pager->last_page > 1 ) {
67                    span {
68                            { class is 'page-count' };
69                            outs(
70                                    _( "Found %1 units, showing %2-%3 on page %4/%5",
71                                            $collection->pager->total_entries,
72                                            $collection->pager->first,
73                                            $collection->pager->last,
74                                            $page,
75                                            $collection->pager->last_page
76                                    )
77                            );
78                            }
79            }
80    
81            show( './paging_bottom', $collection, $page );
82    
83    };
84    
85    
86  template 'view' => sub :CRUDView {  template 'view' => sub :CRUDView {
87          my $self   = shift;          my $self   = shift;
88          my $id = get('id');          my $id = get('id');
# Line 66  template 'view' => sub :CRUDView { Line 134  template 'view' => sub :CRUDView {
134                                  );                                  );
135                          } else {                          } else {
136                                  my %opt;                                  my %opt;
137                                  $opt{render_mode} = 'read' if ! $editing;                                  if ( ! $editing ) {
138                                            $opt{render_mode} = 'read';
139                                            # skip fields without values
140                                            $opt{render_as} = 'hidden' if ! defined( $update->record->$f );
141                                    }
142                                  render_param( $update => $f, %opt );                                  render_param( $update => $f, %opt );
143                          }                          }
144                  };                  };
# Line 95  template 'new_item' => sub { Line 167  template 'new_item' => sub {
167          my $self = shift;          my $self = shift;
168          return unless $self->current_user->editing;          return unless $self->current_user->editing;
169    
170      my ( $object_type, $id ) = ( $self->object_type, get('id') );          my ( $object_type, $id ) = ( $self->object_type, get('id') );
171      my $record_class = $self->record_class;          my $record_class = $self->record_class;
172      my $create = $record_class->as_create_action;          my $create = $record_class->as_create_action;
173    
174          h1 { _("New unit") };          h1 { _("New unit") };
175    
176          form {          form {
177    
178                  foreach my $f ( $self->display_columns ) {                  foreach my $f ( $self->display_columns ) {
179                          last if $f eq 'material' && ! $id;  #                       last if $f eq 'material' && ! $id;
180                          render_param( $create => $f ); # unless $f eq 'material';                          render_param( $create => $f ) unless $f eq 'material';
181                            #warn "## $f";
182                  }                  }
183    
184                  div {                  div {
# Line 115  template 'new_item' => sub { Line 188  template 'new_item' => sub {
188                                  onclick => [                                  onclick => [
189                                          {                                          {
190                                                  submit => $create,                                                  submit => $create,
191          #                                       args => {  #                                               args => {
192          #                                       },  #                                               },
193                                          },                                          },
194                                          {       refresh_self => 1       },                                          {       refresh_self => 1       },
195                                          {                                          {
Legend:
Removed from v.28  
changed lines
  Added in v.66
  ViewVC Help
Powered by ViewVC 1.1.26