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

Diff of /FigKernelPackages/ServerThing.pm

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

revision 1.38, Sun Mar 14 14:30:12 2010 UTC revision 1.39, Tue Mar 16 19:50:43 2010 UTC
# Line 673  Line 673 
673          $reverseFound = 1 if ($row[8] eq '<-');          $reverseFound = 1 if ($row[8] eq '<-');
674          # If we're in converse mode, reformat the line.          # If we're in converse mode, reformat the line.
675          if ($converse) {          if ($converse) {
676              ($row[1], $row[0], $row[2], $row[3], $row[5], $row[4], $row[7], $row[6],              ReverseGeneCorrespondenceRow(\@row);
              ARROW_FLIP->{$row[8]}, $row[9], $row[10], $row[14], $row[15], $row[16],  
              $row[11], $row[12], $row[13], $row[17]) = @row;  
677          }          }
678          # Validate the row.          # Validate the row.
679          if (ValidateGeneCorrespondenceRow(\@row)) {          if (ValidateGeneCorrespondenceRow(\@row)) {
# Line 701  Line 699 
699      return $retVal;      return $retVal;
700  }  }
701    
702    =head3 ReverseGeneCorrespondenceRow
703    
704        ServerThing::ReverseGeneCorrespondenceRow($row)
705    
706    Convert a gene correspondence row to represent the converse correspondence. The
707    elements in the row will be reordered to represent a correspondence from the
708    target genome to the source genome.
709    
710    =over 4
711    
712    =item row
713    
714    Reference to a list containing a single row from a L</Gene Correspondence List>.
715    
716    =back
717    
718    =cut
719    
720    sub ReverseGeneCorrespondenceRow {
721        # Get the parameters.
722        my ($row) = @_;
723        # Flip the row in place.
724        ($row->[1], $row->[0], $row->[2], $row->[3], $row->[5], $row->[4], $row->[7],
725         $row->[6], ARROW_FLIP->{$row->[8]}, $row->[9], $row->[10], $row->[14],
726         $row->[15], $row->[16], $row->[11], $row->[12], $row->[13], $row->[17]) = @$row;
727    }
728    
729  =head3 ValidateGeneCorrespondenceRow  =head3 ValidateGeneCorrespondenceRow
730    

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3