[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.6, Tue Mar 21 15:53:30 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)),                  $map = [ [ FIG::abbrev( $org ), undef, $desc, undef, 'Contig' ],
534                    my $org  = $fig->org_of( $peg );
535                    my $desc = "Genome: $org<br />Contig: $contig";
536                    $map = [ [ FIG::abbrev( $org ), undef, $desc, undef, 'Contig' ],
537                           0,                           0,
538                           $max+1-$min,                           $max+1-$min,
539                           ($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 1103 
1103    
1104      my($peg2,%pinned_to,$tuple);      my($peg2,%pinned_to,$tuple);
1105    
1106      if ($fig->table_exists($fig,'pchs') &&      if ($fig->table_exists('pchs') &&
1107          $fig->is_complete($fig->genome_of($peg)))          $fig->is_complete($fig->genome_of($peg)))
1108      {      {
1109          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.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3