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

Diff of /FigKernelPackages/ChromosomalClusters.pm

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

revision 1.1, Wed Jan 25 17:19:31 2006 UTC revision 1.5, Fri Mar 3 23:09:29 2006 UTC
# Line 57  Line 57 
57      {      {
58          &thin_out_over_max( $cgi, $prot, $gg, $html, $in_pin );          &thin_out_over_max( $cgi, $prot, $gg, $html, $in_pin );
59      }      }
60      return($gg, $prot);      return($gg);
61  }  }
62    
63  #  Everything below here is subroutines. =======================================  #  Everything below here is subroutines. =======================================
# Line 528  Line 528 
528                  }                  }
529    
530                  #  Everything is done for the one "genome", push it onto GenoGraphics input:                  #  Everything is done for the one "genome", push it onto GenoGraphics input:
531                    #  Sequence title can be replaced by [ title, url, popup_text, menu, popup_title ]
532    
533                  $map = [ &FIG::abbrev($fig->org_of($peg)),                  my $org  = $fig->org_of( $peg );
534                    my $desc = "Genome: $org<br />Contig: $contig";
535                    $map = [ [ FIG::abbrev( $org ), undef, $desc, undef, 'Contig' ],
536                           0,                           0,
537                           $max+1-$min,                           $max+1-$min,
538                           ($beg < $end) ? &decr_coords($genes,$min) : &flip_map($genes,$min,$max)                           ($beg < $end) ? &decr_coords($genes,$min) : &flip_map($genes,$min,$max)
# Line 1099  Line 1102 
1102    
1103      my($peg2,%pinned_to,$tuple);      my($peg2,%pinned_to,$tuple);
1104    
1105      if ($fig->table_exists($fig,'pchs') &&      if ($fig->table_exists('pchs') &&
1106          $fig->is_complete($fig->genome_of($peg)))          $fig->is_complete($fig->genome_of($peg)))
1107      {      {
1108          foreach $peg2 (map { $_->[0] } $fig->coupled_to($peg))          foreach $peg2 (map { $_->[0] } $fig->coupled_to($peg))

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3