[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.2, Wed Mar 4 00:07:47 2009 UTC revision 1.3, Wed Apr 29 19:52:47 2009 UTC
# Line 146  Line 146 
146  =cut  =cut
147    
148  sub add_data {  sub add_data {
149          my ($self,$Data,$Key,$Unique) = @_;          my ($self,$DataArray,$Key,$Unique) = @_;
150    
151          if (defined($Data) && $Data ne "") {          if (defined($DataArray)) {
152                    foreach my $Data (@{$DataArray}) {
153                  #Now checking if the heading exists and if the $Data is unique                  #Now checking if the heading exists and if the $Data is unique
154                  if (!defined($Unique) || $Unique ne 1 || $self->data_exists($Data,$Key) == 0) {                  if (!defined($Unique) || $Unique ne 1 || $self->data_exists($Data,$Key) == 0) {
155                          #Adding the data                          #Adding the data
# Line 157  Line 158 
158                          } else {                          } else {
159                                  $self->{$Key}->[0] = $Data;                                  $self->{$Key}->[0] = $Data;
160                          }                          }
161                          return 1;                          }
162                  }                  }
163          }          }
164    
# Line 201  Line 202 
202    
203          if ($self->get_data_size($Key) > 0) {          if ($self->get_data_size($Key) > 0) {
204                  delete $self->{$Key};                  delete $self->{$Key};
         }  
   
205          $self->remove_heading($Key);          $self->remove_heading($Key);
206  }  }
207    }
208    
209  =head3 remove_data  =head3 remove_data
210  Definition:  Definition:
# Line 248  Line 248 
248  sub remove_heading {  sub remove_heading {
249          my ($self,$Key) = @_;          my ($self,$Key) = @_;
250    
251          for (my $i; $i < @{$self->headings()}; $i++) {          for (my $i=0; $i < @{$self->headings()}; $i++) {
252                  if ($self->headings()->[$i] eq $Key) {                  if ($self->headings()->[$i] eq $Key) {
253                          splice(@{$self->headings()},$i,1);                          splice(@{$self->headings()},$i,1);
254                          $i--;                          $i--;
# Line 336  Line 336 
336                          my $Delimiter = $self->delimiter();                          my $Delimiter = $self->delimiter();
337                          my @Data = split(/$Delimiter/,$Line);                          my @Data = split(/$Delimiter/,$Line);
338                          my $Heading = shift(@Data);                          my $Heading = shift(@Data);
339                          $self->add_data(@Data,$Heading);                          my $Temp;
340                          $self->add_headings($Data[0]);                          push(@{$Temp},@Data);
341                            $self->add_data($Temp,$Heading);
342                            $self->add_headings(($Heading));
343                  }                  }
344                  close(INPUT);                  close(INPUT);
345                  return $self;                  return $self;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3