/[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 26 by dpavlin, Thu Dec 6 12:53:30 2007 UTC revision 28 by dpavlin, Mon Dec 10 14:56:12 2007 UTC
# Line 32  template 'view' => sub :CRUDView { Line 32  template 'view' => sub :CRUDView {
32          $editing = 0 unless $self->current_user->editing;          $editing = 0 unless $self->current_user->editing;
33          warn "## editing ",$editing ? 'ok' : 'DENIED';          warn "## editing ",$editing ? 'ok' : 'DENIED';
34    
35            div { { class is 'unit' }
36    
37          if ( $editing ) {          if ( $editing ) {
38                  form {                  form {
39                          outs_raw($delete->button(                          outs_raw($delete->button(
40                                  label => _('Delete'),                                  label => _('Delete unit'),
41                                  class => 'float-crud-button',                                  class => 'float-crud-button button-delete',
42                                  onclick => {                                  onclick => {
43                                          submit => $delete,                                          submit => $delete,
44                                          confirm => _('Really delete?'),                                          confirm => _('Really delete?'),
# Line 50  template 'view' => sub :CRUDView { Line 51  template 'view' => sub :CRUDView {
51                  };                  };
52          };          };
53    
54    
55          form {          form {
56                  foreach my $f ( $self->display_columns ) {                  foreach my $f ( $self->display_columns ) {
57                          if ( $f eq 'material' ) {                          if ( $f eq 'material' ) {
# Line 81  template 'view' => sub :CRUDView { Line 83  template 'view' => sub :CRUDView {
83                          };                          };
84                  }                  }
85          };          };
86    
87            }; # div class unit
88    
89            show('/unitpictures/fragment', $record);
90    
91          hr {};          hr {};
92  };  };
93    
Legend:
Removed from v.26  
changed lines
  Added in v.28
  ViewVC Help
Powered by ViewVC 1.1.26