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

Diff of /FigKernelPackages/Observation.pm

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

revision 1.67, Wed Aug 20 17:06:47 2008 UTC revision 1.68, Sun Aug 24 15:00:17 2008 UTC
# Line 479  Line 479 
479          my @currLineage = ($parent_tax);          my @currLineage = ($parent_tax);
480          push (@{$families{figs}{$parent_tax}}, $id);          push (@{$families{figs}{$parent_tax}}, $id);
481          my $level = 2;          my $level = 2;
482          foreach my $tax (split(/\; /, $taxonomy)){          foreach my $tax (split(/\; /, $taxonomy),$id){
483              push (@{$families{children}{$parent_tax}}, $tax) if ($tax ne $parent_tax);              push (@{$families{children}{$parent_tax}}, $tax) if ($tax ne $parent_tax);
484              push (@{$families{figs}{$tax}}, $id) if ($tax ne $parent_tax);              push (@{$families{figs}{$tax}}, $id) if ($tax ne $parent_tax);
485              $families{level}{$tax} = $level;              $families{level}{$tax} = $level;
# Line 2284  Line 2284 
2284          #$checked = "checked" if ($id eq $query_fid);          #$checked = "checked" if ($id eq $query_fid);
2285          if ($id =~ /^fig\|/){          if ($id =~ /^fig\|/){
2286            my $box = qq~<a name="$anchor_name"></a><input type="checkbox" name="seq" value="$id" id="$field_name" onClick="VisualCheckPair('$field_name', '$pair_name','$cell_name');" $checked>~;            my $box = qq~<a name="$anchor_name"></a><input type="checkbox" name="seq" value="$id" id="$field_name" onClick="VisualCheckPair('$field_name', '$pair_name','$cell_name');" $checked>~;
           my $radio = qq(<input type="radio" name="function_select" value="$id" id="$field_name" onClick="clearText('new_text_function')">);  
2287            $box_cell = { 'data'=>$box, 'highlight'=>$org_color};            $box_cell = { 'data'=>$box, 'highlight'=>$org_color};
           $radio_cell = { 'data'=>$radio, 'highlight'=>$white};  
2288            $tax = $fig->genome_of($id);            $tax = $fig->genome_of($id);
2289          }          }
2290          else{          else{
# Line 2294  Line 2292 
2292            $box_cell = { 'data'=>$box, 'highlight'=>$org_color};            $box_cell = { 'data'=>$box, 'highlight'=>$org_color};
2293          }          }
2294    
2295            # create the radio cell for any sequence, not just fig ids
2296            my $radio = qq(<input type="radio" name="function_select" value="$id" id="$field_name" onClick="clearText('new_text_function')">);
2297            $radio_cell = { 'data'=>$radio, 'highlight'=>$white};
2298    
2299          # get the linked fig id          # get the linked fig id
2300          my $anchor_link = "graph_" . $replace_id;          my $anchor_link = "graph_" . $replace_id;
2301          my $fig_data =  "<table><tr><td><a href='?page=Annotation&feature=$id'>$id</a></td>" . "&nbsp;" x 2;          my $fig_data =  "<table><tr><td><a href='?page=Annotation&feature=$id'>$id</a></td>" . "&nbsp;" x 2;

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3