[Bio] / FigKernelPackages / FIGMODELObject.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIGMODELObject.pm

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

revision 1.1, Tue Mar 3 21:53:00 2009 UTC revision 1.2, Wed Mar 4 00:07:47 2009 UTC
# Line 269  Line 269 
269          my ($self,@Headings) = @_;          my ($self,@Headings) = @_;
270    
271          foreach my $Heading (@Headings) {          foreach my $Heading (@Headings) {
272                  if (!defined($self->headings())) {                  if (defined($self->headings())) {
   
                 }  
273    
274                  #First check if the heading already exists                  #First check if the heading already exists
275                  foreach my $ExistingHeading (@{$self->headings()}) {                  foreach my $ExistingHeading (@{$self->headings()}) {
# Line 280  Line 278 
278                                  last;                                  last;
279                          }                          }
280                  }                  }
281            }
282                  if ($Heading ne "") {                  if ($Heading ne "") {
283                          push(@{$self->headings()},$Heading);              push(@{$self->{"file IO settings"}->{orderedkeys}},$Heading);
284                  }                  }
285          }          }
286  }  }
# Line 327  Line 326 
326                  return undef;                  return undef;
327          }          }
328    
329          my $self;          my $self = {};
330          bless $self;          bless $self;
331          $self->filename($filename);          $self->filename($filename);
332          $self->delimiter($delimiter);          $self->delimiter($delimiter);

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3