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

Diff of /FigKernelPackages/FIGMODELTable.pm

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

revision 1.6, Tue Jun 30 17:03:07 2009 UTC revision 1.7, Tue Jul 21 21:31:22 2009 UTC
# Line 358  Line 358 
358                  return -1;                  return -1;
359          }          }
360    
361            if (ref($Data) eq 'ARRAY') {
362                    my $Indecies;
363                    for (my $i=0; $i < @{$Data}; $i++) {
364                            $Indecies->[$i] = $self->add_data($RowObject,$Heading,$Data->[$i],$Unique);
365                    }
366                    return $Indecies;
367            }
368    
369          #Now checking if the heading exists in the row          #Now checking if the heading exists in the row
370          if (defined($Unique) && $Unique == 1 && defined($RowObject->{$Heading})) {          if (defined($Unique) && $Unique == 1 && defined($RowObject->{$Heading})) {
371                  for (my $i=0; $i < @{$RowObject->{$Heading}}; $i++) {                  for (my $i=0; $i < @{$RowObject->{$Heading}}; $i++) {
# Line 378  Line 386 
386                  }                  }
387          }          }
388          my $Index = (@{$RowObject->{$Heading}}-1);          my $Index = (@{$RowObject->{$Heading}}-1);
389    
390          return $Index;          return $Index;
391  }  }
392    
# Line 488  Line 497 
497          return $TableObj;          return $TableObj;
498  }  }
499    
500    =head3 clone_row
501    Definition:
502            my $NewRow = $TableObj->clone_row($Index);
503    Description:
504            Returns an exact copy of row located at $Index
505    Example:
506            my $NewRow = $TableObj->clone_row(5);
507    =cut
508    
509    sub clone_row {
510            my ($self,$Index) = @_;
511    
512            my @Headings = $self->headings();
513            my $NewRow;
514            for (my$k=0; $k < @Headings; $k++) {
515                    if (defined($self->get_row($Index)->{$Headings[$k]})) {
516                            push(@{$NewRow->{$Headings[$k]}},@{$self->get_row($Index)->{$Headings[$k]}});
517                    }
518            }
519    
520            return $NewRow;
521    }
522    
523  =head3 delete_row  =head3 delete_row
524  Definition:  Definition:
525          $TableObj->delete_row($i);          $TableObj->delete_row($i);

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3