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

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

revision 8 by dpavlin, Thu Nov 29 16:08:13 2007 UTC revision 9 by dpavlin, Thu Nov 29 16:40:10 2007 UTC
# Line 83  sub unit { Line 83  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          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 ) {
Legend:
Removed from v.8  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.26