/[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 38 by dpavlin, Mon Dec 10 14:56:12 2007 UTC revision 39 by dpavlin, Sun Apr 6 11:12:58 2008 UTC
# Line 10  sub object_type { 'Unit' }; Line 10  sub object_type { 'Unit' };
10    
11  sub display_columns {  sub display_columns {
12          my $self = shift;          my $self = shift;
13          return ( qw/name inv_id campaign material dimensions discovered_at description chronology location/ );          return ( qw/
14                    unit_id
15                    name
16                    subcategory
17                    category
18                    site
19                    gps
20                    placement
21                    context
22                    discovery
23                    function
24                    reusage
25                    ownership
26                    presevation_place
27                    inventory_nr
28                    dimensions
29                    condition
30                    toplogy
31                    technique
32                    description
33                    contstruction
34                    iconography
35                    decoration
36                    motifs
37                    inscription
38                    language
39                    font
40                    author
41                    chronology
42                    chronostyle
43                    explored
44                    conservations
45                    restorations
46                    legal
47                    links
48                    sources
49                    bibliography
50                    copyright
51            / );
52  }  }
53    
54  #private template search_region => sub {};  #private template search_region => sub {};
# Line 104  template 'new_item' => sub { Line 142  template 'new_item' => sub {
142          form {          form {
143    
144                  foreach my $f ( $self->display_columns ) {                  foreach my $f ( $self->display_columns ) {
145                          last if $f eq 'material' && ! $id;  #                       last if $f eq 'material' && ! $id;
146                          render_param( $create => $f ); # unless $f eq 'material';                          render_param( $create => $f ); # unless $f eq 'material';
147                            warn "## $f";
148                  }                  }
149    
150                  div {                  div {
# Line 115  template 'new_item' => sub { Line 154  template 'new_item' => sub {
154                                  onclick => [                                  onclick => [
155                                          {                                          {
156                                                  submit => $create,                                                  submit => $create,
157          #                                       args => {  #                                               args => {
158          #                                       },  #                                               },
159                                          },                                          },
160                                          {       refresh_self => 1       },                                          {       refresh_self => 1       },
161                                          {                                          {
Legend:
Removed from v.38  
changed lines
  Added in v.39
  ViewVC Help
Powered by ViewVC 1.1.26