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 |
form { |
form { |
86 |
foreach my $f ( qw/name number material dimensions position description chronology/ ) { |
foreach my $f ( qw/name number campaign material dimensions position description chronology location/ ) { |
87 |
if ( $f eq 'material' ) { |
if ( $f eq 'material' ) { |
88 |
my $material = $unit->material; |
my $material = $unit->material; |
89 |
while ( my $um = $material->next ) { |
while ( my $um = $material->next ) { |