82 |
sub unit { |
sub unit { |
83 |
my $unit = shift || die "no unit?"; |
my $unit = shift || die "no unit?"; |
84 |
my $a = new_action( class => 'UpdateUnit', record => $unit ); |
my $a = new_action( class => 'UpdateUnit', record => $unit ); |
85 |
|
warn "## current_user = ",dump( current_user ); |
86 |
form { |
form { |
87 |
foreach my $f ( qw/name number material dimensions position description chronology/ ) { |
foreach my $f ( qw/name number campaign material dimensions position description chronology location/ ) { |
88 |
if ( $f eq 'material' ) { |
if ( $f eq 'material' ) { |
89 |
my $material = $unit->material; |
my $material = $unit->material; |
90 |
while ( my $um = $material->next ) { |
while ( my $um = $material->next ) { |
92 |
render_param( $m => 'name', label => _("Material"), render_mode => 'read' ); |
render_param( $m => 'name', label => _("Material"), render_mode => 'read' ); |
93 |
} |
} |
94 |
} else { |
} else { |
95 |
render_param( $a => $f, render_mode => 'read' ); |
my %opt; |
96 |
|
$opt{render_mode} = 'read'; # unless |
97 |
|
warn "write $f ",$unit->current_user_can('write',$f) ? 'ok' : 'DENIED'; |
98 |
|
render_param( $a => $f, %opt ); |
99 |
} |
} |
100 |
} |
} |
101 |
} |
} |