[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.1, Tue Mar 3 21:53:15 2009 UTC revision 1.2, Thu Mar 26 02:12:01 2009 UTC
# Line 292  Line 292 
292          return 1;          return 1;
293  }  }
294    
295    =head3 remove_data
296    Definition:
297            $TableObj->remove_data($Row,"HEADING","TEST");
298    Description:
299            Deletes a element of data from the input row
300    Example:
301            $TableObj->remove_data(1);
302    =cut
303    
304    sub remove_data {
305            my ($self,$RowObject,$Heading,$Data) = @_;
306    
307            #First checking that the input row exists
308            if (!defined($RowObject)) {
309                    return 0;
310            }
311    
312            #Now checking if the heading exists in the row
313            if (defined($RowObject->{$Heading})) {
314                    for (my $i=0; $i < @{$RowObject->{$Heading}}; $i++) {
315                            if ($RowObject->{$Heading}->[$i] eq $Data) {
316                                    splice(@{$RowObject->{$Heading}},$i,1);
317                                    $i--;
318                            }
319                    }
320                    if (defined($self->{"hash columns"}->{$Heading}) && defined($self->{"hash columns"}->{$Heading}->{$Data})) {
321                            if (@{$self->{"hash columns"}->{$Heading}->{$Data}} == 1) {
322                                    delete $self->{"hash columns"}->{$Heading}->{$Data};
323                            } else {
324                                    for (my $j=0; $j < @{$self->{"hash columns"}->{$Heading}->{$Data}}; $j++) {
325                                            if ($self->{"hash columns"}->{$Heading}->{$Data}->[$j] eq $RowObject) {
326                                                    splice(@{$self->{"hash columns"}->{$Heading}->{$Data}},$j,1);
327                                                    $j--;
328                                            }
329                                    }
330                            }
331                    }
332            }
333    
334            return 1;
335    }
336    
337  =head3 row_index  =head3 row_index
338  Definition:  Definition:
339          $TableObj->row_index($Row);          $TableObj->row_index($Row);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3